CAD VBA中 如何取得VBA运行前所选择定对象的选择集？

thisdrawing.selection.add("选择拿神集名字1")

thisdrawing.selection.add("选择集名字2")

for i =0 to thisdrawing.selection.item("选择集名字2").count-1

thisdrawing.selection.item("选择集名字1").additems(thisdrawing.selection.item("选择集名字2"明蠢)(i))

next

两个选择集就合并了消槐亏

这是排序问题，一般来说将所有的选择集中的对象及插入点坐标放到一个自定义数绝敏据类型中，然后按自定义数据类型中的某一项对整个自定义数据并樱枝颂贺进行排序。我写的对象均布程序就是这样做的。

---