(defun C:LOF (/ X Y) ;Layer Off
  (setq X (cdr (assoc 8
  (entget (car (entsel "\nSelect Entity To Turn Layer Off: ")))))) 
  (if (/= X (getvar "CLAYER"))
  (progn (command ".layer" "off" X "") (eval X))
  (progn (setq Y (strcase (getstring
  (strcat "\nReally want layer <" X "> The CURRENT layer off? <N> "))))
  (if (= (ascii Y) 89) (command "layer" "off" X "Y" ""))))
  (PRINC)
)