[求助]什么原因？

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

clement

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

kingwin_v

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

myfreemind

别做为过程，用function