【CAD代码积累】修改图层颜色

若水三千

  最近开始学习一些CAD的二次开发，在网上看到了一些好的代码，特拿来分享。

1. ;函数：更改图层颜色
   
2. ;功能：将某个图层改为某种颜色
   
3. 
   
4. (defun edit_layer_color        (color_no layer_name / layer layers)
   
5.   (setq        layers (vla-get-layers
   
6.                  (vla-get-ActiveDocument (vlax-get-acad-object))
   
7.                )
   
8.   )
   
9.   (vlax-for layer layers
   
10.     (if        (= (vla-get-name layer) layer_name)
    
11.       (vla-put-color layer color_no)
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )
    
16. (edit_layer_color acRed "0")

复制代码

调用函数的方法是：

1. (edit_layer_color acRed "0")

复制代码

这样就把0层的颜色改为红色。但是已经绘制好的对象的颜色并没有改变，要让它们的颜色随层，得添加一句：

1. (command "_.chprop" "_all" "" "_color" "_bylayer" "")

复制代码

   顺便说一下这个函数：

1. (vla-put-color layer color_no)

复制代码

  调用系统中的函数来修改层颜色，其函数原型如上所示，它在Express Tools中，注意要确保安装程序安装了此组件。其中颜色参数使用枚举值：

常数	值	描述
vbBlack	0x0	黑色
vbRed	0xFF	红色
vbGreen	0xFF00	绿色
vbYellow	0xFFFF	黄色
vbBlue	0xFF0000	蓝色
vbMagenta	0xFF00FF	紫红色
vbCyan	0xFFFF00	青色
vbWhite	0xFFFFFF	白色

23382534

你好大神  能不能更改多个图层的颜色