Adici髇 de entradas al men� contextual

From AutoCAD ActiveX

previous page next page

Creación de mensajes de ayuda en la línea de estado para elementos de menús y de barras de herramientas

Personalización de barras de herramientas y menús

Utilización de eventos

Manual del desarrollador de ActiveX y VBA > Personalización de barras de herramientas y menús >

Adición de entradas al menú contextual

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

previous page start next page