Sub Example_MenuGroups()
    ' Этот пример использует MenuGroups, чтобы получить ссылку к главному меню AutoCADа.
    ' Cоздается новое меню с именем TestMenu и вставляется пункт меню. 
    ' Меню отображается в строке меню.
    '
    ' Пункт меню будет автоматически удален, когда AutoCAD перезапустится
        
    Dim currMenuGroup As acadMenuGroup
    Dim newMenu As AcadPopupMenu, newMenuItem As AcadPopupMenuItem
    Dim openMacro As String
    
    On Error GoTo ERRORTRAP
    
    ' Используйте MenuGroups свойство, чтобы получить ссылку к основному меню AutoCAD
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item("ACAD")
    
    ' Создайте новое меню в этой группе
    Set newMenu = currMenuGroup.Menus.Add("TestMenu")
    
    ' Добавьте пункт меню к новому меню, и назначите
    ' макрокоманду Open (VBA эквивалент: "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)
    
    MsgBox "Новое меню добавилось к системе меню ACAD! "
    
    Exit Sub
    
ERRORTRAP:
    MsgBox "Следующая ошибка произошла: " & Err.Description
End Sub

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