社区 › VB › [VBA]图案填充[Hatch]出错！

macula 发表于 2005-9-19 10:19:00

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

自己写了一个填充图案的过程，如下：
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 发表于 2005-9-19 14:46:00

ReDim Preserve obj(s.Count-1)

macula 发表于 2005-9-23 10:27:00

楼上的好像不对吧！

wyj7485 发表于 2005-9-24 08:19:00

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

查看完整版本: [VBA]图案填充[Hatch]出错！