autolisp 问题求解！！

shenjienan

1） 设置绘图极限、图线比例等：
% a7 ~/ i5 A! V$ Z7 `' ~' }) G  如：（setq ptll（getpoint “ptll=”））
" p2 J4 t1 d' H, \( s! }& A" q5 c      （setq ptlr（getpoint “ptlr=”））
（command “limits” ptll ptlr）
* }- W0 P: J. S( J( D% j6 c+ f4 Y（commad “zoom” “all”）
（commad “ltscale” 8）
2）建层：
如：（commad “layer” “new” 1 “c” “red” 1 “1” “center” 1 “”）
6 ^8 S! [' e* A. s, @* \3）交互输入参数
如：（setq 吧（getreal “b=”））
（setq dn（getreal “dn=”））
2 d+ M/ ~$ ~5 J7 b% {3 b4）计算坐标点
如：（setq p00（polar p0 0 b））
（setq p1（polar p0 （*pi（/90 180.0）） （/ dn 2.0）））
5）绘制中心线
可考虑中性线线型。 如：
; s  j6 h- W: D% j（commad “layer” “set” 1 “”）
% ~+ E5 b/ X* o3 x$ G4 i（command “line” p01 p02 “”）
+ M% v( V2 h+ p: `' {" Y6）绘制中心线以上（下）图形
1 u) ^& Y# J! l- R, F可调用 pline 、line 、circle等绘图命令。
3 w4 }; |& L% P4 u7）镜像出整个图形
+ S6 U% G7 k+ F7 Y9 V: X用镜像命令， 如：（command “mirror” “w” p8 p00 “” p01 p02 “n”）
8）画剖面线
% _8 d* M9 u; o5 m4 a1 K可用 hatch 命令，如： （command “hatch” “ansi31” 2 0 “w” p4 p2 “”）
# C6 Z( c8 V5 F& p8 K9）标注尺寸
6 Y5 T3 o: d) C2 s6 s( B2 I可调用各种尺寸标注命令， 如：
（setq dist1 （polar p0 pi 10））
（setq text （strcat “%%c” （rtos dn）））
（command “dim” “ver” p1 p9 dist1 text）
（comand “exit”）
        以上是给出的部分编程命令。（打的可能会有错误大神们分析下）        要求  整理程序！！     能做出如“上图”的 图    ！！
      求助各位了 ！！   谢谢