[求助]修改图层颜色！

87282374

请问如何一次性把多个图层的bylayer颜色修改成我想要设定的颜色！

xianaihua

2. ;将所有图层改为红色
3. (defun c:edit_all_layer_color (/ layer layers)
4.   (setq layers (vla-get-layers
5.         (vla-get-ActiveDocument (vlax-get-acad-object))
6.       )
7.   )
8.   (vlax-for layer layers
9.     (vla-put-color layer 1)
10.   )
11.   (princ)
12. )
13. ;将某个图层改为某种颜色
14. (defun edit_layer_color (color_no layer_name / layer layers)
15.   (setq layers (vla-get-layers
16.         (vla-get-ActiveDocument (vlax-get-acad-object))
17.       )
18.   )
19.   (vlax-for layer layers
20.     (if (= (vla-get-name layer) layer_name)
21.       (vla-put-color layer color_no)
22.     )
23.   )
24.   (princ)
25. )
26. (edit_layer_color 2 "CENTER")

;将所有图层改为红色 (defun c:edit_all_layer_color (/ layer layers)   (setq layers (vla-get-layers         (vla-get-ActiveDocument (vlax-get-acad-object))       )   )   (vlax-for layer layers     (vla-put-color layer 1)   )   (princ) ) ;将某个图层改为某种颜色 (defun edit_layer_color (color_no layer_name / layer layers)   (setq layers (vla-get-layers         (vla-get-ActiveDocument (vlax-get-acad-object))       )   )   (vlax-for layer layers     (if (= (vla-get-name layer) layer_name)       (vla-put-color layer color_no)     )   )   (princ) ) (edit_layer_color 2 "CENTER")

cadyh

正未了BLAYER的颜色提取而烦劳，谢谢了

87282374

function XML() {
    [native code]
}

waterchen

直接在图层对话框里改就好了，不用这么麻烦吧

waterchen

我理解是不改变原图层的颜色设定，但对多个图层的实体进行修改颜色,楼主是这样吗？