【一个想法】修改图形里Bylayer的图元为指定颜色，线型

tm20038175

例如 "Line_11" 图层，颜色：绿；线型：虚线，
能不能通过程序把里面的所有Bylayer的图元颜色改为绿色，线型改为虚线，包括块里面的，
这样就可以很方便的合并和删除多余图层了，谢谢~~~

tm20038175

很好的一个想法啊，这样把一个杂乱的图形修改为标准图层就方便多了。
希望大家能给点意见，谢谢了~~~

tm20038175

不然的话，合并修改图层的话bylayer的图层会跟新的图层一个颜色和线型，这样图形就变了，所以有了这个想法，希望大虾们给点建议谢谢~~~

ZZXXQQ

颜色和线型都可以bylayer要怎么改呢？

Gu_xl

回复 tm20038175 的帖子

1. (defun c:tt(/ laydata doc ms blocks)
   
2.   (setq layers (vla-get-Layers (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))))
   
3.   (setq blocks (vla-get-blocks doc))
   
4.   
   
5.   (vlax-for lay layers
   
6.     (setq laydata (cons (list (vla-get-name lay) (vla-get-color lay) (vla-get-linetype lay)) laydata))
   
7.     )
   
8.   (vlax-for block blocks
   
9.     (vlax-for obj block
   
10.     (if (and (= 256 (vla-get-color obj)) (/= "0" (vla-get-layer obj)))
    
11.         (vla-put-color obj (cadr (assoc (vla-get-layer obj) laydata)))
    
12.       )
    
13.     (if (and(= "ByLayer" (vla-get-linetype obj))(/= "0" (vla-get-layer obj)))
    
14.         (vla-put-linetype obj (caddr (assoc (vla-get-layer obj) laydata)))
    
15.       )
    
16.       
    
17.       )
    
18.     )
    
19.   (setq ms (vla-get-ModelSpace doc))
    
20.   (vlax-for obj ms
    
21.     (if (= 256 (vla-get-color obj))
    
22.         (vla-put-color obj (cadr (assoc (vla-get-layer obj) laydata)))
    
23.       )
    
24.     (if (= "ByLayer" (vla-get-linetype obj))
    
25.         (vla-put-linetype obj (caddr (assoc (vla-get-layer obj) laydata)))
    
26.       )
    
27.     )
    
28.   (princ)
    
29.   
    
30.   )
    

(defun c:tt(/ laydata doc ms blocks)<br />   (setq layers (vla-get-Layers (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))))<br />   (setq blocks (vla-get-blocks doc))<br />   <br />   (vlax-for lay layers<br />     (setq laydata (cons (list (vla-get-name lay) (vla-get-color lay) (vla-get-linetype lay)) laydata)) <br />     )<br />   (vlax-for block blocks<br />     (vlax-for obj block<br />     (if (and (= 256 (vla-get-color obj)) (/= "0" (vla-get-layer obj)))<br />         (vla-put-color obj (cadr (assoc (vla-get-layer obj) laydata)))<br />       )<br />     (if (and(= "ByLayer" (vla-get-linetype obj))(/= "0" (vla-get-layer obj)))<br />         (vla-put-linetype obj (caddr (assoc (vla-get-layer obj) laydata)))<br />       )<br />       <br />       )<br />     )<br />   (setq ms (vla-get-ModelSpace doc))<br />   (vlax-for obj ms<br />     (if (= 256 (vla-get-color obj))<br />         (vla-put-color obj (cadr (assoc (vla-get-layer obj) laydata)))<br />       )<br />     (if (= "ByLayer" (vla-get-linetype obj))<br />         (vla-put-linetype obj (caddr (assoc (vla-get-layer obj) laydata)))<br />       )<br />     )<br />   (princ)<br />   <br />   )<br />

tm20038175

回复 ZZXXQQ 的帖子

就是不要bylayer，每条线最好指定颜色，线型，不然合并的时候变成其他图层的颜色和线型了

tm20038175

回复 Gu_xl 的帖子

就是这个，十分感谢啦，可惜只有修改颜色的，线型也能修改吗？

Gu_xl

回复 tm20038175 的帖子

程序已经包括线型和颜色了

tm20038175

回复 Gu_xl 的帖子

十分感谢您的回复，我拷贝了您的tt程序，执行后，发现颜色改为指定颜色了，线型全部是Bylayer,不是指定的线型（如实线，虚线，点化线……），奇怪了，难道是我的电脑出问题了吗？

Gu_xl

回复 tm20038175 的帖子

我测试没问题！你把下面的代码修改一下试试：
(= "ByLayer" (vla-get-linetype obj))
===>
(= "BYLAYER" (strcase (vla-get-linetype obj)))