奉献一选择集程序(vba)

mycad

...............................................

On Error Resume Next
 ' Delete the Selection Set if it Exists
 If Not IsNull(ThisDrawing.SelectionSets.Item("xxx")) Then
    Set sset = ThisDrawing.SelectionSets.Item("xxx")
    sset.Delete
 End If
   
    Set sset = ThisDrawing.SelectionSets.Add("xxx")

..................................................................................

songzhi

抄的吧？

mccad

这是明经通道原创，三行搞掂：

Function CreateSelectionSet(Optional SSetName As String = "mjtd") As AcadSelectionSet
    On Error Resume Next
    ThisDrawing.SelectionSets(SSetName).Delete
    Set CreateSelectionSet = ThisDrawing.SelectionSets.Add(SSetName)
End Function