Sub Example_ShortcutMenu()
    'Этот пример выполняет итерации через коллекцию меню и определяет,
    'является ли каждое меню контекстным.
    
    'Отметьте, что в зависимости от того, сколько меню в настоящее время
    'загружено, строка menuStatus не может быть показана полностью.
    
    Dim currMenu As AcadPopupMenu
    Dim menuStatus As String
    
    menuStatus = ""
    For Each currMenu In ThisDrawing.Application.MenuGroups.Item(0).Menus
    If currMenu.shortcutMenu Then
        menuStatus = menuStatus & currMenu.name & " является контекстным меню." & vbCrLf
    Else
        menuStatus = menuStatus & currMenu.name & " не контекстное меню." & vbCrLf
    End If
    Next currMenu
    MsgBox menuStatus
    
End Sub