Sub Example_OnMenuBar()
    'Этот пример создает новое меню по имени TestMenu и вставляет пункт 
    'меню. Меню затем показано на строке меню и удалено из строки меню.
    
    Dim currMenuGroup As acadMenuGroup
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
    
    'Создайте новое меню
    Dim newMenu As AcadPopupMenu
    Set newMenu = currMenuGroup.Menus.Add("TestMenu")
    
    'Добавьте пункт меню к новому меню
    Dim newMenuItem As AcadPopupMenuItem
    Dim openMacro As String
    'Назначьте строку макрокоманды эквивалент VB "ESC ESC _open"
    openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
    
    Set newMenuItem = newMenu.AddMenuItem(newMenu.count + 1, "Open", openMacro)
    
    'Покажите меню на строке меню
    newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.count + 1)
    GoSub QUERYMENU
    
    'Удалите меню из строки меню
    currMenuGroup.Menus.RemoveMenuFromMenuBar ("TestMenu")
    GoSub QUERYMENU
    Exit Sub
    
QUERYMENU:
    If newMenu.OnMenuBar Then
        MsgBox "Меню " & newMenu.name & " находится на строке меню."
    Else
        MsgBox "Меню " & newMenu.name & " не находится на строке меню. "
    End If
    Return
        
End Sub

Сайт управляется системой uCoz