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

giswang 发表于 2003-4-23 10:37:00

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 发表于 2003-4-23 10:50:00

Re: vba构选择集后运行一次可以，运行多次就出错

如果选择集有同名的存在，则不能再创建，第一次运行时，该名称的选择集不存在，当然可以运行。但是以后运行时，由于已经存在同名的选择集，系统不让创建，所以就出错。可以改为：
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 发表于 2003-4-23 12:31:00

使用实用函数栏目中的一些函数来避免该类问题

对于选择集，如果你想再创建一个在图形中已经存在的选择集时，会出错，其它对于其它如图层等也是同样道理。
在实用函数栏目中有一个函数直接引用来创建选择集就可以避免这个问题：
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

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

页: [1]

明经CAD社区's Archiver