supercorn 发表于 2004-9-29 13:40:00

如果赋值到AcadEntity中？

如何将选择集（SsetObj）中的每个元素赋值到objList中？


Dim SsetObj As AcadSelectionSet


Dim objlist() as AcadEntity


............


n=.....


Redim objlist(n)


............

mccad 发表于 2004-10-2 18:23:00

实用函数栏目中的函数：<BR><A href="http://www.mjtd.com/function/list.asp?id=333&amp;ordertype=byletter" target="_blank" >http://www.mjtd.com/function/list.asp?id=333&amp;ordertype=byletter</A>
页: [1]
查看完整版本: 如果赋值到AcadEntity中？