[编程交流] 创建selectionset模块

Public Function CreateSelectionSet1(Optional ssName As String = "ss") As AcadSelectionSet
   Dim ss As AcadSelectionSet
   
   On Error Resume Next
   Set ss = ThisDrawing.SelectionSets(ssName)
   If Err Then Set ss = ThisDrawing.SelectionSets.Add(ssName)
   ss.Clear
   Set CreateSelectionSet = ss
End Function

sub useIT
selset = CreateSelectionSet1
msgbox(selset.count)
end sub

Option Explicit
Sub useIT()
Dim selset As AcadSelectionSet
[b][i][color=red]Set[/color][/i][/b] selset = CreateSelectionSet1
MsgBox (selset.Count)
End Sub
Public Function CreateSelectionSet1(Optional ssName As String = "ss") As AcadSelectionSet
   Dim ss As AcadSelectionSet
   On Error Resume Next
   Set ss = ThisDrawing.SelectionSets(ssName)
   If Err Then Set ss = ThisDrawing.SelectionSets.Add(ssName)
   ss.Clear
   Set Create SelectionSet[b][i]1[/i][/b] = ss
End Function