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

实用函数栏目中的函数：
页: [1]
查看完整版本: 如果赋值到AcadEntity中？