create and send elements to layers according to color

[pizarro]

I need help, any lisp to create and send elements to layers according to color ?

[ronjonp]

Here's a quick one:

(defun c:foo (/ a b c)
  ;; RJP » 2019-02-23
  (if (setq c (ssget ":L"))
    (foreach x (vl-remove-if 'listp (mapcar 'cadr (ssnamex c)))
      (cond ((setq a (cdr (assoc 62 (entget x))))
	     (setq b (tblobjname "layer" (itoa a)))
	     (entmod (append (entget x) (list (cons 8 (itoa a)) (cons 62 256))))
	     (or b (entmod (append (entget (tblobjname "layer" (itoa a))) (list (cons 62 a)))))
	    )
      )
    )
  )
  (princ)
)

 

[pizarro]

Perfect...¡ 

Thank you vey much...¡¡

[ronjonp]

51 minutes ago, pizarro said:

Perfect...¡ 

Thank you vey much...¡¡

Glad to help