发个随机改颜色的代码——娱乐用

183017064

2. (defun RandomColor (/ ent color-list) ; 随机颜色命令
   
3.     (setq color-list '(
   
4.         40    ;
   
5.         201   ;
   
6.         11    ;
   
7.         110   ;
   
8.         160   ;
   
9.         212   ;
   
10.     )) ; 预置颜色
    
11.     (while (setq ent (car (entsel "\n选实体: ")))
    
12.         (entmod            ; 关键修改语句
    
13.             (append
    
14.                 (entget ent)
    
15.                 (list (cons 62 (nth (rem (getvar "MILLISECS") (length color-list)) color-list)))

(defun RandomColor (/ ent color-list) ; 随机颜色命令<br />     (setq color-list '(<br />         40    ; <br />         201   ; <br />         11    ; <br />         110   ; <br />         160   ;<br />         212   ; <br />     )) ; 预置颜色<br />     (while (setq ent (car (entsel "\n选实体: ")))<br />         (entmod            ; 关键修改语句<br />             (append <br />                 (entget ent) <br />                 (list (cons 62 (nth (rem (getvar "MILLISECS") (length color-list)) color-list)))

2. (defun RandomColorall (/ ent) ; 随机颜色命令
   
3.     (while (setq ent (car (entsel "\n选实体: ")))
   
4.         (entmod
   
5.             (append
   
6.                 (entget ent)
   
7.                 (list (cons 62 (1+ (rem (getvar "MILLISECS") 255))))
   
8.             )
   
9.         )
   
10.     )
    
11.     (princ)
    
12. )

(defun RandomColorall (/ ent) ; 随机颜色命令<br />     (while (setq ent (car (entsel "\n选实体: ")))<br />         (entmod <br />             (append <br />                 (entget ent)<br />                 (list (cons 62 (1+ (rem (getvar "MILLISECS") 255))))<br />             )<br />         )<br />     )<br />     (princ)<br /> )

作为一个子程序用，当选用一个元素作为基准的话，可以清楚的表达一下。实用性可有可无，添加一点制图的趣味性。（PS：个人认为）

yjwht

都试了，前者在color-list中随机颜色，后者在1~255中随机颜色。

magicheno

感谢大佬分享

MZ_li

感谢大佬分享

jkop

娱乐性，还能兼做入门学习用！

season_88

谢谢大佬分享

183017064

jkop 发表于 2025-4-12 10:16
娱乐性，还能兼做入门学习用！

我也没想那么多，就是想，当我们选择一个元素作为基准的时候，能不能清楚一点。