autolisp 问题求解！！

shenjienan

1） 设置绘图极限、图线比例等：
  如：（setq ptll（getpoint “ptll=”））
' {- f- G+ k; A      （setq ptlr（getpoint “ptlr=”））
（command “limits” ptll ptlr）
（commad “zoom” “all”）
（commad “ltscale” 8）
9 J$ L) f6 u! ~4 R( d1 D( e2）建层：
3 S  t' j, p7 J/ g  z6 _如：（commad “layer” “new” 1 “c” “red” 1 “1” “center” 1 “”）
. Z9 J$ X, I( ?& `$ @3）交互输入参数
如：（setq 吧（getreal “b=”））
（setq dn（getreal “dn=”））
4）计算坐标点
) h4 l& i3 h4 m9 ^$ f如：（setq p00（polar p0 0 b））
' {, j) b* ~1 P4 s+ C7 ^（setq p1（polar p0 （*pi（/90 180.0）） （/ dn 2.0）））
5）绘制中心线
9 S% ^' F2 X8 f可考虑中性线线型。 如：
（commad “layer” “set” 1 “”）
4 u8 o6 c2 z" f: m) N: \（command “line” p01 p02 “”）
6）绘制中心线以上（下）图形
+ r+ f$ b' D* d) m- z7 ~- U可调用 pline 、line 、circle等绘图命令。
7）镜像出整个图形
! \; _% G+ Z% P  E8 r7 P用镜像命令， 如：（command “mirror” “w” p8 p00 “” p01 p02 “n”）
8）画剖面线
可用 hatch 命令，如： （command “hatch” “ansi31” 2 0 “w” p4 p2 “”）
9）标注尺寸
& y3 y3 j) T+ T/ w- l( W5 v可调用各种尺寸标注命令， 如：
0 O( B2 g! f, G! y! V. j8 @（setq dist1 （polar p0 pi 10））
; v5 h1 l; G$ u% D* p# f（setq text （strcat “%%c” （rtos dn）））
) j2 D/ }* `3 P$ y（command “dim” “ver” p1 p9 dist1 text）
3 U: W  I* G# V* Q/ R5 c( {7 W（comand “exit”）
        以上是给出的部分编程命令。（打的可能会有错误大神们分析下）        要求  整理程序！！     能做出如“上图”的 图    ！！
      求助各位了 ！！   谢谢