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

wholin

RetVal = object.AddRegion(ObjectList)

这个objectlist对象数组能不能是选择集，比方现在有一个选择集objsel,该如何的创建面域？

RetVal = object.AddRegion(objsel) 这样做好像不行，大家可以帮我一下？

雪山飞狐_lzh

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

兰州人

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

syqtm

可以 创建啊,注意是变体变量

crazylsp

原来对象数组可以建面域

一只鸟243aZ

雪山飞狐_lzh 发表于 2006-9-5 19:56
[WEB]http://www.mccad.net/object/acad2004/idh_addregion.htm[/WEB]

404,看不到哈。