社区 › AutoLISP/Visual LISP 编程技术 › 自动修改图层颜色（索引颜色）

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

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

gagfeng 发表于 2013-5-24 19:50:59

到底多少钱呢

查看完整版本: 自动修改图层颜色（索引颜色）