[VBA]图案填充[Hatch]出错！

macula

自己写了一个填充图案的过程，如下：

Sub aaa()
Dim dd As AcadHatch
Dim s As AcadSelectionSet
Dim obj() As AcadEntity
Dim i As Long

' On Error Resume Next

ThisDrawing.SelectionSets.Item("fda").Delete
Set s = ThisDrawing.SelectionSets.Add("fda")

s.SelectOnScreen

If s.Count > 0 Then
ReDim Preserve obj(s.Count)
For i = 0 To s.Count - 1
Set obj(i) = s.Item(i)
Next
End If

Set dd = ThisDrawing.ModelSpace.AddHatch(0, "SOLID", True)

dd.AppendOuterLoop obj
dd.Evaluate
ThisDrawing.Regen acActiveViewport
End Sub


当运行上面的函数，总是提示-2147418133错误，方法“AppendOuterLoop”作用于对象“IAcadHatch”时失败！
不知道是那里出错了，请各位大虾指点！

wyj7485

ReDim Preserve obj(s.Count-1)

macula

楼上的好像不对吧！

wyj7485

你再试试看,我运行完全正确啊!