[求助]帮帮我在新手！

kingwin_v

Sub Example_SelectOnScreen()
    ' This example adds entities to a selection set by prompting the user
    ' to select entities to add.
   
    ' Create the selection set
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET1")
   
    ' Add entities to a selection set by prompting user to select on the screen
    ssetObj.SelectOnScreen
   
End Sub
上面的程序为什么在窗体中的按钮中调用老报错
Private Sub CommandButton1_Click()
Example_SelectOnScreen
End Sub

mccad

注意选择对象前应该先隐藏对话框。
Me.Hide
[WEB]http://www.mjtd.com/a2/list.asp?id=484[/WEB]

bluemoon

是不是比所建立的选择集已经存在了啊？
你可以加出错处理看看啊

liujiping

应该不会轮到第二种错误，根本不能选择。