孵化
我使用这个函数来创建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
结束函数
**** Hidden Message ***** 尝试在模块级别将Dim outerLoop()作为AcadEntity，就像您对count所做的那样。它每次都变得模糊，因此是空的。
仍然有错误 您遇到了什么错误？
您在哪条线上收到错误？
计数在何处/何时/如何变暗？
在运行此函数之前，是否为 Count 分配了初始值 0？ 我在Objhatch.AppendOuterLoop行得到错误（outerLoop）
eer. run time err'-2145386493（80200003）'；
无效输入
计算器工作正常（暗淡计数为长） 外部循环必须关闭。
Objhatch.AppendOuterLoop（outerLoop）应该在调用子循环中，或者应该在外部循环关闭时创建一个标志，然后Objhatch.AppendOuterLoop（outerLoop）
dim isCloked as boolean
if isCloses andObjhatch.AppendOuterLoop（outerLoop）
页:
[1]