请教版主，有关交、差集的操作。

supercorn

版主：用http://bbs.mjtd.com/forum.php?mod=viewthread&tid=26390的方法。 Sub GetArea()
Dim Pnt2 As Variant
Pnt2 = ThisDrawing.Utility.GetPoint(, "选择点：")
Dim lspPnt As String
m = ThisDrawing.ModelSpace.Count
ThisDrawing.SendCommand "-Boundary" & vbCr & "a" & vbCr & "o" & vbCr & "r" & vbCr & vbCr & Pnt2(0) & "," & Pnt2(1) & vbCr & vbCr
n = ThisDrawing.ModelSpace.Count
If m <> n Then
MsgBox ThisDrawing.ModelSpace(n - 1).Area
ThisDrawing.ModelSpace(n - 1).Delete
Else
MsgBox "Err"
End If
End Sub
对于解决求如图的的面积周长可能有点问题。 应该如果来求它们的差集面积？如图鼠标处的面积和周长。

雪山飞狐_lzh

ThisDrawing.SendCommand "-Boundary" & vbCr & "a" & vbCr & "i" & vbCr & "y" & vbCr & "o" & vbCr & "r" & vbCr & vbCr & Pnt2(0) & "," & Pnt2(1) & vbCr & vbCr
这样会生成多个面域，做一下布尔运算求解

supercorn

问题是如何来使用这多个面域呢？


ThisDrawing.ModelSpace（0）和ThisDrawing.ModelSpace（1）吗？

supercorn

它跟帮助例子中的这段代码：

Sub Ch4_CreateCompositeRegions()

    ' 创建两个圆，一个代表房间，

    ' 另一个代表房间中的柱子

    Dim RoomObjects(0 To 1) As AcadCircle

    Dim center(0 To 2) As Double

    Dim radius As Double

    center(0) = 4

    center(1) = 4

    center(2) = 0

    radius = 2#

    Set RoomObjects(0) = ThisDrawing.ModelSpace. _

                         AddCircle(center, radius)

    radius = 1#

    Set RoomObjects(1) = ThisDrawing.ModelSpace. _

                         AddCircle(center, radius)

    ' 从这两个圆创建一个面域

    Dim regions As Variant

    regions = ThisDrawing.ModelSpace.AddRegion(RoomObjects)

    ' 将面域复制到面域变量中以便使用

    Dim RoundRoomObj As AcadRegion

    Dim PillarObj As AcadRegion

    If regions(0).Area > regions(1).Area Then

        ' 第一个面域是房间

        Set RoundRoomObj = regions(0)

        Set PillarObj = regions(1)

    Else

        ' 第一个面域是柱子

        Set PillarObj = regions(0)

        Set RoundRoomObj = regions(1)

    End If

' 从地板空间减去柱子空间，

    ' 以获得表示地毯总面积的面域。

    RoundRoomObj.Boolean acSubtraction, PillarObj

    ' 使用 Area 特性确定出地毯的总面积

    MsgBox "The carpet area is: " & RoundRoomObj.Area

End Sub

有很大的出入。我就不会用acSubtraction操作了。

雪山飞狐_lzh

面域从


thisdrawing.modelspace(m)


到


thisdrawing.modelspace(n-1)


先取出面积最大的面域与其它面域做差集运算

supercorn

那么像如果这种情况，程序上会不会变得很复杂呢？


简单的最快的办法应该是怎么的呢？

雪山飞狐_lzh

这样也只会生成两个面域，你测试过了么？

supercorn

这种情况？


因为在实际使用中，可能性的情况好多，如果解决呢？

supercorn

版主还有这种情况呢，能否给出一个比较详细的解决方法？

雪山飞狐_lzh

看来你对Boundary命令一点也不熟，先看看帮助，再动手测试一下，上面情况只会有一个面域，下面的有5个



调用SendCommand方法之前最好先熟悉该命令的具体用法！！！