[编程申请]：图层，，，又是麻烦的图层！大家帮帮忙！

+突破+

图层真的是搞死人，改别人的图纸，图层一大堆，要亲自动手刷那真是不可能．．．汗啊．．．
请教大家有没有什么办法，把同一颜色的线自动转到同一图层，但又不改变线型．．．．还有块的线能否不X掉也能转过来．
如果行的话请与我QQ联系也行．362646161．．．谢谢．

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060314
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. ;;;同颜色线自动转到同一图层
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (setq        ss (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
    
18.         i  -1
    
19.   )
    
20.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
21.     (setq co (xyp-get-Color s1))
    
22.     (mkla (rtos co 2 0) co)
    
23.     (command "chprop" s1 "" "la" (rtos co 2 0) "")
    
24.   )
    
25.   (CMDLA1)
    
26. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060314<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;同颜色线自动转到同一图层<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        ss (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq co (xyp-get-Color s1))<br />     (mkla (rtos co 2 0) co)<br />     (command "chprop" s1 "" "la" (rtos co 2 0) "")<br />   )<br />   (CMDLA1)<br /> )[/FONT]

+突破+

谢谢版主，这个命令执行什么才能用啊．．．还有可不要先选到到要转的线，再提示输入层名这样子的．．．

xyp1964

最初由 +突破+ 发布
[B]谢谢版主，这个命令执行什么才能用啊．．．还有可不要先选到到要转的线，再提示输入层名这样子的．．． [/B]

看不懂！
是该好好“突破”了！呵呵……

+突破+

班主还请指点一下．．．谢谢

xyp1964

首先把程序认真读一遍，按要求下载和加载通用函数，把程序内容存为aaa.lsp文件，加载程序，运行test。
不知可明白？

+突破+

程序可以运行，但少了1图层，而且以前的图层还是存在的，不知道为什么？

doubao

"块的线能否不X掉也能转过来"

这个相对复杂一点，要求程序能自动重新定义块。要考虑多种情况：

块中实体的颜色是
“bylayer”、
“byblock”、还是
某特定颜色？

块中实体是否在“0”层？

只是复杂而已，难倒不难。

+突破+

呵呵，要求太高了，编程这东西都没搞过．．．真是麻烦了．

xyp1964

最初由 +突破+ 发布
[B]程序可以运行，但少了1图层，而且以前的图层还是存在的，不知道为什么？ [/B]

不支持块内实体！

2. [FONT=courier new](defun c:test ()
   
3.   (CMDLA0)
   
4.   (setq        ss (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
   
5.         i  -1
   
6.   )
   
7.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.     (setq co (xyp-get-Color s1))
   
9.     (mkla (rtos co 2 0) co)
   
10.     (command "chprop" s1 "" "la" (rtos co 2 0) "")
    
11.   )
    
12.   (repeat 3 (COMMAND "-PURGE" "A" "" "n"))
    
13.   (CMDLA1)
    
14. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (CMDLA0)<br />   (setq        ss (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq co (xyp-get-Color s1))<br />     (mkla (rtos co 2 0) co)<br />     (command "chprop" s1 "" "la" (rtos co 2 0) "")<br />   )<br />   (repeat 3 (COMMAND "-PURGE" "A" "" "n"))<br />   (CMDLA1)<br /> )[/FONT]

doubao

试试“狂刀”的
xlbc = 实体按色改层

+突破+

最初由 doubao 发布
[B]"块的线能否不X掉也能转过来"

这个相对复杂一点，要求程序能自动重新定义块。要考虑多种情况：

块中实体的颜色是
“bylayer”、
“byblock”、还是
某特定颜色？

块中实体是否在“0”层？

只是复杂而... [/B]

块内的实体也应该是按其自身存在的颜色改成相对应图层的颜色，图层本身默认＂bylayer＂

doubao

“狂刀”的
xlbc = 实体按色改层
程序很好用。 虽然没有修改块内实体的功能，但是如果你用AUTOCAD2005以后的版本，可以在 refedit 编辑中使用该命令（C：XLBC）就能把块内、甚至XREF内的实体全部修改。

+突破+

运行后产生的图层都跟我原有的图层不一样,有没有办法自动转到某个图层...比如红色的全部转到1层,因为我要求的图层不多,还请大师们指点...能用LISP程序最好了...

xyp1964

色层匹配：