xyp1964 发表于 2014-1-16 23:46:26

【自定义按钮面板】


(defun c:tt ()
(setq        lst '(("钢筋、书写"
             ("xyp-gjg(钢筋钩)" "lljx(另类镜像)" "()"        "~bjcl(板筋处理)" "dtbj(动态板筋)")
              )
              ("注筋、标注"
             ("zjpb(注筋排版)" "zjzz(注筋左置)" "()" "zjyw(注筋移位)"        "gtcm(改图层名)")
              )
              ("桩基网架"
             ("zjct(桩基承台)" "~zjtj(桩基统计)" "()"        "pbwj(平板网架)" "qxhj(曲线桁架)")
              )
              ("编辑处理"
             ("glbh(改粱编号)" "lkjd(梁宽校对)" "()" "lzxj(梁柱修剪)"        "xyp-jzl(井字梁)")
              )
             )
)
(xyp-Dcl-ButtonM '("XX工具" "V2014.1.16") lst nil)
(princ)
)

tjuzkj 发表于 2014-1-17 09:25:23

xyp-Dcl-ButtonM函数可以参考这个帖子：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=84942

yaokui25 发表于 2014-1-17 06:17:52

嘿嘿，先占个位置。

yaokui25 发表于 2014-1-17 06:26:40

占个位置先
嘿嘿

自贡黄明儒 发表于 2014-1-17 08:07:05

xyp-Dcl-ButtonM 这个放出来就火了

ynhh 发表于 2014-1-17 09:41:20

取消左边那个红图标
感觉好复杂啊

kwok 发表于 2014-1-17 11:43:50

"xyp-gjg(钢筋钩)"前面的字母是命令吧，
酷，

xyp1964 发表于 2014-1-17 12:20:41

kwok 发表于 2014-1-17 11:43 static/image/common/back.gif
"xyp-gjg(钢筋钩)"前面的字母是命令吧，
酷，

xyp-gjg(钢筋钩)：xyp-gjg是快捷键，括号内是按钮显示内容

"()" : 为空行
前面加“~”：按钮变灰

海盗曹 发表于 2014-1-17 12:26:01

好高端大气啊

zhl0123321 发表于 2014-1-17 13:36:44

xyp1964 大侠既然面板放出来了！那么把函数也一并放出来吧！
页: [1] 2 3 4
查看完整版本: 【自定义按钮面板】