autolisp 问题求解！！

shenjienan

1） 设置绘图极限、图线比例等：
  \: |' d) X! l6 P7 n6 N  如：（setq ptll（getpoint “ptll=”））
6 f% F0 \: y0 B0 u2 Y9 k      （setq ptlr（getpoint “ptlr=”））
+ k1 ]' ~; O7 S1 `（command “limits” ptll ptlr）
$ o$ Z, d+ w3 A  I0 K（commad “zoom” “all”）
（commad “ltscale” 8）
2）建层：
4 G0 b" F' E: z$ I; n1 `2 e, R* u$ n如：（commad “layer” “new” 1 “c” “red” 1 “1” “center” 1 “”）
3）交互输入参数
8 S$ Y; B3 S6 m3 D, s* E% a如：（setq 吧（getreal “b=”））
9 N5 y9 j) Y+ L' T$ T（setq dn（getreal “dn=”））
4）计算坐标点
如：（setq p00（polar p0 0 b））
（setq p1（polar p0 （*pi（/90 180.0）） （/ dn 2.0）））
5）绘制中心线
可考虑中性线线型。 如：
) W6 ?+ ]( n( H; p5 _( m（commad “layer” “set” 1 “”）
（command “line” p01 p02 “”）
+ U% i( j0 \# H6）绘制中心线以上（下）图形
1 c. C0 M2 l0 Z) k% h# J* H可调用 pline 、line 、circle等绘图命令。
7）镜像出整个图形
# U* e1 p7 n* ?& ]用镜像命令， 如：（command “mirror” “w” p8 p00 “” p01 p02 “n”）
8 S. z  B3 Q" R* Z* ~8）画剖面线
可用 hatch 命令，如： （command “hatch” “ansi31” 2 0 “w” p4 p2 “”）
7 o# z" F* E( G+ M5 S4 F' b9）标注尺寸
可调用各种尺寸标注命令， 如：
（setq dist1 （polar p0 pi 10））
2 g7 O3 h7 M7 \- z（setq text （strcat “%%c” （rtos dn）））
（command “dim” “ver” p1 p9 dist1 text）
# _, ~5 z5 U8 w  x3 m8 U1 s1 ]* v（comand “exit”）
        以上是给出的部分编程命令。（打的可能会有错误大神们分析下）        要求  整理程序！！     能做出如“上图”的 图    ！！
      求助各位了 ！！   谢谢