|
自己写了一个填充图案的过程,如下:
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”时失败!
不知道是那里出错了,请各位大虾指点!
|
|