我使用这个函数来创建Arc。
我画了3个弧，但当我AppendOuterLoop数组时，我出错了。
有人能告诉我我做错了什么吗...？
函数addArc（center（）As Double， dRadius As Double，_
start Angle As Double，_
endAngle As Double，_
Group As String，_
strstratAs String，_
Pattern As String，_
颜色为整数，可选blnHatch As Boolean=False）
Dim outerLoop（）As AcadEntity
Dim Objhatch As AcadHatch
Dim PatternnName As String
Dim PatternType As Long
定义孵化
模式名称="ANSI32"
模式类型=0
b关联=True
ReDim保留外环（0 To Count）As AcadEntity
'设置目标弧=ThisDrawing.ModelSpace.addArc>设置outerLoop（Count）=ThisDrawing.ModelSpace.addArc（center， dRadius， start Angle， endAngle）
outerLoop（Count）。颜色=颜色
outerLoop（Count）。层=CheckLayer（strstrat）
outerLoop（Count）。线型=CheckLineType（Pattern）
外环（Count）。更新
如果组 "" 然后调用Add2Group（Group， outerLoop（Count））
如果blnHatch然后
'创建关联的Hatch对象
Set Objhatch=ThisDrawing.ModelSpace.AddHatch（PatternType， PatternName， bAssociation）
'将外部循环附加到孵化对象，并显示孵化
Objhatch.AppendOuterLoop（outerLoop）
Objhatch.Evaluate
结束如果
Count=Count+1
结束函数
外部循环必须关闭。
Objhatch.AppendOuterLoop（outerLoop）应该在调用子循环中，或者应该在外部循环关闭时创建一个标志，然后Objhatch.AppendOuterLoop（outerLoop）
dim isCloked as boolean
if isCloses andObjhatch.AppendOuterLoop（outerLoop）
置顶卡
