既存のハッチング パターンの角度や間隔は変更でき、それを塗り潰しやグラデーション塗り潰し、または AutoCAD が提供する定義済みパターンの 1 つに置き換えることができます。[境界ハッチング]ダイアログ ボックスの[パターン]オプションまたはリボンの[パターン]ギャラリーには、これらのパターンのリストが表示されます。ファイル サイズを小さくするために、図面中でハッチングは 1 つのグラフィックス オブジェクトとして定義されます。
ハッチング パターンを変更するには、次のプロパティとメソッドを使用します。
ハッチングのグラデーション角度を指定します。
ハッチングのグラデーション名を返します。
ハッチングのグラデーション シフトを指定します。
ハッチングのグラデーション タイプを返します。
ハッチング パターンの角度(ラジアン単位)を指定します。
ユーザ定義ハッチングがダブル ハッチングかどうかを指定します。
ハッチングのハッチング パターン名を返します(ハッチングのハッチング パターンの名前とタイプを設定するには、 SetHatchPattern メソッドを使用します)。
ハッチング パターンの尺度を指定します。
ユーザ定義ハッチング パターンの間隔を指定します。
ハッチングのハッチング パターン タイプを返します(ハッチングのハッチング パターンの名前とタイプを設定するには、 SetHatchPattern メソッドを使用します)。
ハッチングのグラデーション タイプと名前を設定します。
ハッチングのパターン タイプと名前を設定します。
次の例は、ハッチングを作成します。次に、ハッチングの現在のパターン間隔に 2 を追加します。
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
<CommandMethod("EditHatchPatternScale")> _
Public Sub EditHatchPatternScale()
'' Get the current document and database
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim acCurDb As Database = acDoc.Database
'' Start a transaction
Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
'' Open the Block table for read
Dim acBlkTbl As BlockTable
acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, _
OpenMode.ForRead)
'' Open the Block table record Model space for write
Dim acBlkTblRec As BlockTableRecord
acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
OpenMode.ForWrite)
'' Create a circle object for the boundary of the hatch
Using acCirc As Circle = New Circle()
acCirc.Center = New Point3d(5, 3, 0)
acCirc.Radius = 3
acBlkTblRec.AppendEntity(acCirc)
acTrans.AddNewlyCreatedDBObject(acCirc, True)
'' Adds the arc and line to an object id collection
Dim acObjIdColl As ObjectIdCollection = New ObjectIdCollection()
acObjIdColl.Add(acCirc.ObjectId)
'' Create the hatch object and append it to the block table record
Using acHatch As Hatch = New Hatch()
acBlkTblRec.AppendEntity(acHatch)
acTrans.AddNewlyCreatedDBObject(acHatch, True)
'' Set the properties of the hatch object
'' Associative must be set after the hatch object is appended to the
'' block table record and before AppendLoop
acHatch.SetHatchPattern(HatchPatternType.PreDefined, "ANSI31")
acHatch.Associative = True
acHatch.AppendLoop(HatchLoopTypes.Outermost, acObjIdColl)
'' Evaluate the hatch
acHatch.EvaluateHatch(True)
'' Increase the pattern scale by 2 and re-evaluate the hatch
acHatch.PatternScale = acHatch.PatternScale + 2
acHatch.SetHatchPattern(acHatch.PatternType, acHatch.PatternName)
acHatch.EvaluateHatch(True)
End Using
End Using
'' Save the new object to the database
acTrans.Commit()
End Using
End Sub
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Geometry;
[CommandMethod("EditHatchPatternScale")]
public static void EditHatchPatternScale()
{
// Get the current document and database
Document acDoc = Application.DocumentManager.MdiActiveDocument;
Database acCurDb = acDoc.Database;
// Start a transaction
using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
{
// Open the Block table for read
BlockTable acBlkTbl;
acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId,
OpenMode.ForRead) as BlockTable;
// Open the Block table record Model space for write
BlockTableRecord acBlkTblRec;
acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],
OpenMode.ForWrite) as BlockTableRecord;
// Create a circle object for the boundary of the hatch
using (Circle acCirc = new Circle())
{
acCirc.Center = new Point3d(5, 3, 0);
acCirc.Radius = 3;
acBlkTblRec.AppendEntity(acCirc);
acTrans.AddNewlyCreatedDBObject(acCirc, true);
// Adds the arc and line to an object id collection
ObjectIdCollection acObjIdColl = new ObjectIdCollection();
acObjIdColl.Add(acCirc.ObjectId);
// Create the hatch object and append it to the block table record
using (Hatch acHatch = new Hatch())
{
acBlkTblRec.AppendEntity(acHatch);
acTrans.AddNewlyCreatedDBObject(acHatch, true);
// Set the properties of the hatch object
// Associative must be set after the hatch object is appended to the
// block table record and before AppendLoop
acHatch.SetHatchPattern(HatchPatternType.PreDefined, "ANSI31");
acHatch.Associative = true;
acHatch.AppendLoop(HatchLoopTypes.Outermost, acObjIdColl);
// Evaluate the hatch
acHatch.EvaluateHatch(true);
// Increase the pattern scale by 2 and re-evaluate the hatch
acHatch.PatternScale = acHatch.PatternScale + 2;
acHatch.SetHatchPattern(acHatch.PatternType, acHatch.PatternName);
acHatch.EvaluateHatch(true);
}
}
// Save the new object to the database
acTrans.Commit();
}
}
Sub EditHatchPatternScale()
Dim hatchObj As AcadHatch
Dim patternName As String
Dim PatternType As Long
Dim bAssociativity As Boolean
' Define the hatch
patternName = "ANSI31"
PatternType = 0
bAssociativity = True
' Create the associative Hatch object
Set hatchObj = ThisDrawing.ModelSpace. _
AddHatch(PatternType, patternName, bAssociativity)
' Create the outer loop for the hatch.
Dim outerLoop(0 To 0) As AcadEntity
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 5
center(1) = 3
center(2) = 0
radius = 3
Set outerLoop(0) = ThisDrawing.ModelSpace. _
AddCircle(center, radius)
hatchObj.AppendOuterLoop (outerLoop)
hatchObj.Evaluate
' Change the scale of the hatch pattern by
' adding 2 to the current scale
hatchObj.patternScale = hatchObj.patternScale + 2
hatchObj.Evaluate
ThisDrawing.Regen True
End Sub