【自定义按钮面板】

xyp1964

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

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

tjuzkj

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

yaokui25

嘿嘿，先占个位置。

yaokui25

占个位置先
嘿嘿

自贡黄明儒

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

ynhh

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

kwok

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

xyp1964

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

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

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

海盗曹

好高端大气啊

zhl0123321

xyp1964 大侠既然面板放出来了！那么把函数也一并放出来吧！