[求助]：用程序加载菜单

松松鼠

我想知道，怎样用程序的方法实现菜单的卸载与加载？

AyungerStudio

;;; No.1 加载菜单   
;;;******************
(defun C:AY(/ Menufilename)
        (if (null (menugroup "ayunger"));autoCAD中未加载给菜单组.
                (progn
                        (setq Menufilename (findfile "ayunger.mnu"));Search from autocad setup folder.
                        (if (null Menufilename)
                                (setq Menufilename (getfiled "打开AYUNGER菜单文件" "Ayunger.mnu" "mnu" 4))
                        );end_if
                        (if (null Menufilename) (exit));open dialog is ""Cancle" press.
                        (command "_menuload" Menufilename)
                        (menucmd "P16=+Ayunger.POP1")
                );end_progn
        );end_if
);end_defun

;;; No.2 卸载菜单     
;;;*******************
(defun C:UnAY()
        (if (= "AYUNGER" (strcase (menugroup "ayunger"))) (command "menuunload" "Ayunger"))
);end_defun

菜单文件Ayunger.mnu:
***MENUGROUP=AYUNGER
***POP1
[AY工具(&A)]
[->绘图类(&R)]
  [单线或双线箭头 (Arw)]^C^CArw
  .......
  [<-锥坡线方法二 (Zpx1)]^C^CZpx1

敬供参考！！！！！！！！！

sjl_fyl

谢谢