autolisp 问题求解！！

shenjienan

1） 设置绘图极限、图线比例等：
  如：（setq ptll（getpoint “ptll=”））
4 {  I& {0 Z. G5 ]& q; o, I; V: |      （setq ptlr（getpoint “ptlr=”））
# S8 l2 m+ t% K' F# ~. j（command “limits” ptll ptlr）
/ B. ~; a% N: |  ]+ c& \（commad “zoom” “all”）
（commad “ltscale” 8）
: b% B5 v$ _0 J- `+ W2）建层：
如：（commad “layer” “new” 1 “c” “red” 1 “1” “center” 1 “”）
3）交互输入参数
  D, i% D, T1 d7 D0 h$ l如：（setq 吧（getreal “b=”））
) s/ d9 g, F- P, c/ _, m8 S2 n（setq dn（getreal “dn=”））
4）计算坐标点
$ H+ W4 k0 p( w4 ]  M9 U4 \如：（setq p00（polar p0 0 b））
（setq p1（polar p0 （*pi（/90 180.0）） （/ dn 2.0）））
5 [) e' x! z' t' K5）绘制中心线
可考虑中性线线型。 如：
& g8 ~4 O. Y9 {9 K' q. A6 ?+ _（commad “layer” “set” 1 “”）
1 A8 z! a& C) w- l1 `. _* P( R（command “line” p01 p02 “”）
6）绘制中心线以上（下）图形
/ e, t7 V9 Y, X- o2 b* G可调用 pline 、line 、circle等绘图命令。
7）镜像出整个图形
7 f: V+ h# o/ \( s: z4 r5 K) _用镜像命令， 如：（command “mirror” “w” p8 p00 “” p01 p02 “n”）
8 U" s; [) M" P8）画剖面线
; M: v5 v; i% w5 K可用 hatch 命令，如： （command “hatch” “ansi31” 2 0 “w” p4 p2 “”）
9）标注尺寸
可调用各种尺寸标注命令， 如：
（setq dist1 （polar p0 pi 10））
: c! J7 e+ @7 n5 u3 @（setq text （strcat “%%c” （rtos dn）））
（command “dim” “ver” p1 p9 dist1 text）
# Y' ]/ T& {4 g2 T; y6 X) r（comand “exit”）
! N7 o% J/ l4 z4 r3 [  k0 S, b' _        以上是给出的部分编程命令。（打的可能会有错误大神们分析下）        要求  整理程序！！     能做出如“上图”的 图    ！！
+ j% E* T2 A- b& l! I  y      求助各位了 ！！   谢谢