图层统一为指定颜色

adc

想把图中某些图层比如 a b c的颜色分别改为指定的颜色比如1 2 3，不论图层是否锁定或冻结或关闭，不知道要怎样做，希望高手帮忙，谢谢

VBALISPER

(command "layer" "n" "a" "c" "1" "" "")
(command "layer" "n" "b" "c" "2" "" "")
(command "layer" "n" "c" "c" "3" "" "")
你试试看

adc

这种我早就用了，冻结无效

vormittag

2. (defun changelayercolor (layer color / layerename layerell)
   
3.         (setq layerename (tblobjname "LAYER" layer)
   
4.                   layerell   (entget layerename)
   
5.                   layerell   (subst (cons 62 color) (assoc 62 layerell) layerell)
   
6.         );setq
   
7.         (entmod layerell)
   
8. )

(defun changelayercolor (layer color / layerename layerell)<br />         (setq layerename (tblobjname "LAYER" layer)<br />                   layerell   (entget layerename)<br />                   layerell   (subst (cons 62 color) (assoc 62 layerell) layerell)<br />         );setq<br />         (entmod layerell)<br /> )

这个可以，不过关闭的图层会被打开。

adc

vormittag 发表于 2011-10-23 17:09
这个可以，不过关闭的图层会被打开。

多谢，用command也会打开关闭的图层，所有没关系，如果要分别指定图层的线型要怎样做？

leemyungtaek

怎么做才能让关闭的图层不打开呢？统一设置图层就是为了方便，还要一个一个的去关图层。。。
多谢指教！！