[编程交流] 问题ActiveSelectionset

Sub DErase()
   Dim aEnt As AcadEntity
   Dim aLayer1, aLayer2 As AcadLayer
   Dim aSSet As AcadSelectionSet
   Dim strLayerName  As String
   
   On Error GoTo Delete
    Set aSSet = ThisDrawing.SelectionSets.Add("sset")
   
   On Error GoTo Continue
   If ThisDrawing.ActiveSelectionSet.Count = 0 Then
   
       aSSet.SelectOnScreen
   
   Else
       Set aSSet = ThisDrawing.ActiveSelectionSet
   
   End If
   
   For Each aEnt In aSSet
           aLayer1 = aEnt.Layer
           strLayerName = "D_" & aLayer1
           Set aLayer2 = ThisDrawing.Layers.Add(strLayerName)
           aEnt.Layer = "D_" & aLayer1
           aEnt.Update
   Next
  
   ThisDrawing.SelectionSets.Item("sset").Delete
   
   
   Exit Sub
       
Delete:
   ThisDrawing.SelectionSets.Item("sset").Delete
   Exit Sub
Continue:
   Resume Next
End Sub