图层合并

eachy

早期的一个程序，DCL文件

1. ea_lyrtrans : dialog {
   
2.   label = "图层合并";
   
3.   : column {
   
4.     : row {
   
5.       : column {
   
6.         : boxed_column {
   
7.           width = 10;
   
8.           label = "合并到";
   
9.           : row {
   
10.             children_alignment = top;
    
11.             : edit_box {
    
12.               height =1;
    
13.               key = "Nlyr";
    
14.               }
    
15.             : image_button {
    
16.               height = 2;
    
17.               width =4;
    
18.               key = "col";
    
19.               }
    
20.           }
    
21.         : popup_list {
    
22.           key = "Sel";
    
23.           }
    
24.         }
    
25.         : column {
    
26.           : toggle {
    
27.             label = "保留颜色";
    
28.             key = "color";
    
29.             value = "1";
    
30.             }
    
31.           : toggle {
    
32.             label = "保留线形";
    
33.             key = "ltyp";
    
34.             value = "1";
    
35.             }
    
36.           : toggle {
    
37.             label = "忽略块内0层";
    
38.             key = "lay";
    
39.             value = "1";
    
40.             }
    
41.           }     
    
42.       }
    
43.       : boxed_column {
    
44.         label = "图层列表";
    
45.         : list_box {        
    
46.           key = "what";
    
47.           height = 9;
    
48.           width = 17;
    
49.           multiple_select =  true;
    
50.           allow_accept = true;
    
51.           }
    
52.         }
    
53.       }   
    
54.     : row {
    
55.       alignment = centered;
    
56.       fixed_width = true;
    
57.       : button {
    
58.         label = "预览" ;
    
59.         key = "pre";
    
60.         }
    
61.       : button {      
    
62.         label = "选择" ;
    
63.         key = "list";
    
64.         }
    
65.       : button {      
    
66.         label = "转换" ;
    
67.         key = "Trans";
    
68.         }
    
69.       : ok_button {
    
70.         label = "退出" ;
    
71.         key = "accept";
    
72.         is_cancel = true;
    
73.         }
    
74.       }
    
75.    }
    
76. }
    

ea_lyrtrans : dialog {<br />   label = "图层合并";<br />   : column {<br />     : row {<br />       : column {<br />         : boxed_column {<br />           width = 10;<br />           label = "合并到";<br />           : row {<br />             children_alignment = top;<br />             : edit_box {<br />               height =1;<br />               key = "Nlyr";<br />               }<br />             : image_button {<br />               height = 2;<br />               width =4;<br />               key = "col";<br />               }<br />           }<br />         : popup_list {<br />           key = "Sel";<br />           }<br />         }<br />         : column {<br />           : toggle {<br />             label = "保留颜色";<br />             key = "color";<br />             value = "1";<br />             }<br />           : toggle {<br />             label = "保留线形";<br />             key = "ltyp";<br />             value = "1";<br />             }<br />           : toggle {<br />             label = "忽略块内0层";<br />             key = "lay";<br />             value = "1";<br />             }<br />           }     <br />       }<br />       : boxed_column {<br />         label = "图层列表";<br />         : list_box {        <br />           key = "what";<br />           height = 9;<br />           width = 17;<br />           multiple_select =  true;<br />           allow_accept = true;<br />           }<br />         }<br />       }    <br />     : row {<br />       alignment = centered;<br />       fixed_width = true;<br />       : button {<br />         label = "预览" ;<br />         key = "pre";<br />         }<br />       : button {       <br />         label = "选择" ;<br />         key = "list";<br />         }<br />       : button {       <br />         label = "转换" ;<br />         key = "Trans";<br />         }<br />       : ok_button {<br />         label = "退出" ;<br />         key = "accept";<br />         is_cancel = true;<br />         }<br />       }<br />    }<br /> }<br />

eachy

Lisp

游客，本帖隐藏的内容需要积分高于 20 才可浏览，您当前积分为 0

GTJ116600

谢谢eachy前辈

zhangq_cai1

支持~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tianyi1230

感谢谢谢eachy大侠的经典之作

NET-JOB

这个经典，支持

yzr2002626

经典，谢谢eachy大侠分享！

429014673

; 错误: 输入中含有多余的闭括号

SmartStar

不知道哪里有问题，无法运行！好象是函数ea:ChgAttBlk有问题。

eachy

SmartStar 发表于 2013-7-16 14:17
不知道哪里有问题，无法运行！好象是函数ea:ChgAttBlk有问题。

贴个编译版，版本号增加，内容没变，好像只是把里面的限制提示去掉了

Lisphk

eachy 发表于 2013-7-16 17:03
贴个编译版，版本号增加，内容没变，好像只是把里面的限制提示去掉了

大师，忽略块内0层是什么意思？

eachy

Lisphk 发表于 2013-7-16 17:20
大师，忽略块内0层是什么意思？

CAD块内0层是一个比较怪的图层，Blockdef 内 0层实体在 Bylayer 情况下，图块颜色是跟随 Blockref 设定的图层，不能单独修改颜色，如果0定义了Byblock颜色，颜色可以跟随Blockref图层也可以单独指定颜色，线形也是如此。块内其他图层实体没有0层这种特性的。

SmartStar

老大，为什么我在合并lsp和dcl的时候有这样的提示呢？您给的那个vlx就能用！

st788796

SmartStar 发表于 2013-7-17 12:41
老大，为什么我在合并lsp和dcl的时候有这样的提示呢？您给的那个vlx就能用！

格式化下Lisp, 是不是贴上来的时候漏了括号

SmartStar

st788796 发表于 2013-7-17 17:20
格式化下Lisp, 是不是贴上来的时候漏了括号

格式化的时候没有问题！