Putting each Solid Object in a separate layer with RANDOM color for each layer

[ADSK2007]

Hello to all

I have been using a lisp rutine to put each solid object onto a separate layer for exporting to another application. The lisp works great but it assigns only one color to all layers (Color red). Is there a way to apply a random color to each layer? Below is the routine i use to do this.

Thank you for your help

 
(defun C:l2l (/ a lname b index b1 name n)
(setvar "regenmode" 0)
(setq a (ssget))
(setq lname "3d" )
(setq b 1)
(setq n (sslength a))
(setq index 0)
(repeat n
   (setq b1 (entget (ssname a index)))
   (setq index (1+  index))
   (setq b2 (rtos b 2 0))
   (setq na (strcat lname b2))
   (command "layer" "n" na "" "")
   (command "layer" "s" na "c" 1 "" "s" 0 "")
   (setq c (assoc  8 b1))
   (setq d (cons (car c)na))
    (setq e (subst d c b1))
    (entmod e)
;   (command "change" !b1 "")
;   (command "change" "p" "" "p" "la" na "" "")
   (setq b (1+  b))
   )
   (setvar "regenmode" 1)
)
(defun C:l2lA (/ a lname b index b1 name n)
(setvar "regenmode" 0)
(setq a (ssget))
(setq lname (getstring "\Enter the starting string (A MAXIMUM OF 5 CHARACTERS): "))
(setq b 1)
(setq n (sslength a))
(setq index 0)
(repeat n
   (setq b1 (entget (ssname a index)))
   (setq index (1+  index))
   (setq b2 (rtos b 2 0))
   (setq na (strcat lname b2))
   (command "layer" "n" na "" "")
   (command "layer" "s" na "c" 1 "" "s" 0 "")
   (setq c (assoc  8 b1))
   (setq d (cons (car c)na))
    (setq e (subst d c b1))
    (entmod e)
;   (command "change" !b1 "")
;   (command "change" "p" "" "p" "la" na "" "")
   (setq b (1+  b))
   )
(setvar "regenmode" 1)
)

[Lee Mac]

Very quickly written:

(defun c:Solids2Layers ( / _padzeros a b e i l n p s )
    (setq p "3d")

    (defun _padzeros ( s l )
        (if (< (strlen s) l) (_padzeros (strcat "0" s) l) s)
    )
    (if (setq s (ssget "_:L" '((0 . "*SOLID"))))
        (progn
            (setq
                i (sslength s)
                l (1+ (fix (/ (log i) (log 10))))
                n 0
            )
            (repeat i
                (setq e (entget (ssname s (setq i (1- i)))))
                (entmod
                    (subst
                        (cons  8 (strcat p (_padzeros (itoa (setq n (1+ n))) l)))
                        (assoc 8 e)
                        e
                    )
                )
            )
            (setq n 0)
            (while (setq a (tblnext "LAYER" (null a)))
                (if (wcmatch (setq b (cdr (assoc 2 a))) (strcat p "*"))
                    (entmod
                        (setq b (entget (tblobjname "LAYER" b))
                              b (subst (cons 62 (setq n (1+ (rem n 254)))) (assoc 62 b) b)
                        )
                    )
                )
            )
        )
    )
    (princ)
)

[ADSK2007]

Hi Lee

Thank you for your help. One question. Do I need to use your lisp AFTER i use the L2L routine or your code will also select the solids and put them all in separate layers with different layer names and colors? Also, is the a way you could add your code to the original lisp routine?

Thank you again for helping.

ADSK

[Lee Mac]

My code is independent of the code you have posted, it will prompt the user for a selection, move the objects to separate layers, and change the colours of these layers.

Lee