简单的自定面板函数

guangdonglbq · 发表于 2015-10-9 09:01

把结束部分的代码修改一下，以支持直接写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:***)")
   )
)

szmaicy · 发表于 2015-10-9 18:00

guangdonglbq 发表于 2015-10-9 09:01
把结束部分的代码修改一下，以支持直接写lisp代码。
原代码：
(if (= (eval (read (strcat ...

你是第一个提交修改代码的

morsin · 发表于 2015-10-9 18:50

guangdonglbq 发表于 2015-10-9 09:01
把结束部分的代码修改一下，以支持直接写lisp代码。
原代码：
(if (= (eval (read (strcat ...

来一个示列如何?

hbgsw · 发表于 2015-11-23 10:58

szmaicy 发表于 2015-10-9 18:00
你是第一个提交修改代码的

楼主的代码很经典，用起来很舒服，还是提点自己不成熟的看法：
1 (add_dclrow "curpanel:dialog{label=\"面板工具箱\";alignment=centered;vertical_margin=none;horizontal_margin=none;")
  标题 label=\"面板工具箱\ 这个做成变量，改成可以自己定义的会比较好，这样其他的子面板容易区分。
2 面板底部增加个image_button ，可以返回主面板，来回切换方便，这个主要是抄院长的，话说院长的工具箱还是比较牛X的。。
3  guangdonglbq 修改的确实好用，我改成了：
(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)
            )
         )
主要原因为：不知为何，在中望中，老是显示混乱的界面。跟软件应该有关。

小万LISP · 发表于 2015-11-23 13:52

moistmist · 发表于 2015-12-3 10:06

正要学习怎么加面板呢，刚学会加菜单

冒个烟圈 · 发表于 2016-1-23 14:07

有救了，。。不必记自定义命令名了

知行ooo李肖坪 · 发表于 2016-1-24 07:20

谢谢分享，学习中…………

窗外流逝的时光 · 发表于 2016-5-16 14:39

自己编写的lisp要怎么加进去啊

freeok · 发表于 2016-10-5 15:31

redcat 发表于 2011-1-7 16:07
在老迈的基础上修改了一下：主要是文件生成和删除2个函数（请麦工不要生气，呵呵^_^）

请教你一个比较基础的问题，像这些命令我要怎么才能使用啊？

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

[资源] 简单的自定面板函数