[编程交流] 使用Visual Lisp添加菜单

(defun LOADMENU (/ ERR OLDCMD)
 (setq OLDCMD (getvar "cmdecho"))
 (setvar "cmdecho" 0)
 (foreach MenuName (list "Adservco_2010" "Kojacek_2010" "Tools_2010")  
   (if (not (menugroup MenuName))
     (if (findfile (strcat MenuName ".cuix"))
       (progn
         (command "_cuiload" MenuName)
         (princ (strcat "\n>> Menu [" MenuName "] loaded."))
       )
       (if (not ERR)
         (setq ERR (strcat "\n- " MenuName))
         (setq ERR (strcat ERR "\n- " MenuName))
       )
     )
   )
 )
 (if ERR
   (alert (strcat "\nCan't find partial menu:" ERR))
 )
 (setvar "cmdecho" OLDCMD)
 (princ)
)
(LOADMENU)
(princ)

; Get AutoCAD
(setq *acad* (vlax-get-acad-object))
; Get the loaded menugroups
(setq *mgs* (vla-get-Menugroups *acad*))
; Get a particular menugroup
(setq *menu* (vlax-invoke-method *mgs* "Item" 0))
; Get the menus in this menugroup
(setq *pops* (vla-get-menus *menu*))
; Get a particular menu
(setq *pop* (vlax-invoke-method *pops* "Item" 5))
; Insert it
(vla-InsertInMenuBar *pop* 5)