Sub Example_SelectAtPoint()
    'Этот пример добавляет объекты к выбору, идентифицируемые точкой.
    'Сначала все объекты в точке добавлены к набору выбора. Затем только
    'объекты круга добавлены к набору выбора.
    
    'Создайте набор выбора
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET1")
   
    'Добавьте к выбору все объекты, которые лежат в точке (6.8,9.4,0) 
    Dim point(0 To 2) As Double
    point(0) = 6.8: point(1) = 9.4: point(2) = 0
    ssetObj.SelectAtPoint point
    
    'Добавьте к выбору все Круги, которые лежат в точке (6.8,9.4,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.SelectAtPoint point, groupCode, dataCode
    
End Sub