Load Mnu file via lisp

Hello guys,

I have to create and load a simple menu from acaddoc.lsp.

This is the mnu file

***MENUGROUP=Cordoli

***POP1					
P1-1[Cordoli]				
P1-2[&Load APP]				
P1-3[&Help]

How can I add istruction to load my lisp in this file?

(load "cordoli.vlx")

Then i have to load the mnu file via acaddoc.lsp. How can i perform this step?

Maybe in this way?

(vl-load-com)
(setq *mgs* (vla-get-menugroups (vlax-get-acad-object)))
(vla-load *mgs* "cordoli")

Loading the .mnu file with "_menuload" work with autocad 2009, but with my 2015 it doesn't appear in the menu bar.

Thanks for the help!

Dennis

Hello guys,

I have to create and load a simple menu from acaddoc.lsp.

 

This is the mnu file

***MENUGROUP=Cordoli

***POP1					
P1-1[Cordoli]				
P1-2[&Load APP]				
P1-3[&Help]

 

How can I add istruction to load my lisp in this file?

(load "cordoli.vlx")

 

Then i have to load the mnu file via acaddoc.lsp. How can i perform this step?

Maybe in this way?

(vl-load-com)
(setq *mgs* (vla-get-menugroups (vlax-get-acad-object)))
(vla-load *mgs* "cordoli")

Loading the .mnu file with "_menuload" work with autocad 2009, but with my 2015 it doesn't appear in the menu bar.

Thanks for the help!

 

Dennis

create .mns file and load with _menuload

Can you explain me a little more?

in the meantime i found that:

(vl-load-com)
(defun c:Example_OnMenuBar()
   ;; 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.
   (setq acadObj (vlax-get-acad-object))
   (setq currMenuGroup (vla-Item (vla-get-MenuGroups acadObj) 0))
   
   ;; Create the new menu
   (setq newMenu (vla-Add (vla-get-Menus currMenuGroup) "TestMenu"))
   
   ;; Add a menu item to the new menu
   ;; Assign the macro string the VB equivalent of "ESC ESC _open "
   (setq openMacro (strcat (Chr 3) (Chr 3) (Chr 95) "open" (Chr 32)))
   (setq newMenuItem (vla-AddMenuItem newMenu (1+ (vla-get-Count newMenu)) "Open" openMacro))
   
   ;; Display the menu on the menu bar
   (vla-InsertInMenuBar newMenu (1+ (vla-get-Count (vla-get-MenuBar acadObj))))
   (if (= (vla-get-OnMenuBar newMenu) :vlax-true)
       (alert (strcat "The menu called " (vla-get-Name newMenu) " is on the menu bar."))
       (alert (strcat "The menu called " (vla-get-Name newMenu) " is not on the menu bar."))
   )
   
   ;; Remove the menu from the menu bar
   (vla-RemoveMenuFromMenuBar (vla-get-Menus currMenuGroup) "TestMenu")
   (if (= (vla-get-OnMenuBar newMenu) :vlax-true)
       (alert (strcat "The menu called " (vla-get-Name newMenu) " is on the menu bar."))
       (alert (strcat "The menu called " (vla-get-Name newMenu) " is not on the menu bar."))
   )
)

Are you wanting to load the MENU file so that it's the only menu loaded, or load it as a partial?

I don't know if i got your question but I want to load it with all the others (acad and so on).

(defun c:Crea_menu()
   ;; 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.
   (setq acadObj (vlax-get-acad-object))
   (setq currMenuGroup (vla-Item (vla-get-MenuGroups acadObj) 0))
   
   ;; Create the new menu
   (setq newMenu (vla-Add (vla-get-Menus currMenuGroup) "Cordoli"))
   
   ;; Add a menu item to the new menu
   ;; Assign the macro string the VB equivalent of "ESC ESC _open "
   (setq openMacro (strcat (Chr 3) (Chr 3) (Chr 95) "cordolo" (Chr 32)))
   (setq newMenuItem (vla-AddMenuItem newMenu (1+ (vla-get-Count newMenu)) "Avvia l'applicazione" openMacro))

   
   ;; Display the menu on the menu bar
   (vla-InsertInMenuBar newMenu (1+ (vla-get-Count (vla-get-MenuBar acadObj))))

)

This seems to work in acad2009, but not in acad2015

Okay, so you want to load it as a partial menu.

What happens if you code runs and the menu is already loaded?

I don't know, maybe i'll get an error.. need to try it.

Why it doesn't appear in autocad2015?

Do you need to load every time ? Why not load it once and just use a workspace you can turn menu's off and on in a workspace. Every one here works in a workspace of their name, so deafult workspaces are not screwed up.

Hello Bigal, this is the second time i write this post because my pc crashed

Well, when I install other add-on i get a menubar/ribbon in my workplace. I want to do exactly the same with mine.

There is a difference between mine and other add-ons: my menubar disappear if i change workplace (or i refresh it)!

In this moment I'm doing all with acaddoc.lsp, but I'm sure there is a better way to do that. I'm looking for that way.

I've also created a cordoli.cuix for show ribbons in autocad2015 and i call it alway by acaddoc.lsp with this command: (command "_menuload" "C:\\COBIAX\\cordoli.cuix")

How can make a "professional" add-on fixing these problems ?

thanks, Dennis

cordoli.cuix.zip

In addition i got this problem:

Command line can't load

You need to Save Workspace after loading a mnu etc else it will be gone for next session. We have individual workspace for each user so force a save to their name, we do not have autoupdate on as any mistake gets saved and makes fixing much harder.