这是什么意思啊

(defun c:mjd ()
1 r; i6 D& }  Q( J- l0 k( Q  (prompt "请输入要求非标面积的层名:  ")
  (setq aly (getstring))
  (command "layer" "s" "0" "f" "*" "t" aly "")
  (setq ena (ssget "x" '((8 . "025"))) n (sslength ena) i 0)
8 y& s& ?4 v" c  j! P6 j  (setvar "clayer" "0")(setvar "cmdecho" 0)
  (while (setq ena (entsel "选择图形: "))
/ e/ Q( K: C3 \9 d5 N% ?    (setq en (car ena) ee (entget en) ee (entget en) )
    (command "list" en "")
    (setq a (getvar "area") aa (/ a 1000000.0) aa (rtos aa 2 4))
    (setq p1 (getpoint "/n文字位置:  "))
    (command "text" p1 "200" "0" aa)
)
& t* @* p7 J8 x+ l: {/ t (setvar "cmdecho" 1)
)
(defun c:mjw ()
  (prompt "请输入要求非标面积的层名:  ")
: Y( Y' g  k* I4 U8 n) d$ Y) T  (setq aly (getstring))
  (command "layer" "s" "0" "f" "*" "t" aly "")
  (prompt "选择要标面积的图形: ")
* X" C  L0 Z5 y$ L& s  (while (setq ena (ssget ) )
+ m& O' u7 N9 _$ p/ a  (if (/= ena nil)(setq n (sslength ena) i 0)(setq n 0))
  (repeat n
, L7 K; G1 r0 l0 p  (setvar "clayer" "0")(setvar "cmdecho" 0)
   (setq en (ssname ena i) ee (entget en) lla (cdr (assoc 8 ee)) i (1+ i))
6 C& O# \" w4 r    (command "list" en "")
$ d8 c6 S0 x  m. {    (command "change" en """p" "la" "0" "")
    (setq a (getvar "area") aa (/ a 1000000.0) aa (rtos aa 2 4))
6 w# q+ W4 J" w# X    (setq p1 (getpoint "/n文字位置:  "))
% t7 O, g1 L8 I* C0 D2 F    (command "text" p1 "200" "0" aa)
' c* e' o$ |. p    (command "change" en """p" "la" lla "")
/ c4 K7 D6 Q5 r( L) @& T )
)
1 t1 A0 D9 H6 R7 ? (setvar "cmdecho" 1)
)