Sub Example_PickfirstSelectionSet()
    ' Этот пример перечисляет все объекты в предварительном наборе выбора.
    ' Перед выполнением этого примера, создайте некоторые объекты в
    ' активном рисунке и выберите эти объекты. Объекты, в настоящее время
    ' выбранные в активном рисунке будут возвращены в предварительном
    ' наборе выбора.
            
    Dim pfSS As AcadSelectionSet
    Dim ssobject As AcadEntity
    Dim msg As String
    msg = vbCrLf
    
    Set pfSS = ThisDrawing.PickfirstSelectionSet
    For Each ssobject In pfSS
        msg = msg & vbCrLf & ssobject.ObjectName
    Next ssobject
    MsgBox "Предварительный набор выбора содержит: " & msg
    
End Sub