[求助]：如何在安装程序中自动加载菜单

金爵士

我用lisp语言编写了一个菜单,在cad中输入命令出现菜单,但是cad重新启动后该菜单就消失了,我该如何保证在程序安装后,cad能加载我的应用菜单!不吝赐教为谢!

xshrimp

下面是我根据秋枫提供的安装程序改编的
你可以参考一下.
[php]
;;;-----------------------------------------
;;; 根据不同的AutoCAD版本加载不同的菜单文件：
(defun Load_shlispMenu (/ acadver)
  (setq acadver (atof (getvar "acadver")))
  (cond
;;下面是cad2002
    ((and (>= acadver 15.0) (< acadver 16.0))        
                  (command "_menuload" "shlisp.mnu")            
    )
;;下面是cad2004
    ((and (>= acadver 16.0) (<= acadver 16.1))      
                  (command "_menuload" "shlisp.mnu")
     )
;;下面是cad2006
    ((>= acadver 16.2) (command "_menuload" "shlisp.mnu"))
  )
)
;;;----------------------------------------------
;; 如果菜单组还没有被加载，则加载之
  (if (not (menugroup "shlisp"))
    (Load_shlispMenu)
  )
[/php]