Para crear un menú nuevo, agregue un objeto PopupMenu a la colección PopupMenus con el método Add.
Para crear un menú contextual, primero debe eliminar uno ya existente. Sólo puede haber un menú contextual en cada grupo de menús. Si no hay otro menú contextual, puede añadir uno con la etiqueta “POP0”. Así indicará a AutoCAD que desea crear un menú de este tipo.
El método Add requiere como entrada el nombre (etiqueta) del menú que se desea añadir. Este nombre será el título del menú cuando se cargue en la barra de menús. Además, el nombre es la manera más fácil de identificar el menú en la colección.
El nombre de un menú puede ser una simple cadena de texto o contener códigos especiales. Los nombres de los menús se pueden cambiar después de su creación. Para cambiar el nombre de un menú existente, utilice la propiedad Name del menú.
En este ejemplo se crea un nuevo menú emergente llamado “TestMenu” en el primer grupo de menús de la colección MenuGroups.
Sub Ch6_CreateMenu()
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")
End Sub