社区 › 编程申请 › [求助]什么原因？

kingwin_v 发表于 2003-8-16 20:05: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

clement 发表于 2003-8-16 20:23:00

SelectionSet是不允许重名的，第一次运行是不会报错的，第二次时自然不行了，
试一试 thisdrawing.selectionsets.item("TEST_SSET1").delete

kingwin_v 发表于 2003-8-16 21:35:00

不是这原因，这点我知道！主要是作为模块单独运行可以，但是在按钮控件里就不行

myfreemind 发表于 2003-8-16 23:34:00

别做为过程，用function

查看完整版本: [求助]什么原因？