把结束部分的代码修改一下，以支持直接写lisp代码。
原代码：
(if (= (eval (read (strcat "(type c:" tt ")"))) 'SUBR)
(eval (read (strcat "(c:" tt ")")))
(vl-cmdf tt )
)
修改后：
(if (= (substr tt 1 1)"(" )
(eval (read tt))
(vl-cmdf tt )
)
改后支持定义表：
(list
(list "文本处理"
;;(list按钮标签运行的命令 ),命令类型分lisp代码和其它命令两种
(list "单行合并为单行" "(TextsCombine)" )
(list "单行合并为多行" "(***)")
(list "单行转多行" "(***)" )
(list "炸开文本" "***")
)
(list "数字处理"
(list "递增复制" "(c:***)")
)
)
guangdonglbq 发表于 2015-10-9 09:01 static/image/common/back.gif
把结束部分的代码修改一下，以支持直接写lisp代码。
原代码：
(if (= (eval (read (strcat ...
你是第一个提交修改代码的
guangdonglbq 发表于 2015-10-9 09:01 static/image/common/back.gif
把结束部分的代码修改一下，以支持直接写lisp代码。
原代码：
(if (= (eval (read (strcat ...
来一个示列如何?
szmaicy 发表于 2015-10-9 18:00 static/image/common/back.gif
你是第一个提交修改代码的
楼主的代码很经典，用起来很舒服，还是提点自己不成熟的看法：
1 (add_dclrow "curpanel:dialog{label=\"面板工具箱\";alignment=centered;vertical_margin=none;horizontal_margin=none;")
标题 label=\"面板工具箱\ 这个做成变量，改成可以自己定义的会比较好，这样其他的子面板容易区分。
2 面板底部增加个image_button ，可以返回主面板，来回切换方便，这个主要是抄院长的，话说院长的工具箱还是比较牛X的。。
3guangdonglbq 修改的确实好用，我改成了：
(if (= (substr tt 1 1)"(" )
(eval (read tt))
(if (or (=(setq n (eval (read (strcat "(type c:" tt ")"))))'SUBR)(= n 'list))
(eval (read (strcat "(c:" tt ")")))
(vl-cmdf tt )
)
)
主要是兼容AUTOCAD和中望的格式。
4 去掉了 num_image 0 及相关 的分割线，个人习惯问题。
(if (= 4 in)
(progn (add_dclrow (strcat ":curimage{key=\"ima" (itoa num_image) "\";color=18;}"))
(setq in 0)
)
)
主要原因为：不知为何，在中望中，老是显示混乱的界面。跟软件应该有关。
Powered by Discuz! X2.5
© 2001-2012 Comsenz Inc.
正要学习怎么加面板呢，刚学会加菜单
有救了，。。不必记自定义命令名了
谢谢分享，学习中…………
自己编写的lisp要怎么加进去啊
redcat 发表于 2011-1-7 16:07
在老迈的基础上修改了一下：主要是文件生成和删除2个函数（请麦工不要生气，呵呵^_^）
请教你一个比较基础的问题，像这些命令我要怎么才能使用啊？