明总:为什么我这个屏选不到,老出错??

jxb8888 · 发表于 2003-10-5 09:22:00

Sub Ch4_AddToASelectionSet()
' 创建新的选择集
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("SS1")

' 提示用户选择对象，
' 并将其添加到选择集中。
' 要完成选择，请按回车键。
sset.SelectOnScreen

End Sub

zeng29 · 发表于 2003-10-5 10:40:00

不能重复创建同名的选择集,运行第一次后SS1选择集便已经存在.
可以在程序处理完成后添加sset.Delete

jxb8888 · 发表于 2003-10-5 17:17:00

有没有防止出这样的错误的代码段?

mccad · 发表于 2003-10-5 19:51:00

你可以先用On Error Resume Next
然后使用该名称来建立一个选择集，如果此时出错，则该名称的选择集存在，此时可以直接得到该名称的选择集，然后再清除该选择集中的对象。
在实用函数中有这样的一个函数建立选择集，使用的也就是这种原理。

jxb8888 · 发表于 2003-10-5 19:57:00

是不是这样??
Sub Ch4_AddToASelectionSet()
On Error Resume Next
' 创建新的选择集
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("SS1")

' 提示用户选择对象，
' 并将其添加到选择集中。
' 要完成选择，请按回车键。
sset.SelectOnScreen

End Sub