CAD参数绘图问题

573059646

分析以下三段AUTOLISP程序，写出每个语句起什么作用？最后该程序完成什么功能？
①
(defun  c:erasescr( / l u)
(graphscr)
. M' a( }6 J  I9 s9 @(setq  l  (getvar "limmin"))
# `. Q1 O+ l1 q! H/ p4 E(setq  u  (getvar "limmax"))
(command "erase"  "W"  l  u “”)
6 r, Y% e) v- z" t. L)
) X9 u. r* N. C" A- F②
(defun  p3 ( )
0 E5 V5 Z. h, B; \, S(setq  r  (getreal  “\n  number:”))
(setq  maxr  r  minr  r)
: r* }( y, b2 z' j: R/ W* {(while  r
' Q! [8 B4 g3 W; A(if  (>  r  maxr)  (setq  maxr  r))
(if  (<  r  minr)  (setq  minr  r))
. @+ U+ n. N7 A  [% Z7 o(setq  r  (getreal  “\n  number<return  when  done>:” ))
6 |# b1 _  O; e))
③
7 |2 ]/ F7 R) }% I' }) I(defun c:akey (/ d h w bp ag p1 p2)
- O4 A9 p6 h/ t3 s; P6 W* E(setq d  (/ (getdist “\n d＝?”) 2.0)
3 O5 U( O: }$ y# G/ |. k      h  (getdist “\n h＝?”)
/ @1 E2 {  I( W+ N4 ew  (/ (getdist “\n w＝?”) 2.0)
bp  (getpoint “\n center＝?”)
ag  (atan (/ w ( sqrt (－ (* d d) (* w w))))))
(command “pline”
(setq  p1 (polar  bp  (－ ag) d))
(setq  p2 (list (＋ (car bp) (－ d h)) (cadr p1)))
: w) @; x( _  u, x# s(polar  p2 (/ pi 2.0)  (* w 2))
: `  `& G0 f/ [% S# t( h6 i; E* |(polar  bp ag d)
“a”  “ce”  bp  p1  “”)
" D7 o$ _& B1 w3 k(setq  ss  (entlast))
(command  “hatch”  “u”  45  10  “”  ss  “”)
# `/ m& e' d/ g3 X9 p  ]/ S+ v' m )

cadjhc

有没有答案啊