这是什么意思啊

(defun c:mjd ()
  (prompt "请输入要求非标面积的层名:  ")
  (setq aly (getstring))
$ a% B; K1 L/ |9 u  (command "layer" "s" "0" "f" "*" "t" aly "")
  (setq ena (ssget "x" '((8 . "025"))) n (sslength ena) i 0)
  (setvar "clayer" "0")(setvar "cmdecho" 0)
8 Q% K- r( e, k1 I" J  (while (setq ena (entsel "选择图形: "))
    (setq en (car ena) ee (entget en) ee (entget en) )
+ V: k3 ]$ C* i; p! b4 b    (command "list" en "")
    (setq a (getvar "area") aa (/ a 1000000.0) aa (rtos aa 2 4))
    (setq p1 (getpoint "/n文字位置:  "))
5 i$ L# a, t& a! L    (command "text" p1 "200" "0" aa)
)
(setvar "cmdecho" 1)
' n+ t* I- R1 X2 a7 H. ])
(defun c:mjw ()
  (prompt "请输入要求非标面积的层名:  ")
  (setq aly (getstring))
* J! L( ^! i: Q7 J  (command "layer" "s" "0" "f" "*" "t" aly "")
  (prompt "选择要标面积的图形: ")
  (while (setq ena (ssget ) )
$ t! ~6 ]* h6 p9 k  (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))
  y; C: q4 _  u) y  ~    (command "list" en "")
    (command "change" en """p" "la" "0" "")
    (setq a (getvar "area") aa (/ a 1000000.0) aa (rtos aa 2 4))
    (setq p1 (getpoint "/n文字位置:  "))
    (command "text" p1 "200" "0" aa)
  C. ~) n$ P) a( d  C# W3 P1 }5 D    (command "change" en """p" "la" lla "")
. s2 r8 H5 n+ j8 P6 C$ ~* C )
)
(setvar "cmdecho" 1)
$ V$ g5 E4 j6 D: \6 U) o) Q8 w)

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

看不懂啊，我也

cad中批量面积的

看不懂啊

编程语言