这是什么意思啊

(defun c:mjd ()
( J! B$ A$ {- R1 U  (prompt "请输入要求非标面积的层名:  ")
9 m4 F6 M6 r/ w3 q+ b7 g  (setq aly (getstring))
! X! H* M8 W3 a; j- |  (command "layer" "s" "0" "f" "*" "t" aly "")
  (setq ena (ssget "x" '((8 . "025"))) n (sslength ena) i 0)
3 q3 N: |( N2 Q. _+ X" a. S3 Z* p  (setvar "clayer" "0")(setvar "cmdecho" 0)
2 r. ^0 r) b0 w9 W0 x  (while (setq ena (entsel "选择图形: "))
    (setq en (car ena) ee (entget en) ee (entget en) )
- R& q9 \1 R5 o6 S* ?+ j4 ^) a    (command "list" en "")
8 j1 `; U2 u5 F9 z0 ]& r& Y    (setq a (getvar "area") aa (/ a 1000000.0) aa (rtos aa 2 4))
    (setq p1 (getpoint "/n文字位置:  "))
    (command "text" p1 "200" "0" aa)
1 b; o! ]/ p2 N7 I( d: |& G6 S )
+ n( n) f* B7 i1 F$ L% ? (setvar "cmdecho" 1)
4 S6 q2 |3 ~  _' X8 ]" ~)
4 M8 k2 [+ h/ Q2 E(defun c:mjw ()
: k! }/ ?5 c/ g7 ^5 V& R; t4 V  (prompt "请输入要求非标面积的层名:  ")
  (setq aly (getstring))
  (command "layer" "s" "0" "f" "*" "t" aly "")
5 t% N  P  b( p5 ~0 }  ^, W  (prompt "选择要标面积的图形: ")
  (while (setq ena (ssget ) )
9 \" @6 v% D1 E6 }( e) d  (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))
( A/ F  y- n( z+ W5 L, j, L    (command "list" en "")
    (command "change" en """p" "la" "0" "")
) N6 |9 P7 ?( ^& Z, J    (setq a (getvar "area") aa (/ a 1000000.0) aa (rtos aa 2 4))
    (setq p1 (getpoint "/n文字位置:  "))
/ t4 r% A& S3 K: L8 H0 U7 W    (command "text" p1 "200" "0" aa)
    (command "change" en """p" "la" lla "")
)
: K/ k8 y* q0 I4 { )
  I& j* {1 f% k& C (setvar "cmdecho" 1)
: O/ f, f( V4 z0 _3 E! ^)

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

看不懂啊，我也

cad中批量面积的

看不懂啊

编程语言