欢迎使用CSDN-markdown编辑器

Public Function CreateSelectionSet(Optional ssName As String = “ss”) As Object

Dim ss As ObjectOn Error Resume NextDo While ThisDrawing.SelectionSets.count > 0    ThisDrawing.SelectionSets.Item(0).DeleteLoopSet ss = ThisDrawing.SelectionSets.Add(ssName)ss.ClearSet CreateSelectionSet = ss

end function