简单的自定面板函数

preone

排队学习~~

xsso

强烈的仰慕一下

xyp1964

2. (defun c:tt (/ lst)
   
3.   (defun apre (/ a)
   
4.     (foreach a '()
   
5.       (mode_tile (strcat "bt" (itoa a)) 1)
   
6.     )
   
7.   )
   
8.   (setq        lst '(("门窗"("dxbc(单线变窗)""fkbc(方框变窗)""tlmc(推拉门窗)""dtmc(动态门窗)"))
   
9.               ("标高"("bgbz(标高标注)""lxbg(连续标高)""bgcz(标高重置)""fzbg(复制标高)"))
   
10.               ("其他" ("zbz(指北针)""jztl-tfd(通风道)""jztl-sbj(水簸箕)""jztl-dl(地漏)")))
    
11.   )
    
12.   (xyp-Dcl-ButtonM "对话框测试" lst )
    
13.   (princ)
    
14. )

(defun c:tt (/ lst)<br />   (defun apre (/ a)<br />     (foreach a '()<br />       (mode_tile (strcat "bt" (itoa a)) 1)<br />     )<br />   )<br />   (setq        lst '(("门窗"("dxbc(单线变窗)""fkbc(方框变窗)""tlmc(推拉门窗)""dtmc(动态门窗)"))<br />               ("标高"("bgbz(标高标注)""lxbg(连续标高)""bgcz(标高重置)""fzbg(复制标高)"))<br />               ("其他" ("zbz(指北针)""jztl-tfd(通风道)""jztl-sbj(水簸箕)""jztl-dl(地漏)")))<br />   )<br />   (xyp-Dcl-ButtonM "对话框测试" lst )<br />   (princ)<br /> )

自贡黄明儒

强烈的仰慕一下

蒹葭_Keirll

好东西，学习了，谢谢楼主分享

小酒窝

具体怎么使用呢？请楼主详细说明

qingtao210

这个牛Ｘ啊

FANGZHENG158

谢谢楼主分享，支持一下

sachindkini

xyp1964 发表于 2012-8-5 09:58

dear sir,
error
Command: TT
; error: no function definition: XYP-DCL-BUTTONM

gcho

楼主的工具很好！