这个东东比较适用，尤其是对于工具箱的制作
不能只看见猪跑，怎么也得想法把它弄来吃肉才行
本帖最后由 xyp1964 于 2014-1-20 09:00 编辑
;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
;; 普通按钮界面
(defun c:tt ()
(setq lst '("xyp-gjg(钢筋钩)" "lljx(另类镜像)" "~bjcl(板筋处理)" "dtbj(动态板筋)" "zjpb(注筋排版)"
"zjzz(注筋左置)" "zjyw(注筋移位)" "gtcm(改图层名)" "zjct(桩基承台)" "~zjtj(桩基统计)"
"()" "pbwj(平板网架)" "qxhj(曲线桁架)" "lkjd(梁宽校对)" "lzxj(梁柱修剪)" "xyp-jzl(井字梁)"))
(xyp-Dcl-Fast0 '("XX工具" "V2014.1.19") lst)
(princ)
)
院长的东西永远都带有他深深的个人烙印，自称“伪源码”，必有XYP－XXX－XXX函数，都不单独发布。
本帖最后由 llsheng_73 于 2014-1-20 14:49 编辑
院长这个东东对于自己封装工具箱无疑很有用，这个东东其实主要涉及两个方面：对话框的显示和对话框的操作。根据参数表把对话框弄出来，这一点不难，因为它基本只有BUTTON，但对话框的操作比较麻烦，估计是用类似于建对话框的办法，写了一个临时LSP文件进行加载后来操作对话框，这应该是一个比较笨的办法，或者把key和对应的action弄到一个表里边，再用EVAL去action_tile，应该说这是比较实际的办法。但是，又怎么知道各个KET对应的ACTION呢，可能这个得从给的参数表里边解析，比如"xyp-gjg(钢结构)"被解析为"xyp-gjg"和"钢结构",与之对应的至少得有一个c:xyp-gjg或者xyp-gjg的defun作为响应过程。除此之外可能有别的办法，但一定不是以我的水平能想到的
院长威武！
路过，学习下
想用自定义函数库统一天下，未免小觑天下英雄
迷你面板才是真的高大上
为了保持 论坛 "AutoLISP/Visual LISP 编程技术"板块的健康持续发展，为了更好的帮助众多Lisp爱好者的提高水平和吸引更多的Lisp爱好者参与本论坛的学习和讨论，本版就发帖内容规则调整如下：
1、“AutoLISP/Visual LISP 编程技术”板块确定为LISP源码技术交流板块，大家尽可在本板块就LISP 编程技术展开任何讨论和提问，发帖时请一律发布源码或解决问题的思路、方法，不得发布编译的程序，更不得发布伪源码！违反规定者，一律删帖，并予以警告！
2、会员想要发编译程序的，可到本论坛“AutoCAD工具插件”板块或 “工具”板块进行发布。
3、在本版块，会员们可以发布自己解决问题的Lisp程序源代码，也可分享在学习Lisp过程中的经验之谈！也可以就学习和编写Lisp过程中遇到难点问题或不明白的地方发帖提问，回帖者请直接给出解决问题的源代码，或者给出解决问题的思路和方法，或者给出解决问题的链接来源！一律不允许发编译的程序或伪源码，违反者参照第一条执行。
4、中国有句古话叫“授人以鱼不如授人以渔”，本版块力求打造成为会员们答疑解惑的技术交流平台，帮助大家提高Lisp编程技巧和水平。若发帖者的目的仅仅是为求编写程序，则请到论坛“编程申请”板块发帖，不得在本版发布悬赏求程序贴，违反者版主有权予以警告，并将帖子转移到编程申请板块。
5、在本版发布非本人编写的源代码时，请尽量保留原作者版权信息或注明引用出处，违反者一律予以删贴和警告处理。
6、不得重复发帖，不得灌水，违反者一律删贴，并视情节严重者予以警告、禁言处分。
7、会员不得发布与Lisp技术无关的水贴，发帖内容不得带有抨击、诽谤、辱骂、诋毁、侮辱他人的文字、图片等内容。
8、会员不得发布任何形式的广告，违反者一律删贴，并视情节严重者予以警告、禁言或封杀ID处分。
9、发帖者必须遵守良好的社会公德和国家法律法规的规定，不得制作、复制、发布、传播任何违法信息，违反者一律封杀ID处理。
本规定自发布之日起实施！
谢谢分享…………