 ; Move entities to another layer, colour and linetype bylayer.
 ; Copyright 1994 by Rocket Software
 ; I saw a perfect drawing once.  Of course, it had nothing in it.
 (DEFUN C:LCB ( / ss tt zz)
  (setvar "cmdecho" 0)
  (command "undo" "mark")
  (write-line "Pick objects to move:")
  (setq ss (ssget))
  (if (and ss (setq tt (entsel "Select an entity on the desired layer: \n")))
      (progn
           (setq zz (cdr (assoc 8 (entget (car tt)))))
           (command "change" ss "" "p" "colour" "bylayer"
                                       "lt" "bylayer"
                                       "layer" zz "")))
 (princ))