请教高人 请教高人 请教高人 请教高人

yun771692

请教：
        请教高人：请教如何根据某图层颜色到指定图层 (就是说：如我在同一图层中有蓝色和红色，如何把他们分到两个图层中，而且线型和属性不变)

                       请高人指点指点!!!!!

                        谢谢

超然A

这个不难吧  用LISP编个程序就行了。

思路也很简单，将这个层的所有颜色做一个选集，然后循环，判断选集中每一个图元颜色组码，

如果是蓝色放到新层去。

风之助

编了以下代码，请高手指正！

2. ;;若图元颜色为"随层"或"随块",则不在本程序调整范围内
3. (setq layername "xx" ; 原图层名
4.    ss  (ssget (list (cons 8 layername)));选择原图层所有图元
5.    i   -1
6.    redlayer "red" ;红色图元要到的图层名
7.    bluelayer "blue" ;蓝色图元要到的图层名
8. )
9. (while (setq ent (ssname ss (setq i (1+ i))))
10. (setq em (entget ent))
11. (setq color (cdr (assoc 62 em)))
12. ;;根据颜色将图元分离
13. (cond ((= 1 color) ;红色索引号为1
14.      (entmod (subst (cons 8 redlayer) (assoc 8 em) em))
15.     )
16.     ((= 5 color) ;蓝色索引号为5
17.      (entmod (subst (cons 8 bluelayer) (assoc 8 em) em))
18.     )
19. ) ;end of cond
20. ) ;end of while
21. (setq ss nil)

;;若图元颜色为"随层"或"随块",则不在本程序调整范围内 (setq layername "xx" ; 原图层名    ss  (ssget (list (cons 8 layername)));选择原图层所有图元    i   -1    redlayer "red" ;红色图元要到的图层名    bluelayer "blue" ;蓝色图元要到的图层名 ) (while (setq ent (ssname ss (setq i (1+ i)))) (setq em (entget ent)) (setq color (cdr (assoc 62 em))) ;;根据颜色将图元分离 (cond ((= 1 color) ;红色索引号为1      (entmod (subst (cons 8 redlayer) (assoc 8 em) em))     )     ((= 5 color) ;蓝色索引号为5      (entmod (subst (cons 8 bluelayer) (assoc 8 em) em))     ) ) ;end of cond ) ;end of while (setq ss nil)