社区 › AutoLISP/Visual LISP 编程技术 › [求助]如何用MENUCMD强制显示菜单

qmqyqj 发表于 2018-11-21 15:28:10

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

nyistjz 发表于 2018-12-8 10:47:31

本帖最后由 nyistjz 于 2018-12-8 10:48 编辑

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

(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 发表于 2018-12-8 10:48:00

如下可卸载

(command "menuunload" "fstl" )

sjl_fyl 发表于 2023-12-28 15:06:34

{:1_1:}谢谢

查看完整版本: [求助]如何用MENUCMD强制显示菜单