(DEFUN C:LFE (/ CECHO CLAY LA COUNT NUM ENT SSL XX) ;Layer Freeze Entity
 (setq clay (getvar "CLAYER"))
 (command "LAYER" "S" "0")
 (prompt "\nPick objects on layers to freeze: ")
 (setq LA (ssget))
 (setq COUNT 0)
 (setq NUM (sslength la))
 (while (< COUNT NUM)
  (setq ENT (SSNAME LA COUNT))
  (setq SSL (CDR (CONS 8 (CDR (ASSOC 8 (ENTGET ENT))))))
  (if (= SSL CLAY)
    (progn
      (prompt (strcat "\nLayer " SSL " is the current LAYER!"))
      (initget "Yes No")
      (setq XX (getkword "\nFreeze Layer? <Yes/No>: "))
      (cond
        ((EQ XX "Yes")
          (setq clay 0))
        ((EQ XX "No")
          (setq SSL nil))
   ) ) ) 
  (setq COUNT (1+ COUNT))
  (COMMAND "F" SSL)
)
 (command "S" CLAY "")
 (princ)
)