菜冬瓜 发表于 2002-10-29 19:19:00

选择集问题（新手上路）

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


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

mccad 发表于 2002-10-29 19:36:00

同名选择集只能创建一次，不然就会出错

菜冬瓜 发表于 2002-10-29 19:51:00

看了另一个帖子，明白了

看了“请帮忙吧，如何得到过滤选择集中的对象的属性呀！”里老大的回复，俺明白了，谢谢老大及时回复
页: [1]
查看完整版本: 选择集问题（新手上路）