[VBA]能不能用选择集来创建面域乐筑天下

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

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

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

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

http://www.mccad.net/object/acad2004/idh_addregion.htm

兰州人 发表于 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

syqtm 发表于 2006-9-8 21:29:00

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

crazylsp 发表于 2013-4-19 17:10:00

原来对象数组可以建面域

一只鸟243aZ 发表于 2018-5-6 17:35:00

404,看不到哈。

页: [1]

乐筑天下's Archiver

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