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

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

好好学习学习

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

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:11

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

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

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

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

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

先收藏再说

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

内容在哪里啊?

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

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

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

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

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

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