[VBA]能不能用选择集来创建面域

wholin · 发表于 2006-9-5 17:59:00

RetVal = object.AddRegion(ObjectList)
这个objectlist对象数组能不能是选择集，比方现在有一个选择集objsel,该如何的创建面域？
RetVal = object.AddRegion(objsel) 这样做好像不行，大家可以帮我一下？

雪山飞狐_lzh · 发表于 2006-9-5 19:56:00

[WEB]http://www.mccad.net/object/acad2004/idh_addregion.htm[/WEB]

兰州人 · 发表于 2006-9-8 16:01:00

Dim obj_region() As Object    '定义面域对象

先画个圆
point1(0) = 5#: point1(1) = 5#: point1(2) = 0#
Set obj_circle1 = obj_ModelSpace.AddCircle(point1, 2.5)

Set obj_circle1 = obj_ModelSpace.AddCircle(point1, 2.5)
Set curvers(0) = obj_circle1          '保存第一个圆
Set curvers(1) = obj_circle2          '保存第二个圆
obj_region = obj_ModelSpace.AddRegion(curvers) '建立二个圆的面域
End Sub