Sub Example_MenuBar()
    ' Этот пример использует Строку меню, чтобы получить ссылку к файлу меню AutoCAD.
    ' Создается новый пункт меню и вставляется внизу файла меню.
    '
    ' Пункт меню будет автоматически удален, когда AutoCAD перезапустится
    
    Dim menu As AcadPopupMenu, newMenuItem As AcadPopupMenuItem
    Dim openMacro As String
    
    On Error GoTo ERRORTRAP
        
    ' Используйте свойство MenuBar, чтобы получить ссылку к файлу меню AutoCAD
    Set menu = ThisDrawing.Application.MenuBar.Item("&File")
    
    ' Добавьте пункт меню к новому меню, и назначите
    ' макрокоманду Open (VBA эквивалент: "ESC ESC _open ")
    openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
    
    ' Добавьте разделитель меню
    menu.AddSeparator (menu.count + 1)
    
    ' Добавьте новый пункт меню к файлу
    Set newMenuItem = menu.AddMenuItem(menu.count + 1, "NEW MENU ITEM", openMacro)
   
    MsgBox "Новый пункт меню добавился! "
   
    Exit Sub
    
ERRORTRAP:
    MsgBox "Произошла следующая ошибка: " & Err.Description
   
End Sub

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