[讨论]vba构选择集后运行一次可以，运行多次就出错

giswang

vba构选择集后运行一次可以得出正确结果，运行多次就出错。代码：
     Dim SsetObj As AcadSelectionSet '构选择集名pline
     Set SsetObj = ThisDrawing.SelectionSets.Add("pline")
     Dim gpcode(0) As Integer    '构建过滤器
     Dim datavalue(0) As Variant
        gpcode(0) = 0: datavalue(0) = "lwpolyline"
        SsetObj.Select acSelectionSetAll, , , gpcode, datavalue
      .......
     SsetObj.Clear
  为什么第二次运行会在Set SsetObj = ThisDrawing.SelectionSets.Add("pline")这句出错

efan2000

如果选择集有同名的存在，则不能再创建，第一次运行时，该名称的选择集不存在，当然可以运行。但是以后运行时，由于已经存在同名的选择集，系统不让创建，所以就出错。可以改为：
     Dim SsetObj As AcadSelectionSet '构选择集名pline
     on error resume next '发生错误时执行下一句语句。
     Set SsetObj = ThisDrawing.SelectionSets("pline") '引用选择集，不存在会触发错误
     if err then Set SsetObj = ThisDrawing.SelectionSets.Add("pline") '发生错误时表明没有同名的选择集，可以创建一个。
     ssetobj.clear '消空选择集中可能已经有的记录。

mccad

对于选择集，如果你想再创建一个在图形中已经存在的选择集时，会出错，其它对于其它如图层等也是同样道理。
在实用函数栏目中有一个函数直接引用来创建选择集就可以避免这个问题：
CreateSelectionSet  返回一个空白选择集  
http://www.mjtd.com/function/list.asp?id=295&ordertype=bysort&orderkey=33
对于选择集的一些自定义函数，在实用函数栏目中有以下这些：
http://www.mjtd.com/function/index.asp?nclassid=3&ordertype=bysort&orderkey=33

多看看一些别人已经使用的函数，避免走弯路。