Sub Example_Select()
    'Этот пример добавляет экземпляры к набору выбора, сначала,
    'пересекаясь и затем, фильтруя круги.
    
    'Создайте набор выбора
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
    
    
    'Добавьте весь объект к набору выбора, которые лежат в пределах пересечения (28,17,0) и
    ' (-3.3, -3.6,0) 
    Dim mode As Integer
    Dim corner1(0 To 2) As Double
    Dim corner2(0 To 2) As Double
    
    mode = acSelectionSetCrossing
    corner1(0) = 28: corner1(1) = 17: corner1(2) = 0
    corner2(0) = -3.3: corner2(1) = -3.6: corner2(2) = 0
    ssetObj.Select mode, corner1, corner2
    
    'Добавьте все Круги к набору выбора, которые лежат в пределах пересечения (28,17,0) и
    ' (-3.3, -3.6,0)
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    gpCode(0) = 0
    dataValue(0) = "Circle"
    
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
    
    ssetObj.Select mode, corner1, corner2, groupCode, dataCode
    
End Sub