求助！经过布尔计算后，如何引用交集域对象
初学VBA，以下是在cad2014 的VBA IDE中的代码，计划实现把两个不同的圆转换成面域，再求他们的交集。但不知道如何得到这个交集对象，请高手指教一下。Public Sub GetAreaAndName()
'先画两个圆
Dim RoomObjects(0 To 1) As AcadCircle
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 0
center(1) = 0
center(2) = 0
radius = 15#
Set RoomObjects(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)
Dim center1(0 To 2) As Double
Dim radius1 As Double
center1(0) = 10
center1(1) = 10
center1(2) = 0
radius1 = 10#
Set RoomObjects(1) = ThisDrawing.ModelSpace.AddCircle(center1, radius1)
' 创建面域
Dim regions As Variant
regions = ThisDrawing.ModelSpace.AddRegion(RoomObjects)
‘大圆和小圆的交集
regions(0).Boolean acIntersection, regions(1)
'到目前为此，能正确计算出交集的域对象。
如我想引用该交集后的域的面积。怎么做？
我试图如下做，但没有成功。
Dim zz As AcadRegion '定义一个面域对象
Set zz = regions(0).Boolean(acIntersection, regions(1)) '计划交集的域赋与一个对象ZZ，但不成功。
region(0)就是取交集后的新region呀，用region(0).area取得面积不行么？ 谢谢，刚试过了，确实这样啊
页:
[1]