Willekeurige layer kleuren

[cadtools@gmail.com]

Als je output hebt met veel blocks of veel lagen..
dan kan dit tooltje handig zijn om ze zien wat waar zit.
Geeft contrast..

Code Selecteer Uitklappen



; random layer colors
;; Rand  -  Lee Mac
;; PRNG implementing a linear congruential generator with
;; parameters derived from the book 'Numerical Recipes'
(defun LM:rand ( / a c m )
    (setq m   4294967296.0
          a   1664525.0
          c   1013904223.0
          $xn (rem (+ c (* a (cond ($xn) ((getvar 'date))))) m)
    )
    (/ $xn m)
)
;; Random in Range  -  Lee Mac
;; Returns a pseudo-random integral number in a given range (inclusive)
(defun LM:randrange ( a b )
    (+ (min a b) (fix (* (LM:rand) (1+ (abs (- a b))))))
)


(defun c:lcolor nil
    (vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
        (vla-put-color x (LM:randrange 10 249))
    )
    (princ)
)

(vl-load-com) (princ)