这是什么意思啊

(defun c:mjd ()
  (prompt "请输入要求非标面积的层名:  ")
  (setq aly (getstring))
" C3 }' q/ a# d1 n( |% J  (command "layer" "s" "0" "f" "*" "t" aly "")
  (setq ena (ssget "x" '((8 . "025"))) n (sslength ena) i 0)
1 I# H$ v: a: p$ Z) v  (setvar "clayer" "0")(setvar "cmdecho" 0)
  (while (setq ena (entsel "选择图形: "))
/ I% t- z" X! d5 T% e    (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文字位置:  "))
3 x0 ]+ W) N! F8 m    (command "text" p1 "200" "0" aa)
3 H/ `2 U) h( w* Z  I )
(setvar "cmdecho" 1)
)
(defun c:mjw ()
* o" ^- W" Z9 f6 `+ K  (prompt "请输入要求非标面积的层名:  ")
  (setq aly (getstring))
0 v$ S$ p) H8 I6 A( {9 i+ Z  (command "layer" "s" "0" "f" "*" "t" aly "")
  (prompt "选择要标面积的图形: ")
  (while (setq ena (ssget ) )
  (if (/= ena nil)(setq n (sslength ena) i 0)(setq n 0))
  (repeat n
6 b$ z! I4 T7 M3 y1 p1 D. C  (setvar "clayer" "0")(setvar "cmdecho" 0)
   (setq en (ssname ena i) ee (entget en) lla (cdr (assoc 8 ee)) i (1+ i))
    (command "list" en "")
9 {% A, ^. m+ V    (command "change" en """p" "la" "0" "")
/ V. W3 {  n0 n: E( r5 n    (setq a (getvar "area") aa (/ a 1000000.0) aa (rtos aa 2 4))
    (setq p1 (getpoint "/n文字位置:  "))
    (command "text" p1 "200" "0" aa)
) n  B& e% Y1 W: ^) B3 Z    (command "change" en """p" "la" lla "")
% J7 i! b- q. k/ W& A0 k& K+ g )
" P3 z: T( p1 F* p/ n- ] )
' Y  o4 H& w  T( } (setvar "cmdecho" 1)
)

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

看不懂啊，我也

cad中批量面积的
4 u* U% ^# N4 [' A; s& o% e, V4 Z' H

看不懂啊

编程语言