(defun C:LO (/ #A #B)
 (setvar "cmdecho" 0)
 (setq #A (cdr (assoc 8
 (entget (car (entsel "Select entity to turn layer off: "))))))
 (if (/= #A (getvar "CLAYER"))
 (progn (command "layer" "off" #A "") (eval #A))
  (progn (setq #B (strcase (getstring
   (strcat "\nReally want layer <" #A "> The CURRENT layer off? <N> "))))
  (if (= (ascii #B) 89) (command "layer" "off" #A "Y" ""))))
)