自动修改图层颜色（索引颜色）

SuperliuC

我希望实现的功能：
预先设定，名字为"a"的图层，颜色为“1”；名字为"b"的图层，颜色为“2”……
依次类推。
当然，可以让我自由修改这些初始设定的图层名字及其对应的颜色（这里指索引颜色，不是真彩色）。
当调用程序后，直接把现有图纸上的图层，按我设定的规则，全部处理完。

这个功能一般用于建筑设计里面，非建筑专业套用建筑底图的时候，可以快速处理建筑图的颜色。
当然，需要使用者自己按喜好预先设定好各种对应值。

这里附上一个能够改为真彩色的lisp，仅供参考！

(defun c:tc()
(vl-load-com)
(setq acmCol (vla-getinterfaceobject
           (vlax-get-acad-object)  (strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2))))
(vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
  (cond
    ((= (vla-get-name x) "DOTE") (vla-setrgb acmCol 0 114 153) (vla-put-TrueColor x acmCol))
    ((= (vla-get-name x) "dote") (vla-setrgb acmCol 0 114 153) (vla-put-TrueColor x acmCol))
    ((= (vla-get-name x) "wall") (vla-setrgb acmCol 0 153 114) (vla-put-TrueColor x acmCol))
    ((= (vla-get-name x) "WALL") (vla-setrgb acmCol 0 153 114) (vla-put-TrueColor x acmCol))
    ((= (vla-get-name x) "window") (vla-setrgb acmCol 0 153 204) (vla-put-TrueColor x acmCol))
    ((= (vla-get-name x) "WINDOW") (vla-setrgb acmCol 0 153 204) (vla-put-TrueColor x acmCol))
  )
  )
  )

mokson

http://bbs.mjtd.com/forum.php?mod=attachment&aid=Njc2MDl8YWYzYWY1MGJkOGNkNDcwODQ4NThmNzMzNDBiZDU0YTJ8MTcxMzQ4NTA3NA%3D%3D&request=yes&_f=.rar
学习一下，感谢大神！

mokson

http://bbs.mjtd.com/forum.php?mod=attachment&aid=Njc2MDl8YWYzYWY1MGJkOGNkNDcwODQ4NThmNzMzNDBiZDU0YTJ8MTcxMzQ4NTA3NA%3D%3D&request=yes&_f=.rar
学习一下，感谢大神！

maxli

【KAIXIN】 发表于 2012-5-31 14:17
附件里面含：
   通用函数介绍，
   含输入层名改层和层对象的颜色

本来就穷结果你们收这么高。。还让人玩了不？

yanguangfei

没这么深吧，把图层颜色设成参数，写个自定义函数把参数传过来就行

【KAIXIN】

附件里面含：
   通用函数介绍，
   含输入层名改层和层对象的颜色
   含选取对象改层和层对象的颜色

soly2006

有贴必顶，好贴必顶。

qincccken

看看开心老大的大作,谢了

zhd81617

学习中

功夫佬

网上找过，对我没太大作用!

lincctw_ccl

我也想看一下 開心老大的源碼!!

qincccken

只能看看,没币了,呵呵