图层按颜色转换为另一图层，请各位大大帮忙

zzc83

现想要实现一个简单的图层转换命令 具体如下；
原有图层AB  第一步：新建图层CDEFGH(如图中有就不用建了，这步可有可无)
第二步： 图层A里面的红色变为图层C    图层A里面的黄色自动变为图层D     图层A里面的绿色变为图层E  
第三步： 图层B里面的红色变为图层F     图层B里面的黄色自动变为图层G     图层B里面的绿色变为图层H
第四步：第五步：
等等，还有其他图层也一样要这么转换，可以不用考虑块里面的图层，块我都会炸开，还有就是不用自己选择图元，运行下命令就把设置好的图层都转换了。
希望高手能帮忙，谢谢

Andyhon

2. 
   
3. (Defun Clr2Lyr_B (x y / ss)
   
4.    (if (setq ss (ssget "X" (list (cons 8 x) (cons 62 (car y)))))
   
5.      (command "Chprop" ss  "" "LA" (last y) "")
   
6.    )  
   
7. )
   
8. 
   
9. ;;; cLst ==>'("A" (1 "C") (2 "D") (3 "E"))
   
10. (Defun Clr2Lyr_A (cLst)
    
11.    (setq lyr (car cLst))
    
12.    (foreach ele (cdr cLst)
    
13.      (Clr2Lyr_B Lyr ele)
    
14.    )
    
15. )
    
16. 
    
17. 
    
18. (Defun Clr2Lyr ()
    
19.    ;;; 第一步：新建图层CDEFGH(如图中有就不用建了，这步可有可无)
    
20.    ;;; 可直接安插 设定好图层的Dwg
    
21.    
    
22.    (mapcar 'Clr2Lyr_A
    
23.      (list
    
24.        (list
    
25.          "A"
    
26.          (list 1 "C")
    
27.          (list 2 "D")
    
28.          (list 3 "E")
    
29.        )  ; '("A" (1 "C") (2 "D") (3 "E"))
    
30.       
    
31.        (list
    
32.          "B"
    
33.          (list 1 "F")
    
34.          (list 2 "G")
    
35.          (list 3 "H")
    
36.        )
    
37.        ;; 续加....
    
38.      )  
    
39.    )
    
40. )
    

<br /> (Defun Clr2Lyr_B (x y / ss)<br />    (if (setq ss (ssget "X" (list (cons 8 x) (cons 62 (car y)))))<br />      (command "Chprop" ss  "" "LA" (last y) "")<br />    )  <br /> )<br /> <br /> ;;; cLst ==>'("A" (1 "C") (2 "D") (3 "E"))<br /> (Defun Clr2Lyr_A (cLst)<br />    (setq lyr (car cLst))<br />    (foreach ele (cdr cLst)<br />      (Clr2Lyr_B Lyr ele)<br />    )<br /> )<br /> <br /> <br /> (Defun Clr2Lyr ()<br />    ;;; 第一步：新建图层CDEFGH(如图中有就不用建了，这步可有可无)<br />    ;;; 可直接安插 设定好图层的Dwg<br />    <br />    (mapcar 'Clr2Lyr_A<br />      (list<br />        (list<br />          "A"<br />          (list 1 "C")<br />          (list 2 "D")<br />          (list 3 "E")<br />        )  ; '("A" (1 "C") (2 "D") (3 "E"))<br />        <br />        (list<br />          "B"<br />          (list 1 "F")<br />          (list 2 "G")<br />          (list 3 "H")<br />        )<br />        ;; 续加....<br />      )  <br />    )<br /> )<br />

wau2000022

可以联系我QQ：496968041

zzc83

谢谢 Andyhon的帮忙 ，我运行图层转换的命令  Clr2Lyr 显示未知命令，还有图层B其实是其他颜色（大概456颜色）转换成FGH.

zzc83

我是代码小白，只能边看论坛边摸索了。。。
11步 改了(Defun c:Clr2Lyr ()   
第七步改了  ;;; cLst ("A" (1 "C") (2 "D") (3 "E"))
继续摸索图层B的456颜色。。。

Andyhon

还有图层B其实是其他颜色

您如此列举就如此对映喽
摊开来写就是方便您自行修改,那只是个雏型...
实务上还得加验证及错误处理,习惯上也会关闭命令行回应
这个有很多的范例,是以只关注必要的代码...

Command: (CLR2LYR)

zzc83

试了，确实是123改成456就可以了，非常感谢Andyhon 帮我解决了问题