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

xuesfh007 · 发表于 2013-4-25 12:22

好好学习学习

jinwei66 · 发表于 2013-5-8 11:22

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))
  )
  )
  )

jinwei66 · 发表于 2013-5-8 11:27

上面的功能太好了,但我想将真彩色如何变成索引色,因打图时只认笔号,而不支持真彩色,求哪位高水帮修改一下,先谢了。

chshsl · 发表于 2013-5-9 16:56

正想编一个随机颜色的程序，不同对象用随机色区分

QWQWQWQ · 发表于 2013-5-10 16:50

香田里浪人 · 发表于 2013-5-11 16:05

先收藏再说

ylzhaosjz · 发表于 2013-5-11 16:55

内容在哪里啊?

crazylsp · 发表于 2013-5-11 22:40

看看真彩色对话框返回值的问题

whonggg · 发表于 2013-5-12 10:42

感激过去 · 发表于 2013-5-24 12:46

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

账号		自动登录	找回密码
密码			注册