向选择集添加对象

AutoCAD ActiveX/VBA

 
向选择集添加对象
 
 
 

用户可以使用以下任何一种方法向活动的选择集添加对象:

AddItems

向指定的选择集添加一个或多个对象。

Select

选择对象并将其放到活动的选择集中。用户可以选择所有对象、位于矩形区域内或与其相交的对象、位于多边形区域内或与其相交的对象、与选择栏相交的所有对象、最近创建的对象、上一个选择集中的对象、窗口内的对象,以及多边形窗口内的对象。

SelectAtPoint

选择穿过给定点的对象并将其放到活动的选择集中。

SelectByPolygon

选择位于选择栏内的对象并将其添加到活动的选择集中。

SelectOnScreen

提示用户在屏幕上拾取的对象并将其添加到活动的选择集中。

向选择集添加选定的对象

本例提示用户选择对象,然后将这些对象添加到选择集中。

Sub Ch4_AddToASelectionSet()
    ' 创建新的选择集
    Dim sset As AcadSelectionSet
    Set sset = ThisDrawing.SelectionSets.Add("SS1")
      
    ' 提示用户选择对象
    ' 并将其添加到选择集中。
    ' 要完成选择,请按回车键。
    sset.SelectOnScreen
      
End Sub