autolisp 问题求解！！

shenjienan

1） 设置绘图极限、图线比例等：
  如：（setq ptll（getpoint “ptll=”））
2 ^6 {7 ?: }2 b) T$ G      （setq ptlr（getpoint “ptlr=”））
（command “limits” ptll ptlr）
8 ], p: |. h8 j9 p# @5 v  i（commad “zoom” “all”）
（commad “ltscale” 8）
* M) [! A8 C" C6 y8 c. j9 C2）建层：
如：（commad “layer” “new” 1 “c” “red” 1 “1” “center” 1 “”）
8 G8 E  K% ^$ T! b! L5 d5 C3）交互输入参数
3 J! j$ E. \/ j2 ^1 v, F如：（setq 吧（getreal “b=”））
（setq dn（getreal “dn=”））
9 n" L, {- ]/ O/ x/ _4）计算坐标点
; f9 m- m  [7 A  F) u如：（setq p00（polar p0 0 b））
（setq p1（polar p0 （*pi（/90 180.0）） （/ dn 2.0）））
5）绘制中心线
7 L5 x- r+ @" X/ F# x3 r4 }. n: F可考虑中性线线型。 如：
4 `! \2 a% @! f（commad “layer” “set” 1 “”）
（command “line” p01 p02 “”）
6）绘制中心线以上（下）图形
可调用 pline 、line 、circle等绘图命令。
7）镜像出整个图形
用镜像命令， 如：（command “mirror” “w” p8 p00 “” p01 p02 “n”）
- x$ y* b0 K/ {" z5 K/ Z( [8）画剖面线
可用 hatch 命令，如： （command “hatch” “ansi31” 2 0 “w” p4 p2 “”）
9）标注尺寸
# j7 f* n1 \  S' j  c/ O可调用各种尺寸标注命令， 如：
7 Z' x$ M; A/ K+ D1 n3 e（setq dist1 （polar p0 pi 10））
% r: `2 g4 ]3 W3 O6 o/ O; B& E0 I（setq text （strcat “%%c” （rtos dn）））
- ]) r8 E% b5 Q  u+ V, Q- o0 Q（command “dim” “ver” p1 p9 dist1 text）
（comand “exit”）
        以上是给出的部分编程命令。（打的可能会有错误大神们分析下）        要求  整理程序！！     能做出如“上图”的 图    ！！
      求助各位了 ！！   谢谢