[求助]：请问CAD-VBA中的AcadEntity是何意思,另外.....

水炮眼大大侠

请问CAD-VBA中的AcadEntity是何意思,另外小弟用VBA编写了个程序,但检查不出错误,请大家指教

Public Sub subtract1()
   
   Dim a(0 To 1) As AcadCircle
   Dim b(0 To 2) As Double, c As Double
   
   b(0) = 4: b(1) = 4: b(2) = 0
   c = 2
   
   Set a(0) = ThisDrawing.ModelSpace.AddCircle(b, c)
   
   c = 1
   Set a(1) = ThisDrawing.ModelSpace.AddCircle(b, c)
   
   Dim s As Variant
   
   s = ThisDrawing.ModelSpace.AddRegion(a)
   
   Dim mm As AcadRegion, nn As AcadRegion
   
   If s(0).Area > s(1).Area Then
      mm = s(0)
     nn = s(1)
     Else
     mm = s(1)
     nn = s(0)
     End If
   mm.color = acRed
   nn.color = acBlue
   
   ZoomAll
   
   mm.Boolean acSubtraction, nn
   MsgBox mm.Area
   

End Sub

zml84

解决方法如下：

Public Sub test1()

Dim a(0 To 1) As AcadCircle
Dim b(0 To 2) As Double, c As Double
b(0) = 4: b(1) = 4: b(2) = 0

c0 = 2: c1 = 1
Set a(0) = ThisDrawing.ModelSpace.AddCircle(b, c0)
Set a(1) = ThisDrawing.ModelSpace.AddCircle(b, c1)

Dim s As Variant
s = ThisDrawing.ModelSpace.AddRegion(a)

Dim mm As AcadRegion, nn As AcadRegion
If s(0).Area > s(1).Area Then
        Set mm = s(0) '★★这里是重点
    Set nn = s(1) '★★给对象赋值需使用set
Else
        Set mm = s(1)
        Set nn = s(0)
End If
mm.color = acRed
nn.color = acBlue
mm.Boolean acSubtraction, nn

MsgBox mm.Area
ZoomAll

End Sub
*-*9

雪山飞狐(lzh)

AcadEntity是所有CAD实体的基类