[求助]如何用MENUCMD强制显示菜单

qmqyqj

怎么卸载自己添加的菜单栏呢?

nyistjz

以下加载并强制显示菜单，代码供参考

(defun C:loadfstl ()
       (command "menuload" "UserDataCache\\FSTL\\System\\Menu\\fstl.mnu" )
       (setq i 1)
       (while (< i 24)
              (if (menucmd (strcat "p" (itoa i) ".1=?" ))
                     (setq i (1+ i))
                     (progn
                            (menucmd (strcat "p" (itoa i) "=+fstl.POP3" ))
                            (menucmd (strcat "p" (itoa i) "=+fstl.POP2" ))
                            (menucmd (strcat "p" (itoa i) "=+fstl.POP1" ))
                            (setq i 25)
                     );end progn
              );end if
       );end while
);end defun;defun
(princ)

nyistjz

如下可卸载

(command "menuunload" "fstl" )

sjl_fyl

谢谢