这是什么意思啊

(defun c:mjd ()
8 S. S+ K% y2 k& c6 {4 c  (prompt "请输入要求非标面积的层名:  ")
  (setq aly (getstring))
4 o: q) _4 ~/ l1 [5 ?/ z  (command "layer" "s" "0" "f" "*" "t" aly "")
/ X9 B  c2 @/ c' _  (setq ena (ssget "x" '((8 . "025"))) n (sslength ena) i 0)
  (setvar "clayer" "0")(setvar "cmdecho" 0)
  (while (setq ena (entsel "选择图形: "))
( a7 k6 M! [$ }5 M5 P9 m    (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文字位置:  "))
  k: k/ E$ g; g. E8 ?    (command "text" p1 "200" "0" aa)
5 t4 I1 A& T% w) R0 _ )
' ?0 O* S% e8 `: p% E* ] (setvar "cmdecho" 1)
)
% M' C( D! B* |" J(defun c:mjw ()
$ e$ }4 e; X- @* M5 V  (prompt "请输入要求非标面积的层名:  ")
3 ^$ s2 j' T! r+ j. G  (setq aly (getstring))
  (command "layer" "s" "0" "f" "*" "t" aly "")
8 K* a  ^' W3 y" V. C- ]& m  (prompt "选择要标面积的图形: ")
! |5 ^% ?- ^- M5 H, J5 O  (while (setq ena (ssget ) )
3 K7 S1 e' R% D2 r' Z( j2 K9 f  (if (/= ena nil)(setq n (sslength ena) i 0)(setq n 0))
6 }8 n% W) ]' d8 t; O" \0 G  (repeat n
8 b4 l* {! M* q: s+ X% I/ K  (setvar "clayer" "0")(setvar "cmdecho" 0)
, _6 C( V/ X5 s9 z! ~% j   (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" "")
& R! n. Z. U& O    (setq a (getvar "area") aa (/ a 1000000.0) aa (rtos aa 2 4))
+ l: g( W( ?! r6 |% o# w% z" G9 f    (setq p1 (getpoint "/n文字位置:  "))
    (command "text" p1 "200" "0" aa)
    (command "change" en """p" "la" lla "")
6 H# G& Q8 k0 P2 K+ W )
)
1 G1 Z* g3 c9 q0 I7 t3 h (setvar "cmdecho" 1)
. j7 T0 H1 k$ s% D4 M$ _)

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

看不懂啊，我也

cad中批量面积的

看不懂啊

编程语言