3DSolid颜色随机变化

DuanJinHui · 发表于 2022-7-5 19:40:58

我想更改3dsolid颜色（颜色不相同），但3dsolid对象太多（>300），

那么，可以使用lisp随机更改3DSolid颜色吗？（ACI），有可能吗？

ReMark · 发表于 2022-7-5 19:50:30

是否要为300多个实体对象随机指定颜色？每个物体都会被指定一个唯一的颜色，还是你会使用有限的颜色范围？

DuanJinHui · 发表于 2022-7-5 19:58:57

颜色可以重复。

ReMark · 发表于 2022-7-5 20:05:13

你有没有想出一套你喜欢的颜色？

Tharwat · 发表于 2022-7-5 20:11:54

你好

这是我的尝试

copy


(defun c:test (/ ss i)
 ;;------------------------------------;;
 ;; Tharwat 17.06.2015                        ;;
 ;; Color 3dSolid objects randomly        ;;
 ;;------------------------------------;;
 (if c c (setq c 1))
 (if (setq ss (ssget "_:L" '((0 . "3DSOLID"))))
   (repeat (setq i (sslength ss))
     (entmod (append (entget (ssname ss (setq i (1- i))))
                     (list (cons 62 (rem c 255)))
                     )
             )
     (setq c (+ c 3))
     )
   )
 (princ)
 )

Lee Mac · 发表于 2022-7-5 20:19:09

以下内容将为每个选定实体指定伪随机颜色：

copy


([color=BLUE]defun[/color] c:3dcol ( [color=BLUE]/[/color] i s )
   ([color=BLUE]if[/color] ([color=BLUE]setq[/color] s ([color=BLUE]ssget[/color] [color=MAROON]"_:L"[/color] '((0 . [color=MAROON]"3DSOLID"[/color]))))
       ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] i ([color=BLUE]sslength[/color] s))
           ([color=BLUE]vla-put-color[/color] ([color=BLUE]vlax-ename->vla-object[/color] ([color=BLUE]ssname[/color] s ([color=BLUE]setq[/color] i ([color=BLUE]1-[/color] i)))) (LM:randrange 1 255))
       )
   )
   ([color=BLUE]princ[/color])
)
[color=GREEN];; Rand  -  Lee Mac[/color]
[color=GREEN];; PRNG implementing a linear congruential generator with[/color]
[color=GREEN];; parameters derived from the book 'Numerical Recipes'[/color]
([color=BLUE]defun[/color] LM:rand ( [color=BLUE]/[/color] a c m )
   ([color=BLUE]setq[/color] m   4294967296.0
         a   1664525.0
         c   1013904223.0
         $xn ([color=BLUE]rem[/color] ([color=BLUE]+[/color] c ([color=BLUE]*[/color] a ([color=BLUE]cond[/color] ($xn) (([color=BLUE]getvar[/color] 'date))))) m)
   )
   ([color=BLUE]/[/color] $xn m)
)
[color=GREEN];; Random in Range  -  Lee Mac[/color]
[color=GREEN];; Returns a pseudo-random integral number in a given range (inclusive)[/color]
([color=BLUE]defun[/color] LM:randrange ( a b )
   ([color=BLUE]fix[/color] ([color=BLUE]+[/color] a ([color=BLUE]*[/color] (LM:rand) ([color=BLUE]-[/color] b a -1))))
)
([color=BLUE]vl-load-com[/color]) ([color=BLUE]princ[/color])