;  CHGLAYER command -- changes selected objects to have the
;  same layer as another specified object.

(defun C:CHGLAYER (/ s1 s2 lname)
   (princ "Select objects to be changed...\n")
   (setq s1 (ssget))
   (princ "Select an object on the desired layer...\n")
   (setq s2 (ssget))
   (setq lname (cdr (assoc 8 (entget (ssname s2 0)))))
   (command "CHANGE" s1 "" "PROP" "LAYER" lname "")
)