[求助]选择集使用需要重复的问题！急！

cwgg198265

　　选择集需要重复使用时，为什么只能选择一次，第二次开始就不行了，望高手回答！谢谢！

dfgs

在第二次使用前将选择集清空就行了，以前的帖子有这方面的现在代码

jkbanana

 '比如，要利用一个名为 "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")

cracher

没有必要那么麻烦

程序初始化时,创建选择集

重复使用时,只需要 选择集.Clear即可