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

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

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

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

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

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

<P>Dim obj_region() As Object&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '定义面域对象<BR></P>
<P>先画个圆&nbsp;</P>
<P>point1(0) = 5#: point1(1) = 5#: point1(2) = 0#<BR>Set obj_circle1 = obj_ModelSpace.AddCircle(point1, 2.5)<BR>&nbsp;<BR>Set obj_circle1 = obj_ModelSpace.AddCircle(point1, 2.5)</P>
<P>Set curvers(0) = obj_circle1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '保存第一个圆</P>
<P>Set curvers(1) = obj_circle2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '保存第二个圆</P>
<P>obj_region = obj_ModelSpace.AddRegion(curvers)&nbsp;&nbsp; '建立二个圆的面域<BR>End Sub<BR></P>

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

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

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

原来对象数组可以建面域

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

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

404,看不到哈。
页: [1]
查看完整版本: [VBA]能不能用选择集来创建面域