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

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

llsheng_73

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

"对本身没有定义颜色的图元需要加一个判断"是不必要的，完全可以不管图元本来有没有62组，也不需要替换，直接append到后边就行了，但不是所有组都可以这么搞
(entmod(append(entget  e)'((62 . 1))))

baby绑定命运线

支持下不错