Creación de submenús en cascada
Creación y modificación de menús desplegables y contextuales
Examen de propiedades de elementos de menú
Para eliminar elementos de un menú, utilice el método Delete del elemento de menú.
AdvertenciaSi suprime una opción de menú, no invoque otros métodos o propiedades que directa o indirectamente vuelvan a cargar el mismo archivo IUP dentro de la misma macro. Por ejemplo, después de suprimir una opción de menú, no utilice el método MenuGroup Load ni la propiedad Preferences.Profiles.ActiveProfile, ni utilice el comando “Menuload” usando el método Document.SendCommand. Estas opciones causan directa o indirectamente la carga de archivos IUP. Solo debe usar estos métodos o propiedades en una macro separada.
Eliminación de una opción de un menú
Este ejemplo añade un elemento de menú al final del último menú mostrado en la barra de menús. Después elimina el elemento.
Sub Ch6_DeleteMenuItem()
Dim LastMenu As AcadPopupMenu
Set LastMenu = ThisDrawing.Application.menuBar. _
Item(ThisDrawing.Application.menuBar.count - 1)
' Add a menu item
Dim newMenuItem As AcadPopupMenuItem
Dim openMacro As String
' Assign the macro the VB equivalent of "ESC ESC _open "
openMacro = Chr(3) + Chr(3) + "_open "
Set newMenuItem = LastMenu.AddMenuItem _
(LastMenu.count + 1, "Open", openMacro)
' Remove the menu item from the menu
newMenuItem.Delete
End Sub