Especificar el parámetro Tag
Adición de nuevos elementos de menú a un menú
Adición de separadores a un menú
Una macro es una serie de comandos que ejecutan acciones específicas cuando se selecciona un menú. Las macros de menús pueden ser simples registros de pulsaciones de teclas que efectúen una tarea o una combinación compleja de comandos, AutoLISP, DIESEL, o código de programación de ActiveX.
Si desea cambiar la macro después de crear la opción de menú, utilice la propiedad Macro.
Adición de opciones a un menú emergente
En este ejemplo se crea un nuevo menú llamado “TestMenu” y se inserta en el mismo una opción de menú. La opción de menú recibe el nombre “Open” y la macro que se le asigna es el comando OPEN.
Sub Ch6_AddAMenuItem()
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 a menu item to the new menu
Dim newMenuItem As AcadPopupMenuItem
Dim openMacro As String
' Assign the macro the VBA equivalent of "ESC ESC _open "
openMacro = Chr(3) + Chr(3) + "_open "
Set newMenuItem = newMenu.AddMenuItem _
(newMenu.count + 1, "Open", openMacro)
' Display the menu on the menu bar
newMenu.InsertInMenuBar _
(ThisDrawing.Application.menuBar.count + 1)
End Sub