这是什么意思啊

(defun c:mjd ()
  (prompt "请输入要求非标面积的层名:  ")
  (setq aly (getstring))
  (command "layer" "s" "0" "f" "*" "t" aly "")
  (setq ena (ssget "x" '((8 . "025"))) n (sslength ena) i 0)
  (setvar "clayer" "0")(setvar "cmdecho" 0)
  (while (setq ena (entsel "选择图形: "))
. r+ U' N  N+ T: _    (setq en (car ena) ee (entget en) ee (entget en) )
& w$ d5 L8 G# R) h& p    (command "list" en "")
- ~6 s' [% b7 V; A0 B. |  Y    (setq a (getvar "area") aa (/ a 1000000.0) aa (rtos aa 2 4))
+ p) P' N6 X1 P& v8 d# I    (setq p1 (getpoint "/n文字位置:  "))
$ v0 V6 l9 u% V; |+ G    (command "text" p1 "200" "0" aa)
+ H) v8 H. I5 p )
$ N" O( s7 f. Q6 f- |: c8 | (setvar "cmdecho" 1)
)
, F2 J% \0 n+ p(defun c:mjw ()
  (prompt "请输入要求非标面积的层名:  ")
* |" E( I- T! j( o& p/ R) w  (setq aly (getstring))
  (command "layer" "s" "0" "f" "*" "t" aly "")
% C  e/ B  a7 f8 u( A1 g- Y  (prompt "选择要标面积的图形: ")
  (while (setq ena (ssget ) )
5 P) h% `; B4 r( E3 w! ?5 S4 E  (if (/= ena nil)(setq n (sslength ena) i 0)(setq n 0))
. K: e% Z& z' @. |. r  (repeat n
. x+ r9 C& ~* t& V  (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))
: q" H8 ]$ e% O: b7 _    (setq p1 (getpoint "/n文字位置:  "))
    (command "text" p1 "200" "0" aa)
/ C% t4 ]7 ]# q  B6 u2 o/ M    (command "change" en """p" "la" lla "")
  S1 P6 R& z& m6 G )
)
(setvar "cmdecho" 1)
5 p" b( i- f- n)

这个那里弄的 不懂····

看不懂啊，我也

cad中批量面积的

看不懂啊

编程语言