[VBA程序]：怎么选择物体（SelectOnScreen的用法)

god

为什么15楼的代码运行一次后，如果删除acfocusctrl控件，会使acad崩溃？

Matthew888

对于第二次运行的时候出错的问题，可以图下解决：
ON ERROR RESUME NEXT
err.clear
Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")
if err then  
    ssetobj.clear
    err.clear
endif
on error goto 0
ssetObj.SelectOnScreen

god

对于第二次运行的时候出错的问题，也可以如下解决

Dim i As Integer
For i = 0 To AcadDoc.SelectionSets.Count - 1
If AcadDoc.SelectionSets.Item(i).Name = "SSET" Then
AcadDoc.SelectionSets.Item(i).Delete
End If
Next

雪山飞狐(lzh)

on error resume next
AcadDoc.SelectionSets("SSET").delete
set selset=AcadDoc.SelectionSets.add("SSET").

Matthew888

先搜索选择集合，然后删除，在建立对象，从效率上不经济的。
我不推荐的，感觉还是我的好一点。

雪山飞狐(lzh)

选择集有一个著名的Bug，为安全起见，用之前最好把同名的选择集删除，再建立