Sub Example_SelectOnScreen()
    'Этот пример добавляет объекты к выбору, запрашивая пользователя.
    
    'Создайте набор выбора
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")
    
    'Добавьте объекты к выбору, запрашивая пользователя выбрать объекты на экране
    ssetObj.SelectOnScreen
    
End Sub