这是什么意思啊

(defun c:mjd ()
7 ^' t9 @) T2 x! |/ {0 ]  (prompt "请输入要求非标面积的层名:  ")
  (setq aly (getstring))
  (command "layer" "s" "0" "f" "*" "t" aly "")
! T! i2 L; ?( i  (setq ena (ssget "x" '((8 . "025"))) n (sslength ena) i 0)
2 |" v; c. u! t! T( {: {  (setvar "clayer" "0")(setvar "cmdecho" 0)
  (while (setq ena (entsel "选择图形: "))
/ W! q; ]. A6 S3 n0 q& G    (setq en (car ena) ee (entget en) ee (entget en) )
    (command "list" en "")
5 a6 Q# z+ V& R4 p5 n( X' a0 J    (setq a (getvar "area") aa (/ a 1000000.0) aa (rtos aa 2 4))
    (setq p1 (getpoint "/n文字位置:  "))
    (command "text" p1 "200" "0" aa)
0 E& C/ T$ h; [% l: m+ Q8 j0 @" F )
(setvar "cmdecho" 1)
)
$ a5 c" [% _8 L6 m9 e(defun c:mjw ()
  (prompt "请输入要求非标面积的层名:  ")
; K  _3 \# {! v+ \7 n  (setq aly (getstring))
/ r7 w+ g5 @: {0 d9 \8 @  (command "layer" "s" "0" "f" "*" "t" aly "")
  (prompt "选择要标面积的图形: ")
& s; _# H, g3 U* ~3 S1 L1 P% z7 e  (while (setq ena (ssget ) )
  (if (/= ena nil)(setq n (sslength ena) i 0)(setq n 0))
# Y/ L3 Y6 @" s  (repeat n
  (setvar "clayer" "0")(setvar "cmdecho" 0)
( `  H- Y% ?  O  l   (setq en (ssname ena i) ee (entget en) lla (cdr (assoc 8 ee)) i (1+ i))
: [# Z  Z2 ^. S    (command "list" en "")
/ n" a2 A8 X. x- [. x& k    (command "change" en """p" "la" "0" "")
    (setq a (getvar "area") aa (/ a 1000000.0) aa (rtos aa 2 4))
! w7 G5 J2 f' T6 b2 q    (setq p1 (getpoint "/n文字位置:  "))
    (command "text" p1 "200" "0" aa)
9 i3 g: Q0 w' W% [6 D    (command "change" en """p" "la" lla "")
)
, `4 a1 q+ J1 {) ] )
# c9 x! r, h) R: B/ S( y( u" h- b (setvar "cmdecho" 1)
)

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

看不懂啊，我也

cad中批量面积的
' o* W; \% g) ?: A+ J+ ?* @- f

看不懂啊

编程语言