如何快速更改图形颜色（随机显示）？
大家好，经常打开别人图档发现所有的线条都是同一图层同一个颜色，为方便查看区分，通常会手动一个个变颜色（如下图示），想请教下有什么好方法可以快速改色？谢谢！（线条为串接多段线）本帖最后由 尘缘一生 于 2022-12-13 21:20 编辑
我手头有个蔡健伟开发好的程序，这个叫“色变”，直接使用吧
因为这个开发的很好，就没再写这个功能，实际，很简单的。
命令：sb
本帖最后由 cq4920 于 2022-12-13 21:47 编辑
对本身没有定义颜色的图元需要加一个判断，如果一般都没颜色定义，那就干脆直接在表中添加（62 . 颜色）就可以了
(defun c:tt(/ ss i col aobj b e )
(setq ss (ssget))
(setq i 0 col 1)
(while
(setq aobj (ssname ss i))
(setq b (assoc 62 (setq e (entget aobj))))
(setq e (subst (cons 62 col) b e))
(entmod e)
(setq i (+ 1 i) col (+ 1 col))
(princ e )
)
)
图层数量不能超过256
(defun c:tt(/ ss i col aobj b e )
(vl-load-com)
(tblnext "layer" t )
(setqlaycol 1 ent (ssget))
(command "change" ent "" "p" "c" "bylayer" "")
(while
(setq enda (tblnext "layer" ))
(setq layer (cdadr ENDA))
(N5-changelayercolor layer laycol )
(setq laycol (+ 1 laycol))
(princ )
)
)
(DEFUN N5-changelayercolor(layer co)
(vla-put-color (vla-Item (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) layer) co)
)
尘缘一生 发表于 2022-12-13 21:15
我手头有个蔡健伟开发好的程序，这个叫“色变”，直接使用吧
因为这个开发的很好，就没再写这个功能，实际 ...
谢谢大佬的热心！！ cq4920 发表于 2022-12-13 21:45
对本身没有定义颜色的图元需要加一个判断，如果一般都没颜色定义，那就干脆直接在表中添加（62 . 颜色） ...
谢谢大佬的热心！！ cq4920 发表于 2022-12-13 21:45
对本身没有定义颜色的图元需要加一个判断，如果一般都没颜色定义，那就干脆直接在表中添加（62 . 颜色） ...
可惜不能分图层变色，不能相同的图层，颜色一样。 尘缘一生 发表于 2022-12-13 21:15
我手头有个蔡健伟开发好的程序，这个叫“色变”，直接使用吧
因为这个开发的很好，就没再写这个功能，实际 ...
可惜不能分图层变色，不能相同的图层，颜色一样。 本帖最后由 panliang9 于 2022-12-14 11:20 编辑
看这个：
http://bbs.mjtd.com/thread-177733-1-1.html
还有这个，不断的回车换色。
http://bbs.mjtd.com/thread-175955-1-1.html 469229020@QQ.CO 发表于 2022-12-14 09:25
可惜不能分图层变色，不能相同的图层，颜色一样。
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92744&highlight=%CD%BC%B2%E3 谢谢大佬们分享，原来有这么多随机颜色的工具
页:
[1]
2