autolisp 问题求解！！

shenjienan

1） 设置绘图极限、图线比例等：
  如：（setq ptll（getpoint “ptll=”））
. j% I* K& x9 H. q9 ]9 O4 p7 K0 u      （setq ptlr（getpoint “ptlr=”））
（command “limits” ptll ptlr）
" J/ I7 J' H% o（commad “zoom” “all”）
（commad “ltscale” 8）
! m$ K6 c: o1 M8 e/ O/ S2）建层：
2 ^0 x' F2 b8 D; B  K如：（commad “layer” “new” 1 “c” “red” 1 “1” “center” 1 “”）
% i! U& D8 D" o3）交互输入参数
. c  n, E+ G* i  B* H4 n8 i- Z# q0 X如：（setq 吧（getreal “b=”））
（setq dn（getreal “dn=”））
8 `. K/ A# `. m5 o0 P7 w, l4 i4）计算坐标点
如：（setq p00（polar p0 0 b））
* o3 ]" w8 O; F1 @（setq p1（polar p0 （*pi（/90 180.0）） （/ dn 2.0）））
5）绘制中心线
可考虑中性线线型。 如：
（commad “layer” “set” 1 “”）
, I- }* |1 ?! g+ H* P* A5 d* m4 T" D（command “line” p01 p02 “”）
6）绘制中心线以上（下）图形
可调用 pline 、line 、circle等绘图命令。
7）镜像出整个图形
) Y  ]$ c9 b+ B; _7 j  F: [用镜像命令， 如：（command “mirror” “w” p8 p00 “” p01 p02 “n”）
8）画剖面线
# z2 r( D- z' S1 [& O可用 hatch 命令，如： （command “hatch” “ansi31” 2 0 “w” p4 p2 “”）
9）标注尺寸
' [8 d. u( x' N* t% v  S' w% y可调用各种尺寸标注命令， 如：
（setq dist1 （polar p0 pi 10））
$ j* I  N& b: V& [% k2 b# G（setq text （strcat “%%c” （rtos dn）））
: Q  Y: |2 t' _' e（command “dim” “ver” p1 p9 dist1 text）
（comand “exit”）
, a$ Q' S  B4 ~1 r" m% z6 e0 @        以上是给出的部分编程命令。（打的可能会有错误大神们分析下）        要求  整理程序！！     能做出如“上图”的 图    ！！
      求助各位了 ！！   谢谢