El menú contextual, o de cursor, es un menú especial incluido en el grupo de menús base de AutoCAD. Este menú aparece al mantener presionada la tecla MAYÚS y hacer clic con el botón derecho del ratón.
Para encontrar el menú contextual, AutoCAD busca en el grupo de menús de base un menú cuya propiedad ShortcutMenu sea TRUE. Para añadir nuevos elementos al menú contextual, siga los pasos enumerados en Adición de nuevos elementos de menú a un menú.
Los nuevos grupos de menús pueden tener o no un menú contextual disponible. Para crear un menú contextual para un grupo de menús, siga las directrices indicadas en Creación de menús nuevos y utilice POP0 como etiqueta del nuevo menú.
Adición de una opción de menú al final del menú contextual
En este ejemplo se añade la opción de menú “OpenDWG” al final del menú contextual.
Sub Ch6_AddMenuItemToshortcutMenu()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
' Find the shortcut menu and assign it to the
' shortcutMenu variable
Dim scMenu As AcadPopupMenu
Dim entry As AcadPopupMenu
For Each entry In currMenuGroup.Menus
If entry.shortcutMenu = True Then
Set scMenu = entry
End If
Next entry
' Add a menu item to the shortcut 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 = scMenu.AddMenuItem _
("", Chr(Asc("&")) _+ "OpenDWG", openMacro)
End Sub