我用Sset.SelectOnScreen给新建的选择集添加对象,可老是选不上对象,下面代码没反应

sus1982

我用Sset.SelectOnScreen给新建的选择集添加对象,可老是选不上对象,下面代码没反应,请高手们帮我看看把[br]

Sub addrelativityline()
   Dim lineSelection1 As AcadSelectionSet
   On Error Resume Next
 ThisDrawing.SelectionSets("SSl").Delet
   Set lineSelection1 = ThisDrawing.SelectionSets.Add("SSl")
   Sset.SelectOnScreen
   ThisDrawing.ModelSpace.lineSelection1.Erase
End Sub

storyst

Dim sset As AcadSelectionSet
    If Not IsNull(ThisDrawing.SelectionSets.Item("newadd")) Then
       Set sset = ThisDrawing.SelectionSets.Item("newadd")
       sset.Delete
    End If
     Set sset = ThisDrawing.SelectionSets.Add("newadd")
     sset.SelectOnScreen