My AcadEntity is created in the drawing being "Item (4)" a Circle, when I
assign the circle to outerloop, I get an error when trying to
appendOuterloop. How can I hatch an object which is already created in
modelspace?
Dim hatchObj As AcadHatch
Dim patternName As String
Dim PatternType As Long
Dim bAssociativity As Boolean
Dim outerLoop(0 To 0) As AcadEntity
' Define the hatch
patternName = "ANSI31"
PatternType = 0
bAssociativity = True
Set outerLoop(0) = acadDoc.ModelSpace.Item(4)
Set hatchObj = acadDoc.ModelSpace.AddHatch(PatternType, patternName,
bAssociativity)
' Append the outer loop to the hatch object, and display the hatch
hatchObj.AppendOuterLoop (outerLoop)
hatchObj.Evaluate
