重写经典---麦版面板dcl 短小精干

wzg356

zxfddz 发表于 2023-2-6 15:05
这是要结合别的插件用的吗

程序命令自己填写，也可以自己把cad常用功能单命令不好记的填上去就行，前面的只是例子

spp_wall

支持！！！！！！！！！

灰石Jeremy

感谢楼主的分享

Yruz

wzg356 发表于 2023-2-6 15:32
程序命令自己填写，也可以自己把cad常用功能单命令不好记的填上去就行，前面的只是例子

搞错写法，很不错的

hzyhzjjzh

看看 学习一下，

丶俗人

大佬可以把代码重新上传一下吗?不知道为啥,复制到文本后,加载总是或错列表缺陷或者多一个括号.
自己有点看不出来.

丶俗人

丶俗人 发表于 2023-2-15 14:45
大佬可以把代码重新上传一下吗?不知道为啥,复制到文本后,加载总是或错列表缺陷或者多一个括号.
自己有点看 ...

已解决~
文本编码问题~

chslwj521

感谢楼主分享。。

zmzk

2. ;快捷键---图层控制
   
3. (defun c:ww ()
   
4. (mainpaneldcl
   
5. (list
   
6. (list "图层控制tcg"
   
7. (list "图层关闭/l-" "layoff")
   
8. (list "图层关闭(反)/tcgbf" "tcgbf")
   
9. (list "全部显示/`"   "layon")
   
10. (list "孤立图层/q" "layiso")
    
11. (list "退出孤立/qq" "layuniso")
    
12. )
    
13. 
    
14. 
    
15. ))
    
16. (princ))
    
17. 
    
18. ;面板主程序
    
19. (vl-load-com)
    
20. (defun mainpaneldcl (strklst / maxl keylst n nn lcmd ff f id cmd)
    
21.         (setq ff(vl-filename-mktemp "temp_pannel.dcl") f(open ff "w"))
    
22.         (write-line "MYbutton:button{width =10;vertical_margin=none;horizontal_margin=none;}" f)
    
23.         (write-line "MYpanel:dialog{label="xx工具";:row{" f)
    
24.         (setq n 0 nn(mapcar 'length (mapcar 'cdr strklst)) maxl(apply 'max nn));表长
    
25.         (mapcar (function(lambda(x / l1)
    
26.                 (write-line(strcat ":column{label=" (vl-prin1-to-string(car x))";")f)
    
27.                 (setq x(cdr x) x(append x(repeat(- maxl(length x))(setq l1(cons '("" "")l1)))));表补长
    
28.                 (mapcar (function(lambda(y / k)
    
29.                         (setq k(strcat "key" (itoa(setq n(1+ n)))))
    
30.                         (write-line(strcat
    
31.                                 ":MYbutton{label="(vl-prin1-to-string(car y))";key= "(vl-prin1-to-string k)
    
32.                                 (if(= (setq y(cadr y)) "")";is_enabled = false;}" ";}");填充的空白键
    
33.                         )f)                        
    
34.                         (setq keylst(cons k keylst) lcmd(cons y lcmd));键表key1开始/命令表
    
35.                 ))x)
    
36.                 (write-line "}" f)
    
37.         ))strklst)
    
38.         (write-line "}:row{" f)
    
39.         (write-line(if(> (length nn)2)":text{label="盛年不再来!岁月不待人!";is_enabled = false;}" "spacer_0;")f)
    
40.         (write-line":button{label="关闭"; key="cancel";is_cancel=true;width=6;fixed_width=true;}" f)
    
41.         (write-line "spacer_0;}}" f)
    
42.         (close f)
    
43.         (setq id(load_dialog ff))(vl-file-delete ff)
    
44.         (new_dialog "MYpanel" id "3" P_MYpaneldcl)
    
45.         (mapcar (function(lambda(x)(action_tile x(strcat "(setq P_MYpaneldcl(done_dialog "(substr x 4)"))"))))keylst)
    
46.         (setq n (start_dialog))(unload_dialog id)        
    
47.         (if(> n 0)(if(wcmatch(setq cmd(nth(1- n)(reverse lcmd))) "(*)")(eval(read cmd));(函数)方式
    
48.                 (vla-SendCommand(vla-get-ActiveDocument(vlax-get-acad-object))(strcat cmd "\n"));c:命令方式,方便重复执行
    
49.         ));点击按钮的值
    
50. )

;快捷键---图层控制 <br /> (defun c:ww ()<br /> (mainpaneldcl<br /> (list<br /> (list "图层控制tcg"<br /> (list "图层关闭/l-" "layoff")<br /> (list "图层关闭(反)/tcgbf" "tcgbf")<br /> (list "全部显示/`"   "layon")<br /> (list "孤立图层/q" "layiso")<br /> (list "退出孤立/qq" "layuniso")<br /> )<br /> <br /> <br /> ))<br /> (princ))<br /> <br /> ;面板主程序<br /> (vl-load-com)<br /> (defun mainpaneldcl (strklst / maxl keylst n nn lcmd ff f id cmd)<br />         (setq ff(vl-filename-mktemp "temp_pannel.dcl") f(open ff "w"))<br />         (write-line "MYbutton:button{width =10;vertical_margin=none;horizontal_margin=none;}" f)<br />         (write-line "MYpanel:dialog{label="xx工具";:row{" f)<br />         (setq n 0 nn(mapcar 'length (mapcar 'cdr strklst)) maxl(apply 'max nn));表长<br />         (mapcar (function(lambda(x / l1)<br />                 (write-line(strcat ":column{label=" (vl-prin1-to-string(car x))";")f)<br />                 (setq x(cdr x) x(append x(repeat(- maxl(length x))(setq l1(cons '("" "")l1)))));表补长<br />                 (mapcar (function(lambda(y / k)<br />                         (setq k(strcat "key" (itoa(setq n(1+ n)))))<br />                         (write-line(strcat<br />                                 ":MYbutton{label="(vl-prin1-to-string(car y))";key= "(vl-prin1-to-string k)<br />                                 (if(= (setq y(cadr y)) "")";is_enabled = false;}" ";}");填充的空白键<br />                         )f)                        <br />                         (setq keylst(cons k keylst) lcmd(cons y lcmd));键表key1开始/命令表<br />                 ))x)<br />                 (write-line "}" f)<br />         ))strklst)<br />         (write-line "}:row{" f)<br />         (write-line(if(> (length nn)2)":text{label="盛年不再来!岁月不待人!";is_enabled = false;}" "spacer_0;")f)<br />         (write-line":button{label="关闭"; key="cancel";is_cancel=true;width=6;fixed_width=true;}" f)<br />         (write-line "spacer_0;}}" f)<br />         (close f)<br />         (setq id(load_dialog ff))(vl-file-delete ff)<br />         (new_dialog "MYpanel" id "3" P_MYpaneldcl)<br />         (mapcar (function(lambda(x)(action_tile x(strcat "(setq P_MYpaneldcl(done_dialog "(substr x 4)"))"))))keylst)<br />         (setq n (start_dialog))(unload_dialog id)        <br />         (if(> n 0)(if(wcmatch(setq cmd(nth(1- n)(reverse lcmd))) "(*)")(eval(read cmd));(函数)方式<br />                 (vla-SendCommand(vla-get-ActiveDocument(vlax-get-acad-object))(strcat cmd "\n"));c:命令方式,方便重复执行<br />         ));点击按钮的值<br /> )

我的程序  汉字面板为什么是  乱码的啊？

zmzk

面板的汉字乱码