autolisp 问题求解！！

shenjienan

1） 设置绘图极限、图线比例等：
  如：（setq ptll（getpoint “ptll=”））
/ t9 l4 N) d3 c6 C, J      （setq ptlr（getpoint “ptlr=”））
6 K: e8 K4 Q: t# }3 }& O' F（command “limits” ptll ptlr）
9 J, }3 b+ G6 ?. y  j3 f（commad “zoom” “all”）
（commad “ltscale” 8）
2 Q# x$ R( v' A( w$ O" U2）建层：
如：（commad “layer” “new” 1 “c” “red” 1 “1” “center” 1 “”）
# w" h& q- K$ @4 X$ O3）交互输入参数
" ^+ x+ P) d, y4 S如：（setq 吧（getreal “b=”））
（setq dn（getreal “dn=”））
% e" J# N5 [+ z. O# ]3 d4）计算坐标点
8 K2 @3 }! v: p' ]2 H) J如：（setq p00（polar p0 0 b））
（setq p1（polar p0 （*pi（/90 180.0）） （/ dn 2.0）））
5）绘制中心线
可考虑中性线线型。 如：
（commad “layer” “set” 1 “”）
（command “line” p01 p02 “”）
$ H" M' C. i0 a/ p/ x8 {8 ^4 L6）绘制中心线以上（下）图形
9 P2 ]% J! W4 i可调用 pline 、line 、circle等绘图命令。
/ P+ g9 m% r( D3 @0 r7）镜像出整个图形
用镜像命令， 如：（command “mirror” “w” p8 p00 “” p01 p02 “n”）
8）画剖面线
0 {. A9 J" L# X& `/ X, w1 L8 C. |$ v可用 hatch 命令，如： （command “hatch” “ansi31” 2 0 “w” p4 p2 “”）
9）标注尺寸
可调用各种尺寸标注命令， 如：
（setq dist1 （polar p0 pi 10））
（setq text （strcat “%%c” （rtos dn）））
（command “dim” “ver” p1 p9 dist1 text）
（comand “exit”）
9 s6 n1 X4 O" x' G        以上是给出的部分编程命令。（打的可能会有错误大神们分析下）        要求  整理程序！！     能做出如“上图”的 图    ！！
- s+ X$ o3 I8 n/ V) K0 D      求助各位了 ！！   谢谢