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

183017064

2. ;; 自定义颜色命令
   
3. (defun c:C1 () (setcolor 6))     ; 洋红
   
4. (defun c:C2 () (setcolor 1))     ; 红色
   
5. (defun c:C3 () (setcolor 2))     ; 黄色
   
6. (defun c:C4 () (setcolor 3))     ; 绿色
   
7. (defun c:C5 () (setcolor 4))     ; 青色
   
8. (defun c:C6 () (setcolor 5))     ; 蓝色
   
9. (defun c:C7 () (setcolor 11))    ; 棕色
   
10. (defun c:C8 () (setcolor 190))   ; 紫色
    
11. (defun c:CC () (setcolor 256))   ; 随层
    
12. 
    
13. 
    
14. ;;; ======================================================
    
15. (defun setcolor (colorcode / color-palette color-name ss cnt ent)
    
16.     ;; 颜色名称对照表
    
17.     (setq color-palette
    
18.         '(
    
19.             (1 . "红色")     (2 . "黄色")     (3 . "绿色")
    
20.             (4 . "青色")     (5 . "蓝色")     (6 . "洋红")
    
21.             (11 . "棕色")    (190 . "紫色")   (256 . "随层")
    
22.         )
    
23.     )
    
24.    
    
25.     ;; 获取颜色名称
    
26.     (setq color-name
    
27.         (if (setq temp (assoc colorcode color-palette))
    
28.             (cdr temp)
    
29.             "未知颜色"
    
30.         )
    
31.     )
    
32.    
    
33.     ;; 显示颜色设置提示
    
34.     (princ
    
35.         (strcat
    
36.             "\n当前颜色: "
    
37.             color-name
    
38.             " (代码 "
    
39.             (itoa colorcode)
    
40.             ")"
    
41.         )
    
42.     )
    
43.    
    
44.     ;; 实体选择
    
45.     (if (setq ss (ssget))
    
46.         (progn
    
47.             (setq cnt 0)
    
48.             (repeat (sslength ss)
    
49.                 (setq ent (ssname ss cnt))
    
50.                 (entmod
    
51.                     (append
    
52.                         (entget ent)
    
53.                         (list (cons 62 colorcode))
    
54.                     )
    
55.                 )
    
56.                 (setq cnt (1+ cnt))
    
57.             )
    
58.             ;; 显示修改结果
    
59.             (princ
    
60.                 (strcat
    
61.                     "\n成功修改 "
    
62.                     (itoa cnt)
    
63.                     " 个实体颜色为 "
    
64.                     color-name
    
65.                 )
    
66.             )
    
67.         )
    
68.         ;; 空选择提示
    
69.         (princ "\n未选择任何实体，颜色已设置但未应用")
    
70.     )
    
71.     (princ) ; 静默退出
    
72. )
    
73. 
    
74. ;;; ======================================================
    
75. (princ "\n颜色快捷命令加载成功 (C1-C8/CC)")
    
76. (princ)

;; 自定义颜色命令<br /> (defun c:C1 () (setcolor 6))     ; 洋红<br /> (defun c:C2 () (setcolor 1))     ; 红色<br /> (defun c:C3 () (setcolor 2))     ; 黄色<br /> (defun c:C4 () (setcolor 3))     ; 绿色<br /> (defun c:C5 () (setcolor 4))     ; 青色<br /> (defun c:C6 () (setcolor 5))     ; 蓝色<br /> (defun c:C7 () (setcolor 11))    ; 棕色<br /> (defun c:C8 () (setcolor 190))   ; 紫色<br /> (defun c:CC () (setcolor 256))   ; 随层<br /> <br /> <br /> ;;; ======================================================<br /> (defun setcolor (colorcode / color-palette color-name ss cnt ent)<br />     ;; 颜色名称对照表<br />     (setq color-palette<br />         '(<br />             (1 . "红色")     (2 . "黄色")     (3 . "绿色")<br />             (4 . "青色")     (5 . "蓝色")     (6 . "洋红")<br />             (11 . "棕色")    (190 . "紫色")   (256 . "随层")<br />         )<br />     )<br />     <br />     ;; 获取颜色名称<br />     (setq color-name <br />         (if (setq temp (assoc colorcode color-palette))<br />             (cdr temp)<br />             "未知颜色"<br />         )<br />     )<br />     <br />     ;; 显示颜色设置提示<br />     (princ <br />         (strcat <br />             "\n当前颜色: "<br />             color-name <br />             " (代码 " <br />             (itoa colorcode) <br />             ")"<br />         )<br />     )<br />     <br />     ;; 实体选择<br />     (if (setq ss (ssget))<br />         (progn<br />             (setq cnt 0)<br />             (repeat (sslength ss)<br />                 (setq ent (ssname ss cnt))<br />                 (entmod <br />                     (append <br />                         (entget ent)<br />                         (list (cons 62 colorcode))<br />                     )<br />                 )<br />                 (setq cnt (1+ cnt))<br />             )<br />             ;; 显示修改结果<br />             (princ<br />                 (strcat <br />                     "\n成功修改 " <br />                     (itoa cnt) <br />                     " 个实体颜色为 "<br />                     color-name<br />                 )<br />             )<br />         )<br />         ;; 空选择提示<br />         (princ "\n未选择任何实体，颜色已设置但未应用")<br />     )<br />     (princ) ; 静默退出<br /> )<br /> <br /> ;;; ======================================================<br /> (princ "\n颜色快捷命令加载成功 (C1-C8/CC)")<br /> (princ)

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
娱乐性，还能兼做入门学习用！

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