I use this function to create Arc.
I draw 3 arc an look fin but when i AppendOuterLoop the array i get err.
Can someone tell my what i do wrong..?
Function addArc(center() As Double, dRadius As Double, _
startAngle As Double, _
endAngle As Double, _
Group As String, _
strlayer As String, _
Pattern As String, _
Color As Integer, Optional blnHatch As Boolean = False)
Dim outerLoop() As AcadEntity
Dim Objhatch As AcadHatch
Dim patternName As String
Dim PatternType As Long
Dim bAssociativity As Boolean
' Define the hatch
patternName = "ANSI32"
PatternType = 0
bAssociativity = True
ReDim Preserve outerLoop(0 To Count) As AcadEntity
'Set objArc = ThisDrawing.ModelSpace.addArc(center, dRadius, startAngle, endAngle)
Set outerLoop(Count) = ThisDrawing.ModelSpace.addArc(center, dRadius, startAngle, endAngle)
outerLoop(Count).Color = Color
outerLoop(Count).layer = CheckLayer(strlayer)
outerLoop(Count).Linetype = CheckLineType(Pattern)
outerLoop(Count).Update
If Group <> "" Then Call Add2Group(Group, outerLoop(Count))
If blnHatch Then
' Create the associative Hatch object
Set Objhatch = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity)
' Append the outer loop to the hatch object, and display the hatch
Objhatch.AppendOuterLoop (outerLoop)
Objhatch.Evaluate
End If
Count = Count + 1
End Function