我是一名autolisp初学者，刚编了一段程序，请教

月梦920

我是一名autolisp初学者，刚编了一段程序是关于常用渗沟球轴承的参数化几何建模的，但是运行不出来，怎么也找不出错误。请各位前辈指点一下。。。
7 I5 u3 U' |) A6 [& d# [! J+ e(defun c:zhoucheng()
" j4 x2 {7 \5 {  O（setq p0(getpint "请输入基准点："))
& Y1 }5 S: P3 Q8 M5 E, x) V* m(setq d(getreal "内径d=:"))
& m/ I6 ~, x/ C2 ` (setq D(getreal "外径D=:"))
（setq B(getreal "轴承宽B=:")）
(setq r(getreal "滚子半径r=:"))
# J( \' l" \3 w) P; y1 u; s(if(<r(*(-D d)0.5)) (princ"ok")
( \2 ^, L2 |) [. U(setq p1(polar p0 (*0.5 pi)(*0.5 B)))
4 g1 D" h" F# ^8 i) O- Y0 p(setq p8(polar p0 (*-0.5 pi)(*0.5 B)))
(setq p2(polar p1 0(/(-D d)3)))
9 r& p6 {& `1 n# ?8 ~/ R9 K(setq p3(polar p2 0(/(-D d)3)))
2 s0 z* w: J( R( j' P(setq p4(polar p1 0(-D d)))
(setq p7(polar p8 0(/(-D d)3)))
(setq p6(polar p7 0(/(-D d)3)))
(setq p5(polar p8 0(-D d)))
(setq p12(polar p4 0 d))
3 i0 {% X# C: o" n(setq p11(polar p1 0 D))
' |4 o# h( `, S* H% Z(setq p9(polar p5 0 d))
7 f  ^% @; t6 E0 G( O/ o3 k(setq p10(polar p8 0 D))
3 V1 Y8 M2 m* @7 x! S. `- ]& j(setq pt(polar p0 0(*0.5(-D d))))
6 Z: c8 T. L. h7 ]; L) c(setq p14(polar p0 pi(*0.5 B)))
(setq p15(polar p0 0(+D(*0.5 B))))
(command "layer" "s" "draw" "")
(command "line" p1 p11 p10 p8 p1 "")
(command "line" p2 p7 "")
(command "line" p3 p6 "")
, @) d  v! F5 r% n; H(command "line" p4 p5 "")
(command "line" p9 p12 "")
(command "line" p12 p10 "")
(command "line" p9 p11 "")
(command "circle" pt r)
(command "trim" "all" "list(0 (/(-D d)3))")
1 D2 a8 H$ X% [6 y  E5 u  k# t(command "trim" "all" "list(0 (*(/(-D d)3)2))")
(command "bhatch" "p" "ansi31" 1 0,0 list(0 (/(-D d)5)) "")
* n+ I; U- Z- a& H(command "bhatch" "p" "ansi31" 1 0,0 list(0 (*(/(-D d)5)4)) "")
% T9 D' W: f& o' s5 a(command "layer" "s" "center" "")
(command "line" p14 p15 "")

: N$ M% p! f2 y! n1 D5 R
1 W8 ~2 o, X- e, H, p* N

复苏之风

一步步的调试啊

LIAOYAO

{:soso_e120:}
(setq p0 (getpint "请输入基准点："))  
$ p9 ?' _- E! l9 e! a8 \- g(setq p0 (getpoint "请输入基准点："))

) d0 J) q  ~8 \3 P; C（setq B(getreal "轴承宽B=:") ）
6 v" V+ S* z7 b# m: x(setq B(getreal "轴承宽B=:"))
/ S* i9 M$ u  w
# k! n: T$ [) Z6 l# D# X3 x: R(if(<r(*(-D d)0.5)) (princ"ok")
(if(< r (*(- D d)0.5)) (princ"ok") )
2 k& m& ?4 F( R8 J: L1 w
(setq p1(polar p0 (*0.5 pi)(*0.5 B)))
7 Q+ ~  B5 {) x0 l! J- @4 b" w(setq p1(polar p0 (* 0.5 pi)(* 0.5 B)))
3 s2 u: o" @8 T8 I" P3 B
4 O4 |( X4 _7 _, k/ W9 \不搞了，就这几行程序的语法疏漏或括弧或空格不对等等，楼主自己逐行测试修改咯！
' F! [2 U& `; ]* y9 J' W9 a5 J' r

两岸猿声啼不住

写程序容易，调试程序难。。。