Menuload Lisp Rotine Help

[ASCunningham]

I'm not very good at Lisp so I cannot figure out why this routine prompts me for a customization file. I think I have that already set but after starting AutoCAD you are prompted to enter a file name. Any help is much appreciated. Thanks

(defun find-menu-file (menu / mnuFile)
  (if (or (setq mnuFile (findfile (strcat menu ".cuix")))
      ); or
    mnuFile
  )
)
(if (setq mnuFile (find-menu-file "f:\\autocad\\ba-menu\\barton"))
      (command "menuload" mnuFile)
)

[Anonymous]

it probably cant find the given menu file

[ASCunningham]

I'm prompted to enter a custom menu name. Shouldn't this already be set from the lisp routine

[ASCunningham]

No it finds the menu and its loaded.

But its like the lisp routine is running again (repeating) itself. I don't think I have all the parentheses correct?

[john.uhden]

(defun find-menu-file (menu / mnuFile)
  (if (or (setq mnuFile (findfile (strcat menu ".cuix")))
      ); or   OR WHAT?
    mnuFile
  )
)

Although if it is found, then the or is superfluous.

But I am still running only ACAD2002, where MENULOAD is looking for a .MNU file.

Is that the right command to load a .CUIX file also?

[ActivistInvestor]

MENULOAD requires the path to a .cuix file.

---

@john.uhden wrote:

(defun find-menu-file (menu / mnuFile)
  (if (or (setq mnuFile (findfile (strcat menu ".cuix")))
      ); or   OR WHAT?
    mnuFile
  )
)

Although if it is found, then the or is superfluous.

But I am still running only ACAD2002, where MENULOAD is looking for a .MNU file.

Is that the right command to load a .CUIX file also?

---

[ActivistInvestor]

---

@ASCunningham wrote:

No it finds the menu and its loaded.

But its like the lisp routine is running again (repeating) itself. I don't think I have all the parentheses correct?

---

If the .cuix file is already loaded, MENULOAD repeats the prompt.

Try this:

(defun menuload (filename / path)
   (if (setq path (findfile (setq path (strcat filename ".cuix"))))
      (progn
         (command "._MENULOAD" path)
         (if (eq (getvar "CMDNAMES") "MENULOAD")
            (command)
         )
      )
      (princ (strcat "\nError: Customization file " filename " not found."))
   )
)

[ASCunningham]

Although the code doesn't have any error's when I run the routine, it doesn't load the menu if it's unloaded.

[ASCunningham · Accepted solution]

After doing some reading this is what I found

The reason is that once a Menu is loaded into AutoCAD, AutoCAD remembers it and reloads it from then automatically. You need to check to see if it is loaded before attempting to load it again or the routine will crash. Use the (menugroup) function to check.

In bold below is what I had to add to keep the routine from crashing. I'm sure there is a cleaner way if anyone would like to chime in. Thanks for all the help 

(defun find-menu-file (menu / mnuFile)
  (if (or (setq mnuFile (findfile (strcat menu ".cuix")))
           ); or
    mnuFile
  )
)
(if (setq mnuFile (find-menu-file "f:\\autocad\\ba-menu\\barton"))
(if (not (menugroup "BA"))
      (command "menuload" mnuFile)
)
)

[ActivistInvestor]

---

@ASCunningham wrote:

Although the code doesn't have any error's when I run the routine, it doesn't load the menu if it's unloaded.

---

Not true.

If you look at the code, you'll see that you can't include an extension.

If you call the function with only the name of the menu file, it loads the menu:

Command: (command "._MENUUNLOAD" "APPMANAGER")
._MENUUNLOAD
Enter the name of a Customization Group to unload:APPMANAGER
Customization file unloaded successfully. Customization Group: APPMANAGER

Command: (menugroup "APPMANAGER")
nil

Command: (menuload "appmanager")
._MENULOAD
Customization file loaded successfully. Customization Group: APPMANAGER