[求助]选择集使用需要重复的问题!急!
选择集需要重复使用时,为什么只能选择一次,第二次开始就不行了,望高手回答!谢谢!在第二次使用前将选择集清空就行了,以前的帖子有这方面的现在代码 '比如,要利用一个名为 "TEST_SSET" 的选择集时,可以如下操作
Dim ssetObj As AcadSelectionSet
On Error Resume Next
ThisDrawing.SelectionSets.Item("TEST_SSET").Delete
On Error GoTo 0
Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")
没有必要那么麻烦
程序初始化时,创建选择集
重复使用时,只需要 选择集.Clear即可
页:
[1]