如何快速更改图形颜色（随机显示）？

cj52000

大家好，经常打开别人图档发现所有的线条都是同一图层同一个颜色，为方便查看区分，通常会手动一个个变颜色（如下图示），想请教下有什么好方法可以快速改色？谢谢！（线条为串接多段线）

尘缘一生

我手头有个蔡健伟开发好的程序，这个叫“色变”，直接使用吧
因为这个开发的很好，就没再写这个功能，实际，很简单的。



命令：sb

cq4920

对本身没有定义颜色的图元需要加一个判断，如果一般都没颜色定义，那就干脆直接在表中添加（62 . 颜色）就可以了

2. (defun c:tt(/ ss i col aobj b e )
   
3. (setq ss (ssget))
   
4. (setq i 0 col 1)
   
5. (while
   
6.         (setq aobj (ssname ss i))
   
7.                                 (setq b (assoc 62 (setq e (entget aobj))))
   
8.                                (setq e (subst (cons 62 col) b e))
   
9.                                 (entmod e)
   
10.                                 (setq i (+ 1 i) col (+ 1 col))
    
11.         (princ e )                                
    
12. )
    
13. )

(defun c:tt(/ ss i col aobj b e )<br /> (setq ss (ssget))<br /> (setq i 0 col 1)<br /> (while <br />         (setq aobj (ssname ss i))<br />                                 (setq b (assoc 62 (setq e (entget aobj)))) <br />                                (setq e (subst (cons 62 col) b e))<br />                                 (entmod e)<br />                                 (setq i (+ 1 i) col (+ 1 col))<br />         (princ e )                                <br /> )<br /> )

cq4920

图层数量不能超过256

2. (defun c:tt(/ ss i col aobj b e )
   
3. (vl-load-com)
   
4.   (tblnext "layer" t )
   
5.   (setq  laycol 1 ent (ssget))
   
6.   (command "change" ent "" "p" "c" "bylayer" "")
   
7. (while
   
8.   (setq enda (tblnext "layer" ))
   
9.   (setq layer (cdadr ENDA))  
   
10.         (N5-changelayercolor layer laycol )     
    
11.   (setq    laycol (+ 1 laycol))
    
12.   (princ )        
    
13. )
    
14. )
    
15. 
    
16. (DEFUN N5-changelayercolor(layer co)
    
17.     (vla-put-color (vla-Item (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) layer) co)
    
18.     )
    

(defun c:tt(/ ss i col aobj b e )<br /> (vl-load-com)<br />   (tblnext "layer" t )<br />   (setq  laycol 1 ent (ssget))<br />   (command "change" ent "" "p" "c" "bylayer" "")<br /> (while<br />   (setq enda (tblnext "layer" ))<br />   (setq layer (cdadr ENDA))  <br />         (N5-changelayercolor layer laycol )     <br />   (setq    laycol (+ 1 laycol))<br />   (princ )        <br /> )<br /> )<br /> <br /> (DEFUN N5-changelayercolor(layer co)<br />     (vla-put-color (vla-Item (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) layer) co)<br />     )<br />

cj52000

尘缘一生 发表于 2022-12-13 21:15
我手头有个蔡健伟开发好的程序，这个叫“色变”，直接使用吧
因为这个开发的很好，就没再写这个功能，实际 ...

谢谢大佬的热心！！

cj52000

cq4920 发表于 2022-12-13 21:45
对本身没有定义颜色的图元需要加一个判断，如果一般都没颜色定义，那就干脆直接在表中添加（62 . 颜色） ...

谢谢大佬的热心！！

469229020@QQ.CO

cq4920 发表于 2022-12-13 21:45
对本身没有定义颜色的图元需要加一个判断，如果一般都没颜色定义，那就干脆直接在表中添加（62 . 颜色） ...

可惜不能分图层变色，不能相同的图层，颜色一样。

469229020@QQ.CO

尘缘一生 发表于 2022-12-13 21:15
我手头有个蔡健伟开发好的程序，这个叫“色变”，直接使用吧
因为这个开发的很好，就没再写这个功能，实际 ...

可惜不能分图层变色，不能相同的图层，颜色一样。

panliang9

看这个：
http://bbs.mjtd.com/thread-177733-1-1.html

还有这个，不断的回车换色。
http://bbs.mjtd.com/thread-175955-1-1.html

cq4920

469229020@QQ.CO 发表于 2022-12-14 09:25
可惜不能分图层变色，不能相同的图层，颜色一样。

http://bbs.mjtd.com/forum.php?mo ... hlight=%CD%BC%B2%E3

lxl217114

谢谢大佬们分享，原来有这么多随机颜色的工具