autolisp 问题求解！！

shenjienan

1） 设置绘图极限、图线比例等：
  如：（setq ptll（getpoint “ptll=”））
, R. b6 R: _( y. k: f, q      （setq ptlr（getpoint “ptlr=”））
（command “limits” ptll ptlr）
（commad “zoom” “all”）
（commad “ltscale” 8）
& ^1 n" R- E4 O; N" d2）建层：
如：（commad “layer” “new” 1 “c” “red” 1 “1” “center” 1 “”）
; s/ a2 {( T$ J( T4 ?/ @% l8 q3）交互输入参数
如：（setq 吧（getreal “b=”））
（setq dn（getreal “dn=”））
5 M3 i/ k1 J& ?4 Y( N: {4）计算坐标点
如：（setq p00（polar p0 0 b））
6 ^& x; }, u% W2 G) u$ y' f: q! [（setq p1（polar p0 （*pi（/90 180.0）） （/ dn 2.0）））
5）绘制中心线
% K5 |4 M; s9 g9 n  b# C5 F可考虑中性线线型。 如：
（commad “layer” “set” 1 “”）
（command “line” p01 p02 “”）
6）绘制中心线以上（下）图形
可调用 pline 、line 、circle等绘图命令。
7）镜像出整个图形
$ w3 W; s7 g4 H  o4 U用镜像命令， 如：（command “mirror” “w” p8 p00 “” p01 p02 “n”）
6 |! h, Z* _1 J  p  x3 H8）画剖面线
5 s2 A6 @9 h* K6 A可用 hatch 命令，如： （command “hatch” “ansi31” 2 0 “w” p4 p2 “”）
1 F. `8 E2 E2 X9）标注尺寸
" F# \' T1 h, g7 r$ w$ L" S可调用各种尺寸标注命令， 如：
（setq dist1 （polar p0 pi 10））
（setq text （strcat “%%c” （rtos dn）））
（command “dim” “ver” p1 p9 dist1 text）
（comand “exit”）
        以上是给出的部分编程命令。（打的可能会有错误大神们分析下）        要求  整理程序！！     能做出如“上图”的 图    ！！
* t$ e. ~5 b: S. ~; h# l: a      求助各位了 ！！   谢谢