(defun C:LON (/ #A #B)
 (setvar "cmdecho" 0)
 (setq #A (cdr (assoc 8
 (entget (car (entsel "Select entity to turn layer on: "))))))
 (command "layer" "on" #A "")
 (eval #A)
)