这是什么意思啊

(defun c:mjd ()
- X# n' |: ]% h& ?; ~/ |% W  (prompt "请输入要求非标面积的层名:  ")
8 J- u  _8 Q& x8 s7 u3 Z  (setq aly (getstring))
  (command "layer" "s" "0" "f" "*" "t" aly "")
6 @7 D1 H& \: o  T  (setq ena (ssget "x" '((8 . "025"))) n (sslength ena) i 0)
( t3 p2 ^  j: d, s3 F% y  (setvar "clayer" "0")(setvar "cmdecho" 0)
  (while (setq ena (entsel "选择图形: "))
    (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))
3 a6 `3 J( i+ j0 G0 R: p, q0 C    (setq p1 (getpoint "/n文字位置:  "))
    (command "text" p1 "200" "0" aa)
)
(setvar "cmdecho" 1)
)
2 f2 }" {4 X$ G; t(defun c:mjw ()
% v( f$ m; \" k- T% {  (prompt "请输入要求非标面积的层名:  ")
) o% Q! D( w) i# q; j7 _  (setq aly (getstring))
  (command "layer" "s" "0" "f" "*" "t" aly "")
  (prompt "选择要标面积的图形: ")
2 ~, {& x4 ]+ q6 r  (while (setq ena (ssget ) )
  (if (/= ena nil)(setq n (sslength ena) i 0)(setq n 0))
  (repeat n
  (setvar "clayer" "0")(setvar "cmdecho" 0)
   (setq en (ssname ena i) ee (entget en) lla (cdr (assoc 8 ee)) i (1+ i))
    (command "list" en "")
    (command "change" en """p" "la" "0" "")
    (setq a (getvar "area") aa (/ a 1000000.0) aa (rtos aa 2 4))
    (setq p1 (getpoint "/n文字位置:  "))
( L. |7 ]7 P1 r( p5 U+ P    (command "text" p1 "200" "0" aa)
) |( _9 G1 \( z. f( {5 j7 q9 ?    (command "change" en """p" "la" lla "")
% E- l5 k  I. p( Z9 S1 a6 t" ~0 ^ )
)
4 M# @  n9 q- V" c) f6 A: S (setvar "cmdecho" 1)
3 B5 a( a- K) B! l* c( [)