autolisp 问题求解！！

shenjienan

1） 设置绘图极限、图线比例等：
  如：（setq ptll（getpoint “ptll=”））
$ J; p' S8 R  k) x8 H4 q& \& A6 @      （setq ptlr（getpoint “ptlr=”））
（command “limits” ptll ptlr）
（commad “zoom” “all”）
, D, j, j/ X, ?0 \* v（commad “ltscale” 8）
/ Z2 V  y- g- Y7 h/ B. C+ L2）建层：
/ y2 D. N+ v8 D) O  w# ^如：（commad “layer” “new” 1 “c” “red” 1 “1” “center” 1 “”）
4 N1 v1 w( d3 Z. O8 v3）交互输入参数
! c2 Z# k2 [9 {' T  }: e- f' {# ^如：（setq 吧（getreal “b=”））
（setq dn（getreal “dn=”））
4）计算坐标点
+ W) q6 O  N. q, l' r6 N0 k; R如：（setq p00（polar p0 0 b））
（setq p1（polar p0 （*pi（/90 180.0）） （/ dn 2.0）））
5）绘制中心线
可考虑中性线线型。 如：
# ^# b% F. H6 B. A; E  N（commad “layer” “set” 1 “”）
8 C! S% Z& b" W  b（command “line” p01 p02 “”）
6）绘制中心线以上（下）图形
可调用 pline 、line 、circle等绘图命令。
: l% M0 O' Y* `- q7）镜像出整个图形
/ p( I0 f' R" v用镜像命令， 如：（command “mirror” “w” p8 p00 “” p01 p02 “n”）
8）画剖面线
1 ~& }" l* Z& R3 F6 k7 g可用 hatch 命令，如： （command “hatch” “ansi31” 2 0 “w” p4 p2 “”）
. {/ M% j# G6 \; F( @9）标注尺寸
可调用各种尺寸标注命令， 如：
, f. r, _0 `( d* T3 |, s9 B0 ~. p4 e3 K* E（setq dist1 （polar p0 pi 10））
（setq text （strcat “%%c” （rtos dn）））
（command “dim” “ver” p1 p9 dist1 text）
（comand “exit”）
+ n% _0 I7 H* }& N) ]' J% W        以上是给出的部分编程命令。（打的可能会有错误大神们分析下）        要求  整理程序！！     能做出如“上图”的 图    ！！
      求助各位了 ！！   谢谢