要创建命名选择集，请使用 Add 方法。此方法仅需要一个参数—选择集的名称。
如果已存在同名的选择集，AutoCAD 将返回一条错误信息。删除不再需要的选择集是一种良好的编程习惯。使用 Delete 方法删除选择集，如下例所示：
ThisDrawing.SelectionSets.Item("NewSelectionSet").Delete
创建空的选择集
本例创建一个新的选择集。
Sub Ch4_CreateSelectionSet()
Dim selectionSet1 As AcadSelectionSet
Set selectionSet1 = ThisDrawing.SelectionSets. _
Add("NewSelectionSet")
End Sub
