Especificar el parámetro Macro

AutoCAD ActiveX

previous page next page

Especificar el parámetro Tag

Adición de nuevos elementos de menú a un menú

Adición de separadores a un menú

Manual del desarrollador de ActiveX y VBA > Personalización de barras de herramientas y menús > Creación y modificación de menús desplegables y contextuales > Adición de nuevos elementos de menú a un menú >

Especificar el parámetro Macro

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

previous page start next page