谁能帮我讲讲while在这里的用法,有点看不懂,最好能讲一下每一句的程序的意思

模具是我的工作

(DEFUN C:LLI (/ ES EN EL A)

  (setvar "cmdecho" 0)
  (princ "\nOnly turn on select object layers:")
  (setq        ES (ssget)
        A  0
        EN ""
        EL nil
        FL nil
  )
  (while (/= EN nil)
    (setq EN (ssname ES A)
          EL (cons EN EL)
          A  (1+ A)
    )
  )
  (setq        EL (cdr EL)
        FL (cdr (assoc 8 (entget (car EL))))
        EL (cdr EL)
  )
  (repeat (- A 2)
    (setq EN (cdr (assoc 8 (entget (car EL))))
          FL (strcat EN "," FL)
          EL (cdr EL)
    )
  )
  (command "LAYER" "off" "*" "y" "on" (eval FL) "")
  (princ)
  (setvar "cmdecho" 1)

)