关于选择集的additem方法,帮助文件中大致如下:
ReDim ssobjs(0 To ThisDrawing.ModelSpace.count - 1) As AcadEntity
For I = 0 To ThisDrawing.ModelSpace.count - 1
Set ssobjs(I) = ThisDrawing.ModelSpace.Item(I)
Next
ssetObj.AddItems ssobjs
请问,能否将ssobjs 定义成二维数组?如:
dim ssobjs(0 to 2,0 to 2)
ssetobj.additems ssobjs
谢谢!