[VBA函数]：求助：选择集问题

qiaqiadeng

各位大侠请帮我看一下这段程序为何在第二次运行时总会出现：“命名选择集已经存在”的错误信息：
Sub Ch4_FilterBlueCircleOnLayer0()
   Dim sstext As AcadSelectionSets
   Dim FilterType(2) As Integer
   Dim FilterData(2) As Variant
   Set sstext = ThisDrawing.SelectionSets.Add("SS4")
   
   FilterType(0) = 0
   FilterData(0) = "Circle"

   FilterType(1) = 62
   FilterData(1) = acBlue

   FilterType(2) = 8
   FilterData(2) = "0"
   
   sstext.SelectOnScreen FilterType, FilterData
End Sub

另外请教SS4是什么？有什么讲究吗？

macula55

"SS4"代表建立选择集的名字。
第一次运行由于系统中没有SS4选择集所以可以建立并运行通过，而第二次运行时由于上一次建立的SS4选择集没有删除，也就是系统中已经存在SS4选择集了，所以创建会失败！

可以将代码改为如下形式：
Sub Ch4_FilterBlueCircleOnLayer0()
Dim sstext As AcadSelectionSets
Dim FilterType(2) As Integer
Dim FilterData(2) As Variant

On Error Resume Next             '忽略错误继续执行
ThisDrawing.SelectionSets.Item("SS4").Delete     '删除SS4选择集
Set sstext = ThisDrawing.SelectionSets.Add("SS4")

FilterType(0) = 0
FilterData(0) = "Circle"

FilterType(1) = 62
FilterData(1) = acBlue

FilterType(2) = 8
FilterData(2) = "0"

sstext.SelectOnScreen FilterType, FilterData
End Sub

qiaqiadeng

多谢2楼兄弟，终于成功了，非常感谢

ahua

选择集不能出现重名

qiaqiadeng

不是不能重名，而是已经存在的名称要先删除，然后才能用，VBA这方面做得也是有点磕掺。

雪山飞狐(lzh)

用这个类试试：）
http://www.xdcad.net/forum/showthread.php?s=&threadid=294720