Sub Example_Flyout()
    ' Этот пример использует MenuGroups, чтобы получить справочник к главному меню AutoCADа.
    ' Затем создает новую Панель инструментов (TestMenu) с Кнопкой панели,
    ' которая будет действовать как выпадающая панель. Примеры
    ' устанавливают меню Flyout для существующего меню Toolbar.
    ' Панель инструментов будет автоматически показана и покажет меню UCS
    ' как выпадающую панель.
        
    Dim currMenuGroup As acadMenuGroup
    Dim newToolBar As AcadToolbar, newToolBarFlyoutButton As AcadToolbarItem
    
    On Error GoTo ERRORTRAP
    
    ' Используйте свойство MenuGroups, чтобы получить справочник к основному меню AutoCAD
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item("ACAD")
    
    ' Создайте новую Панель инструментов в этой группе
    Set newToolBar = currMenuGroup.Toolbars.Add("TestMenu")
    
    ' Добавьте новую кнопку к TestMenu, который свяжется с меню Flyout
    '
    ' * ПРИМЕЧАНИЕ: Установите макро имя к имени панели инструментов
    ' выпадающей панели, потому что установка его в виде пустой строки
    ' вызывает ошибку. Параметр фактически игнорируется, когда выбран
    ' стиль - выпадающая панель, но должен иметь, любое значение отличное от "".
    Set newToolBarFlyoutButton = newToolBar.AddToolbarButton(newToolBar.count + 1, "Flyout", "Flyout", "UCS", True)
    
    ' Свяжите существующую "UCS" панель инструментов как выпадающую
    ' панель для новой кнопки панели
    '
    ' * ПРИМЕЧАНИЕ: Чтобы изменять выпадающую панель, просто измените
    ' MenuGroup и имя Toolbar ниже
    newToolBarFlyoutButton.AttachToolbarToFlyout "ACAD", "UCS"
   
    MsgBox "Выпадающая панель, приложенная к меню Test " & newToolBarFlyoutButton.Flyout.name
    
    Exit Sub

ERRORTRAP:
    MsgBox "Следующая ошибка произошла: " & Err.Description
End Sub

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