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

jxb8888 发表于 2003-10-5 20:01:00

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

mccad 发表于 2003-10-5 20:02:00

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

mccad 发表于 2003-10-5 20:06:00

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

myfreemind 发表于 2003-10-5 23:12:00

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

jxb8888 发表于 2003-10-6 10:19:00

我说的是要在CAD中用鼠标点选.........选中一个标注,然后对这个标注进行加公差操作!所以要屏选!
用鼠标点选..
页: [1] 2
查看完整版本: 明总:为什么我这个屏选不到,老出错??