 ; Flay - freeze all layers except the one containing a selected entity.
 ; Copyright 1994 by Rocket Software
 ; An attempt to redefine the word so as to preclude its original use.
 (DEFUN C:FLAY (/ enam)
  (command "layer" "t" "*" "")
  (setq enam (entsel))
  (if enam
     (progn
          (setvar "clayer" (cdr (assoc 8 (entget (car enam)))))
          (command "layer" "f" "*" ""))
     (prompt "\nCan't set the layer to the background."))
 (princ))