;Title - Erin Stephens Lisp Page
;Lisp Page from Internet - Internet Worldwide Communications
(defun C:LYRSET (/ #A)
 (setvar "cmdecho" 0)
 (setq #A (cdr (assoc 8
 (entget (car (entsel "Select entity to set layer: "))))))
 (command "layer" "set" #A "") (eval #A))