选择集问题（新手上路）

菜冬瓜

Sub Example_SelectOnScreen()
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")
    ssetObj.SelectOnScreen
End Sub


本程序第一次运行正常，再次运行就出现错误，知道错误原因，但不知道怎么改正，：（。偶刚开始学ACAD的VBA，请大侠们指点。

mccad

菜冬瓜

看了“请帮忙吧，如何得到过滤选择集中的对象的属性呀！”里老大的回复，俺明白了，谢谢老大及时回复