Sub Example_ActiveSelectionSet()
    Dim sset As AcadSelectionSet
    ' Следующий пример возвращает текущий набор выбора из текущего рисунка
    Set sset = ThisDrawing.ActiveSelectionSet
End Sub