Check Example |
Using Programming Languages other than VBA
Sub Example_Check() ' This example creates a new menu called TestMenu and inserts two menu items ' into it. The second menu item is then checked. ' The menu is displayed on the menu bar. ' To remove the menu after execution of this macro, use the Customize Menu ' option from the Tools menu. Dim currMenuGroup As acadMenuGroup Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) ' Create the new menu Dim newMenu As AcadPopupMenu Set newMenu = currMenuGroup.Menus.Add("TestMenu") ' Add two menu items to the new menu Dim Menu1 As AcadPopupMenuItem Dim Menu2 As AcadPopupMenuItem Dim MenuSeparator As AcadPopupMenuItem Dim openMacro As String ' Assign the macro string the VB equivalent of "ESC ESC _open " openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32) Set Menu1 = newMenu.AddMenuItem(newMenu.count + 1, "Open1", openMacro) Set MenuSeparator = newMenu.AddSeparator("") Set Menu2 = newMenu.AddMenuItem(newMenu.count + 1, "Open2", openMacro) ' Disable the new menu item Menu2.Check = True ' Display the menu on the menu bar newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.count + 1) End Sub
Comments? |