87282374 发表于 2009-11-19 10:10:00

[求助]修改图层颜色！

<font face="宋体" size="2">请问如何一次性把多个图层的bylayer颜色修改成我想要设定的颜色！</font>

xianaihua 发表于 2009-11-19 15:54:00

;将所有图层改为红色
(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 发表于 2009-11-20 15:18:00

<p>正未了BLAYER的颜色提取而烦劳，谢谢了</p>

87282374 发表于 2009-11-23 11:05:00

function XML() {
   
}

waterchen 发表于 2010-12-9 16:49:54

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

waterchen 发表于 2010-12-9 16:53:24

我理解是不改变原图层的颜色设定，但对多个图层的实体进行修改颜色,楼主是这样吗？
页: [1]
查看完整版本: [求助]修改图层颜色！