lisp 创建自定义菜单

咏郡

chslwj521 发表于 2024-2-29 20:59
如何取消？晕，那个菜单加上了，就下不来了。。。

(command "MENUUNLOAD""klscl")

chslwj521

咏郡 发表于 2024-4-1 21:37
(command "MENUUNLOAD""klscl")

是的，我找到了，谢谢！！

atone

好工具，值得研究

lovewanting002

感谢分享，学习了，在这里学习了lisp自动卸载菜单文件

sjl_fyl

谢谢，学习了

yerenyu@qq.com

这个比较友好，好看懂

chenbh2

强大，非常好用，适合加载！

红豆沙煎焖子

写完之后，分组的状态有点错乱， 请教一下大神怎么把这个类别放到一列呢，做出一个分组的效果

预知幸福

生成的cui，mnu文件 能不能放到指定的文件夹内 这样文件看起来不会乱槽槽的 期待呀

xyp1964

预知幸福 发表于 2024-10-26 09:53
生成的cui，mnu文件 能不能放到指定的文件夹内 这样文件看起来不会乱槽槽的 期待呀

1. ;; 说明：用lisp创建菜单
   
2. (defun c:tt ()
   
3.   (setvar "filedia" 0)
   
4.   (if (not (menugroup "yzxf"))
   
5.     (progn
   
6.       (setq path (getvar "dwgprefix"))
   
7.       (setq fn (strcat path "yzxf.mnu")
   
8.             f  (open fn "W")
   
9.       )
   
10.       (write-line "***MENUGROUP=yzxf" f)
    
11.       (write-line "***POP1" f)
    
12.       (write-line "[预知幸福系统]" f) ;菜单头
    
13.       (write-line "[--]" f) ; 分界符
    
14.       (write-line "[脱硫废水系统 TLFS]^C^CTLFS" f) ; 点击执行^c^c后边的tlfs程序
    
15.       (write-line "[--]" f)
    
16.       (write-line "[查询参数 CXCS]^C^CCXCS" f)
    
17.       (write-line " [->设置图块]" f) ; 向右弹出
    
18.       (write-line "  [可分解 KKFJ]^C^CKKFJ" f)
    
19.       (write-line " [<-不可分解 KBFJ]^C^CKBFJ" f) ; 弹完得回去
    
20.       (close f)
    
21.       (command ".menuload" fn)
    
22.       (if (menugroup "yzxf")
    
23.         (progn
    
24.           (setq i 1)
    
25.           (while (< i 24)
    
26.             (if (menucmd (strcat "p" (itoa i) ".1=?"))
    
27.               (setq i (1+ i))
    
28.               (progn
    
29.                 (menucmd (strcat "p" (itoa i) "=+yzxf.pop1"))
    
30.                 (setq i 25)
    
31.               )
    
32.             )
    
33.           )
    
34.         )
    
35.       )
    
36.     )
    
37.   )
    
38.   (setvar "filedia" 1)
    
39.   (princ)
    
40. )

;; 说明：用lisp创建菜单<br /> (defun c:tt ()<br />   (setvar "filedia" 0)<br />   (if (not (menugroup "yzxf"))<br />     (progn<br />       (setq path (getvar "dwgprefix"))<br />       (setq fn (strcat path "yzxf.mnu")<br />             f  (open fn "W")<br />       )<br />       (write-line "***MENUGROUP=yzxf" f)<br />       (write-line "***POP1" f)<br />       (write-line "[预知幸福系统]" f) ;菜单头<br />       (write-line "[--]" f) ; 分界符<br />       (write-line "[脱硫废水系统 TLFS]^C^CTLFS" f) ; 点击执行^c^c后边的tlfs程序<br />       (write-line "[--]" f)<br />       (write-line "[查询参数 CXCS]^C^CCXCS" f)<br />       (write-line " [->设置图块]" f) ; 向右弹出<br />       (write-line "  [可分解 KKFJ]^C^CKKFJ" f)<br />       (write-line " [<-不可分解 KBFJ]^C^CKBFJ" f) ; 弹完得回去<br />       (close f)<br />       (command ".menuload" fn)<br />       (if (menugroup "yzxf")<br />         (progn<br />           (setq i 1)<br />           (while (< i 24)<br />             (if (menucmd (strcat "p" (itoa i) ".1=?"))<br />               (setq i (1+ i))<br />               (progn<br />                 (menucmd (strcat "p" (itoa i) "=+yzxf.pop1"))<br />                 (setq i 25)<br />               )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (setvar "filedia" 1)<br />   (princ)<br /> )