(defun C:C-LAY ()
       (setq obj nil)
(while (not (listp obj))
       (setq obj (entsel "\nSelect item for layer change: ")))
       (setq OLD_LAYER
             (cdr (assoc 8 (entget (car obj)
       )     )    )        )       
       (setq NEW_LAYER 
             (cdr (assoc 8 (entget (car (entsel "\nSelect item in new layer: ")
       )     )    )        )       )
(princ "\nSelected objects in layer ") (princ OLD_LAYER)
(princ " will be placed in layer ") (princ NEW_LAYER)
(getstring)
)