lisp 创建自定义菜单

langjs · 发表于 2014-6-15 01:42:18

本帖最后由 langjs 于 2014-6-15 01:57 编辑

以前发过一个lisp创建自定义工具栏，http://bbs.mjtd.com/thread-92860-1-1.html
现在补一个创建自定义菜单程序。
加载这个程序就自动创建了一个新的菜单在CAD上了

刚才看到G版发了一个VisualLisp自动添加菜单项源码，等有空再研究研究。

先来张图：

;; ==============================================================
;;; 说明：用lisp创建菜单
;;; 作者：langjs    qq:59509100　　       　日期:2014年6月
;;; ==============================================================
(defun create_klscl (/ f i)
  (if (not (menugroup "KLSCL"))             ; 如果cad没有加载klscl菜单则，得干啥呢....
(progn
   (alert "\n程序自动创建\"KLSCL\"菜单，请稍后")
   (setq f (open "KLSCL.mnu" "W"))  ; 建立klscl.mnu菜单文件，得写点东西在里边
   (write-line "***MENUGROUP=KLSCL" f) ; 菜单名称就叫klscl吧
   (write-line "" f)                      ; 不用管它，这行就这个
   (write-line "***POP1" f)             ; 这行还不用管
   (write-line "" f)                      ; 接着不管。。。
   (write-line "             [KL水处理系统]" f) ; 显示的菜单头，没头可不行
   (write-line "             [--]" f) ; 一个分界符，纯粹为了好看
   (write-line "             [脱硫废水系统  TLFS]^C^CTLFS" f) ; 点击这个执行^c^c后边的tlfs主程序
   (write-line "             [--]" f) ; 再来一个分界符，帅多了
   (write-line "             [查询参数    CXCS]^C^CCXCS" f) ; 点击这个执行cxcs主程序
   (write-line "          [->设置图块       ]" f) ; 向右弹出。。。
   (write-line "             [可分解 KKFJ]^C^CKKFJ" f) ; 真弹了一个东东来
   (write-line "          [<-不可分解  KBFJ]^C^CKBFJ" f) ; 弹完得回去了
   (close f)                            ; 写完菜单关了吧
   (command "menuload" "KLSCL.mnu") ; 加载看看行不行
   (if (menugroup "KLSCL")             ; 真加载了！
      (progn                            ; 计算现有菜单数量，得把菜单安排个合适位置
      (setq i 1)
      (while (< i 24)
         (if (menucmd (strcat "p" (itoa i) ".1=?"))
            (setq i (1+ i))
            (progn
            (menucmd (strcat "p" (itoa i) "=+KLSCL.pop1")) ; 显示出klscl来鸟！那个i也可以是（- i 2）
            (setq i 25)
      ))))))
  )
  (princ)
)
(create_klscl)  ;;; 调用上边的子程序，加载lisp程序就加载了

;;; 我的其它程序，与创建菜单程序没啥大关系
(defun c:tlfs ()  (alert "\n私人程序，真不提供。"))
(defun c:cxcs ()  (alert "\n私人程序，真不提供。"))
(defun c:kkfj ()  (alert "\n私人程序，真不提供。"))
(defun c:kbfj ()  (alert "\n私人程序，真不提供。"))

sharetow · 发表于 2019-6-14 15:25:24

强大，非常好用，适合初学lisp

15264769719 · 发表于 2023-4-1 15:03:50

还没学会，我只会加载

hn10183051 · 发表于 2019-8-16 11:08:08

360527010 发表于 2015-4-28 22:31
请问下，这个加载程序是否有数量限制的？为什么我加到第25个lisp插件的时候就无法加载了？

解决了吗？我也遇到同样的问题

yangchao2005090 · 发表于 2017-12-13 11:53:22

楼主，请问这一步(defun c:tlfs () (alert "\n私人程序，真不提供。")) 具体怎么操作啊，比如20+个lsp程序，需要放到一个文件夹下吗？还是？

叮咚 · 发表于 2014-6-15 20:11:14

真心不错

xhq1954425 · 发表于 2014-6-15 05:31:00

本帖最后由 xhq1954425 于 2014-6-15 06:30 编辑

厉害！

如果同时加载几个下拉菜单怎样改写……？

360527010 · 发表于 2014-6-15 10:37:39

求指点，不懂如何使用

自贡黄明儒 · 发表于 2014-6-15 10:39:18

赞一个，不错

edata · 发表于 2014-6-15 11:40:05

很好的菜单制作实例。。。
(write-line " [&KL水处理系统]" f) ; 显示的菜单头，没头可不行
&加热键

emk · 发表于 2014-6-15 12:08:28

狼大师帖子要看的

langjs · 发表于 2014-6-15 16:01:53

360527010 发表于 2014-6-15 10:37
求指点，不懂如何使用

考下来存为XX.lsp文件。在CAD里边直接加在这个lisp程序

phoevana · 发表于 2014-6-15 17:08:42

大师们同时出手，我等有福了，支持学习

lite · 发表于 2014-6-15 20:24:19

不错，只是加载菜单的速度较慢

账号		自动登录	找回密码
密码			注册

[源码] lisp 创建自定义菜单

本帖子中包含更多资源

点评

本帖被以下淘专辑推荐:

相关帖子

本帖子中包含更多资源