(princ "\nLoading LAYSET.LSP...")
;Move selected entities to a specified layer
(defun C:LAYSET (/ curlay target ent entg)
  ;define target layer, default is current layer
  (setq curlay (getvar "clayer"))
  (setq target (getstring (strcat "\nEnter Target Layer <"curlay">: ")))
  (if (= (strlen target) 0) (setq target curlay))
  ;set layer of selected entities to target layer
  (while (setq ent (car (entsel "\nSelect entity to change layer: ")))
    (setq entg (entget ent))
    (setq entg (subst (cons 8 target) (assoc 8 entg) entg))
    (entmod entg)
  )
  (princ)
)
(princ "\nCommand -> LAYSET")
(princ)