autolisp 问题求解！！

shenjienan

1） 设置绘图极限、图线比例等：
  如：（setq ptll（getpoint “ptll=”））
      （setq ptlr（getpoint “ptlr=”））
（command “limits” ptll ptlr）
# @. u6 x9 G" t9 O（commad “zoom” “all”）
, S: d6 L. k) d8 l  p+ [. Q) r（commad “ltscale” 8）
2）建层：
; R# a# K, H9 k如：（commad “layer” “new” 1 “c” “red” 1 “1” “center” 1 “”）
3）交互输入参数
; ?% X9 p; n& C) ~% J' m! q如：（setq 吧（getreal “b=”））
* e7 q, o' r6 d( z( J! @（setq dn（getreal “dn=”））
6 c: g7 T4 \( B# G& y- j( o4）计算坐标点
) \& i8 ?- u, n% h# R% a; ?如：（setq p00（polar p0 0 b））
% U+ `5 |) w* x4 j% m0 v* s（setq p1（polar p0 （*pi（/90 180.0）） （/ dn 2.0）））
5）绘制中心线
7 o3 f3 V1 c: ]& u5 A可考虑中性线线型。 如：
2 p! f; ^# w  V( q2 a（commad “layer” “set” 1 “”）
（command “line” p01 p02 “”）
, A7 T; Q8 X( Y0 r2 c6）绘制中心线以上（下）图形
可调用 pline 、line 、circle等绘图命令。
7）镜像出整个图形
% m8 E5 W$ a2 ]3 w9 D* b2 X5 e用镜像命令， 如：（command “mirror” “w” p8 p00 “” p01 p02 “n”）
8）画剖面线
可用 hatch 命令，如： （command “hatch” “ansi31” 2 0 “w” p4 p2 “”）
( }# C. l$ \9 k6 T2 G. E9）标注尺寸
1 k/ B  J, Z/ v3 `- u' ]可调用各种尺寸标注命令， 如：
% q& |. {5 ]7 X) V（setq dist1 （polar p0 pi 10））
1 n8 W: \' s* ^) G1 J, x6 V- y$ F（setq text （strcat “%%c” （rtos dn）））
（command “dim” “ver” p1 p9 dist1 text）
" X' u3 v4 y4 z7 C- D（comand “exit”）
2 M' _: F3 H2 x! {* \& M9 M        以上是给出的部分编程命令。（打的可能会有错误大神们分析下）        要求  整理程序！！     能做出如“上图”的 图    ！！
9 u  [: ?& ?  w7 [6 D9 b      求助各位了 ！！   谢谢