Topic: Ading and removing menus

[iliekater]

Is it possible to load menus (*.mnu files) or remove them with code ? Considering that the *.mnu file is located in a support path .

[TR]

You can build the menus right in your code. Check custom_menu.dvb from {ACAD_DIR}\Sample\VBA\VBAIDEMenu\.

[mohnston]

Just know that 2007 handles menus very differently.
The code that works for 2004 will not work for 2007 and menus in 2007 are difficult.

[iliekater]

Oh , great ... I am supposed to write a program that should work for all users , but now I see that this is going to be impossible ...

[David Hall]

Not impossible, just a whole lot of fun.  So what are you trying to do, maybe we can help

[iliekater]

I know it is funny replying to a VBA topic with Lisp code , but then again knowlendge is knoelenge and should not be hidden ( ) .
I found a way to easily load and remove menus :
First of all , I set the filedia system varible to 0 in order to manipulate AutoCAD by code .
The I use the MENULOAD command to load the menu I wish and then the MENUUNLOAD to remove it !
I restore the filedia value and that's it !

Well , no ... And the reason is I still haven't inserted the menu drop down in the menu line . Does anyone know how I could do that with code ?

[David Hall]

Code: [Select]

Sub Example_InsertInMenuBar()
    ' This example creates a new menu called TestMenu and inserts a menu item
    ' into it. The menu is then displayed on the menu bar.
    ' To remove the menu after execution of this macro, use the Customize Menu
    ' option from the Tools menu.
   
    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 string the VB equivalent of "ESC ESC _open "
    openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
   
    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
 


[David Hall]

and removing

Code: [Select]

Sub Example_RemoveFromMenuBar()
    ' This example creates a new menu called TestMenu and inserts a menu item
    ' into it. The menu is then displayed on the menu bar, and then
    ' removed from the menu bar.
   
    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 string the VB equivalent of "ESC ESC _open "
    openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
   
    Set newMenuItem = newMenu.AddMenuItem(newMenu.count + 1, "Open", openMacro)
   
    ' Display the menu on the menu bar
    newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.count + 1)
    GoSub QUERYMENU
   
    ' Remove the menu from the menu bar
    newMenu.RemoveFromMenuBar
    GoSub QUERYMENU
    Exit Sub
   
QUERYMENU:
    If newMenu.OnMenuBar Then
        MsgBox "The menu called " & newMenu.name & " is on the menu bar."
    Else
        MsgBox "The menu called " & newMenu.name & " is not on the menu bar."
    End If
    Return
       
End Sub

[iliekater]

Yes , I know I know ... I show this at the VBA Help while I was in the berou this afternoon . But I found an even easier method ! Using AutoLISP ! Here it is :

( menucmd "P12=+MyMenuGroup.MyMenuName" )

will load the the specified menu (MyMenuName) from a specified menu group (MyMenugroup) which should already be loaded by using the MENLOAD comand . In the example above , the menu is added before the position 12 on the menu line .

Thus with only 3 lines , one can Load , Specify pozition and Unload a menu !