AttachToolbarToFlyout Example |
Using Programming Languages other than VBA
Sub Example_AttachToolbarToFlyout() ' This example uses MenuGroups to obtain a reference to the AutoCAD main menu. ' It then creates a new Toolbar(TestMenu) with a Toolbar button that will act ' as a flyout. It then sets the Flyout menu to an existing Toolbar menu. ' The Toolbar will automatically be displayed and will display the UCS menu ' as a flyout. Dim currMenuGroup As acadMenuGroup Dim newToolBar As AcadToolbar, newToolBarFlyoutButton As AcadToolbarItem On Error GoTo ERRORTRAP ' Use MenuGroups property to obtain reference to main AutoCAD menu Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item("ACAD") ' Create a new Toolbar in this group Set newToolBar = currMenuGroup.Toolbars.Add("TestMenu") ' Add new button to TestMenu that will link to the Flyout menu ' ' * NOTE: Set the macro name to the name of the flyout toolbar because ' setting it to an empty string causes an error. The paremeter ' is actually ignored when the style is flyout, but must have any value other than "". Set newToolBarFlyoutButton = newToolBar.AddToolbarButton(newToolBar.count + 1, "Flyout", "Flyout", "UCS", True) ' Link the existing toolbar "UCS" as the flyout for the new toolbar button ' ' * NOTE: To change the flyout, simply change the MenuGroup and Toolbar name below newToolBarFlyoutButton.AttachToolbarToFlyout "ACAD", "UCS" MsgBox "A new Toolbar with a flyout has been added to the AutoCAD menu system!" Exit Sub
ERRORTRAP: MsgBox "The following error has occurred: " & Err.Description End Sub
Comments? |