kingwin_v 发表于 2003-8-16 19:50:00

[求助]帮帮我在新手！

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 发表于 2003-8-16 21:27:00

本帖最后由 作者 于 2003-8-17 23:46:58 编辑

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

bluemoon 发表于 2003-8-17 12:01:00

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

liujiping 发表于 2003-8-17 19:59:00

应该不会轮到第二种错误，根本不能选择。
页: [1]
查看完整版本: [求助]帮帮我在新手！