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

jxb8888

Sub Ch4_AddToASelectionSet()
    ' 创建新的选择集
    Dim sset As AcadSelectionSet
    Set sset = ThisDrawing.SelectionSets.Add("SS1")
   
    ' 提示用户选择对象，
    ' 并将其添加到选择集中。
    ' 要完成选择，请按回车键。
    sset.SelectOnScreen
   
End Sub

zeng29

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

jxb8888

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

mccad

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

jxb8888

是不是这样??


Sub Ch4_AddToASelectionSet()
On Error Resume Next

    ' 创建新的选择集
    Dim sset As AcadSelectionSet
    Set sset = ThisDrawing.SelectionSets.Add("SS1")
   
    ' 提示用户选择对象，
    ' 并将其添加到选择集中。
    ' 要完成选择，请按回车键。
    sset.SelectOnScreen
   
End Sub

jxb8888

我要的是要在CAD中用VBA选中一个标注,然后对这个标注进行加公差操作!所以要屏选!
你说的选中这个标注的代码可否具体一点的代码段????

mccad

还差一些：
if err then
    err.clear
    set sset =thisdrawing.selectionsets.item("ss1")
    sset.clear
end if
这样才能保证选择集是空的。

mccad

如果只是想选中一个对象，可以使用GetEntity方法。然后用Do Loop循环来判断选中的对象是否为标注对象。
如果是想选中多个对象，可以使用SelectOnScreen再加上过滤器来选择。过滤器的原理与DXF一样。

myfreemind

或者在最后加上
sset.clear
sset.delete

jxb8888

我说的是要在CAD中用鼠标点选.........选中一个标注,然后对这个标注进行加公差操作!所以要屏选!
用鼠标点选..