我是一名autolisp初學者，剛編了一段程序，請教

月夢920

我是一名autolisp初學者，剛編了一段程序是關于常用滲溝球軸承的參數化幾何建模的，但是運行不出來，怎么也找不出錯誤。請各位前輩指點一下。。。
(defun c:zhoucheng()
（setq p0(getpint "請輸入基準點："))
(setq d(getreal "內徑d=:"))
" {. [* ]* A% e7 y (setq D(getreal "外徑D=:"))
（setq B(getreal "軸承寬B=:")）
! a: i& Z8 S' |5 i(setq r(getreal "滾子半徑r=:"))
(if(<r(*(-D d)0.5)) (princ"ok")
(setq p1(polar p0 (*0.5 pi)(*0.5 B)))
  Z1 }- b0 ^0 P% m: k, \/ J(setq p8(polar p0 (*-0.5 pi)(*0.5 B)))
(setq p2(polar p1 0(/(-D d)3)))
(setq p3(polar p2 0(/(-D d)3)))
(setq p4(polar p1 0(-D d)))
(setq p7(polar p8 0(/(-D d)3)))
(setq p6(polar p7 0(/(-D d)3)))
3 P2 K5 `) L" E(setq p5(polar p8 0(-D d)))
(setq p12(polar p4 0 d))
& l# i3 e6 R$ F, H* r& N(setq p11(polar p1 0 D))
(setq p9(polar p5 0 d))
7 P3 a) L% T8 y. r' C) A# u(setq p10(polar p8 0 D))
" [: ^9 e9 [" s/ p: ^(setq pt(polar p0 0(*0.5(-D d))))
2 [& ?/ M3 y6 F8 y(setq p14(polar p0 pi(*0.5 B)))
(setq p15(polar p0 0(+D(*0.5 B))))
(command "layer" "s" "draw" "")
% B4 a  l: I3 T2 `6 P2 k. \4 ~(command "line" p1 p11 p10 p8 p1 "")
: ^( m# a0 e' ?2 S  C" V(command "line" p2 p7 "")
(command "line" p3 p6 "")
5 D9 ~; _6 q, }(command "line" p4 p5 "")
, v. R" W  d& k; }% }8 d* _(command "line" p9 p12 "")
" s  N  f9 U0 a) ^# h+ a2 b+ F(command "line" p12 p10 "")
0 ?  W& s$ ]4 m- w(command "line" p9 p11 "")
(command "circle" pt r)
* v# l, A+ P  N5 G$ o(command "trim" "all" "list(0 (/(-D d)3))")
% H% c. W  e0 `( o& f% X7 F5 p(command "trim" "all" "list(0 (*(/(-D d)3)2))")
$ {7 v5 P( A: {1 ~( h( j(command "bhatch" "p" "ansi31" 1 0,0 list(0 (/(-D d)5)) "")
9 z/ ]" k* |9 @( _! H! D! r# X(command "bhatch" "p" "ansi31" 1 0,0 list(0 (*(/(-D d)5)4)) "")
1 b4 N* R( `! {. {$ k% K' n7 Y(command "layer" "s" "center" "")
(command "line" p14 p15 "")

復蘇之風

一步步的調試啊

LIAOYAO

{:soso_e120:}
  I1 Z4 @7 X* F: L(setq p0 (getpint "請輸入基準點："))  
9 W8 f( I* d# \' U2 U(setq p0 (getpoint "請輸入基準點："))
7 D3 Z6 M( {1 q% y; i
. N* y( h- Q8 e* O$ D9 C（setq B(getreal "軸承寬B=:") ）
(setq B(getreal "軸承寬B=:"))
6 J% |( v& L  F. x  z* h
+ w, x! L  ^. Z& z(if(<r(*(-D d)0.5)) (princ"ok")
(if(< r (*(- D d)0.5)) (princ"ok") )

(setq p1(polar p0 (*0.5 pi)(*0.5 B)))
(setq p1(polar p0 (* 0.5 pi)(* 0.5 B)))
. A5 @6 `) B. ^
( u% e; A! a$ B: s1 B6 E6 R不搞了，就這幾行程序的語法疏漏或括弧或空格不對等等，樓主自己逐行測試修改咯！

兩岸猿聲啼不住

寫程序容易，調試程序難。。。