用户可以使用以下任何一种方法向活动的选择集添加对象:
-
AddItems
-
-
Select
-
选择对象并将其放到活动的选择集中。用户可以选择所有对象、位于矩形区域内或与其相交的对象、位于多边形区域内或与其相交的对象、与选择栏相交的所有对象、最近创建的对象、上一个选择集中的对象、窗口内的对象,以及多边形窗口内的对象。
-
SelectAtPoint
-
-
SelectByPolygon
-
选择位于选择栏内的对象并将其添加到活动的选择集中。
-
SelectOnScreen
-
提示用户在屏幕上拾取的对象并将其添加到活动的选择集中。
向选择集添加选定的对象
本例提示用户选择对象,然后将这些对象添加到选择集中。
Sub Ch4_AddToASelectionSet()
' 创建新的选择集
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("SS1")
' 提示用户选择对象
' 并将其添加到选择集中。
' 要完成选择,请按回车键。
sset.SelectOnScreen
End Sub