这是什么意思啊

(defun c:mjd ()
3 m! d! V4 L8 N! n0 }  (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 "选择图形: "))
    (setq en (car ena) ee (entget en) ee (entget en) )
! o2 G' _0 o7 L( w0 L$ y    (command "list" en "")
& o9 I9 {4 I' R4 V5 H" A    (setq a (getvar "area") aa (/ a 1000000.0) aa (rtos aa 2 4))
* K$ h) u; i! p! b2 q    (setq p1 (getpoint "/n文字位置:  "))
    (command "text" p1 "200" "0" aa)
; k+ Z) Z8 j: P& H! l )
3 `: t  e. d. b+ M" S% I9 X0 P2 D (setvar "cmdecho" 1)
7 M; n/ ?/ F. h+ d)
(defun c:mjw ()
  (prompt "请输入要求非标面积的层名:  ")
# r7 M* M3 r4 W" _6 E7 u  f  (setq aly (getstring))
  (command "layer" "s" "0" "f" "*" "t" aly "")
  (prompt "选择要标面积的图形: ")
  (while (setq ena (ssget ) )
  (if (/= ena nil)(setq n (sslength ena) i 0)(setq n 0))
2 V" f" ?; U0 i6 W8 E( }9 G  (repeat n
$ G0 b8 l+ |& h8 t0 y6 E- E$ R1 z( ?  (setvar "clayer" "0")(setvar "cmdecho" 0)
/ D) k2 ^& p0 S  W1 W$ ?$ T" h% n  O   (setq en (ssname ena i) ee (entget en) lla (cdr (assoc 8 ee)) i (1+ i))
9 u* V) H: q/ t) [1 E    (command "list" en "")
    (command "change" en """p" "la" "0" "")
    (setq a (getvar "area") aa (/ a 1000000.0) aa (rtos aa 2 4))
1 Z2 U( j8 _$ K9 L5 j3 @& R    (setq p1 (getpoint "/n文字位置:  "))
% ?7 F4 f! }7 U2 p/ ~2 w' M0 {9 j    (command "text" p1 "200" "0" aa)
/ S# j6 u: V' j$ P    (command "change" en """p" "la" lla "")
; y: V$ o6 e( [+ k3 R6 U )
) g2 a; Y9 S) R' O0 i0 H  H )
2 Z# ?$ B/ F: H. k (setvar "cmdecho" 1)
! h5 s, y3 L3 o: l)

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

看不懂啊，我也

cad中批量面积的
( J5 s, t" Z0 c  ]

看不懂啊

编程语言