Loading Partial Menu's
In AutoCAD R14 you have no problems in
loading Partial Menu's.
AutoCAD Release 13, though is a different story!
Every time you re-start AutoCad you have to manually re-load the partial
menu.
If you load it from your Acad.Lsp using the menuload command that works
fine the first time you enter AutoCad. But as soon as you open another
drawing you get an error in your Acad.lsp file with Autocad telling you
that the partial menu is already loaded.
The following is an extract from the
AutoCAD Custumization Manual :
To determine if a menu file is currently
partially loaded, you can use the following syntax with any POP menu item
(it works with only a POP menu item) :
(menucmd "Gmenugroup.nametag=?")
If the menu file is currently loaded, this
will return a nonnil value
otherwise it will return nil.
Example : Use the following code in your
Acad.lsp file.
You must have a partial menu named TEST.MNU and a POP menu item called
AMENUITEM. (You can, of course, use your own Menu and POP names).
;;*-------------------------------------------------------------------
(defun S::STARTUP ()
;define Startup function
(setq temp (menucmd "GTEST.AMENUITEM=?"))
;is the POP item loaded?
(if (= temp nil)
;test it
(progn
;if it is not loaded
(setvar "filedia" 0)
;suppress dialog boxes
(command "menuload" "TEST")
;load Menu
(menucmd "P8=+TEST.POP1")
;load POP1
(menucmd "P9=+TEST.POP2")
;load POP2
(setvar "filedia" 1)
;restore dialogs
);progn
);if
(prompt "\nPartial Menu Loaded....\n")
;prompt user
(princ)
);defun
;*---------------------------------------------------------------------
|