(defun C:LFA () ;Layer Freeze All
  (COMMAND ".LAYER" "F" "*" "")
  (PRINC)
)