Как организовать пользовательское выделение при выполнении кода?

[filat]

Мне нужно, чтоб при выполнении макроса пользователь выполнил выделение элементв модели в окне инвентора. Как выполняется такой запрос? Есть ли какие-то примеры кода на эту тему?

[filat]

Решение подсказал Миша Казаков:

Код: [Выделить]

Public Sub GetSingleSelection()
    ' Get a feature selection from the user
    Dim oObject As Object
    Set oObject = ThisApplication.CommandManager.Pick(kAllPointEntities, "Pick a feature")

    MsgBox "Picked: " & oObject.Name
End Sub