选择集数组
我试图创建一个选择集数组，我写了这样的东西：子测试（）
Dim TestSelectionAry（）作为AcadSelectionSet
Dim TestSelection作为AcadSelectionSet
Dim i为整数
设置TestSelection=ThisDrawing。选择集。添加（“Seleccion INICAL”）
出错时转到错误：
i=0
对于i=1到2
设置TestSelectionAry（i）=此图形。选择集。添加（“Seleccion INICAL”和“i”）
下一个i
测试选择。删去
出口接头
错误：
测试选择。删去
结果do=MsgBox（“错误”）
末端接头
这是一个简单的代码，它将帮助我在未来的应用程序中
顺致敬意，
页:
[1]