Entity to current layer LISP?

[~Jeff~]

I was looking for a LISP routine that would change entities that I pick (multiple or one) on the drawing to the current layer and it would change the color and linetype to BYLAYER. Anyone have a LISP that does this or know the code to make this happen?

Thanks in advance!

 

[Paul Turvill]

(defun C:MyProp (/ ss)
(setq ss (ssget))
(command "_.chprop" ss "" "_la" (getvar "clayer") "_c" "BYLAYER" "_lt" "BYLAYER" "") (princ)
);;

.... and of course, there are also the PROPERTIES and MATCHPROP commands ...
___

 

[Rudy Tovar]

Simple.

(defun c:cyr (/ obj)

(setq obj (ssget))

(if obj (command "change" obj "" "p" "la" (getvar"clayer") "c" "bylayer" "lt" "bylayer" ""

(princ)))

(princ)

)

 

[Rudy Tovar]

Scary when two people think the same.. uuooo..........