选择集问题（新手上路）

菜冬瓜 · 发表于 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，请大侠们指点。

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

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

选择集问题（新手上路）

发表回复

精选推荐