[求助]：新手上路,能不能帮忙调试一下这个程序????

great5257

((defun c：zchi(/po phi phimax dphi tl m z alpha ha hf delta R Rb Ra Rf bx sigma)
(setq osmode(getvar "osmode")
(setvar"osmode"0)
(setq m(getreal" \n输入模数"))
(setq z(getint" \n输入齿数"))
(setq alpha(getangle" \n输入压力角"))
(setq po(getpoint" \n输入圆心"))
(setq bx 0 sigma 0)
(setq bzc(strcase(getstring" \n标准齿轮吗?请回答Y或N")))
(if(= bzc"N")
(progn
(setq bx(getreal" \n输入变位系数"))
(setq dbw(strcase(getstring" \n等移距变位吗?请回答Y或N")))
(if(= dbw"N")
(setq sigma(getreal"\n输入齿顶高变动系数")))
))
(setq zc(strcase(getstring"/n正常齿吗?请回答Y或N")))
(if(= zc"Y")
(progn
(setq ha(*(+ 1(- bx sigma))m))
(setq hf(*(- 1.25 bx)m)))
(progn
(setq ha( *(+ 0.8(- bx sigma))m))
(setq hf( *(- 1.1 bx) m)))
)
(setq R(/(* m z)2))
(setq Rb( * R(cos alpha)))
(setq Rf(- R hf))
(setq Ra(+ R ha))
(setq tl(sqrt(-(* Ra Ra)(* Rb Rb))))
(setq phimax(/ tl Rb))
(command"circle"po Ra)
(command"circle"po Rf)
(setq x0(car po)y0(cadr po))
(setq phi 0)
(setq xl(+ x0(* Rb(+(cos phi)( * phi(sin phi))))))
(setq yl(+ y0(* Rb(-(sin phi)( * phi(cos phi))))))
(setq dphi 0.1)
(setq phi(+ phi dphi))
(while(< phi phimax)
(setq x2(+ x0(* Rb(+(cos phi)(* phi(sin phi))))))
(setq y2(+ y0(* Rb(-(sin phi)(* phi (cos phi))))))
(command"line"(1ist x1 y1)(1ist x2 y2)"")
(setq xl x2 yl y2 phi(+ phi dphi))
)
(setq phi phimax)
(setq x2(+ x0(* Rb(+ (cos phi)(* phi(sin phi))))))
(setq y2(+ y0(* Rb(- (sin phi)(* phi(cos phi))))))
(command"line"(1ist xl y1)(1ist x2 y2)"")
(setq A(- (/(sin alpha)(cos alpha))alpha))
(setq delta(+ (/ pi(* 2 z))A))
(setq pl(polar po delta Rb))
(setq sl(ssget"X" ((0 "line"))))
(command"pedit"sl"Y" "J" s1"" " ")
(setq s2(ssget"L"))
(command"mirror"s2""po pl"n" " ")
(setq c(entlast))
(ssadd c s2)
(command" array"s2" " "P" po z" " "Y" " ")
(setvar"osmode"osmode)
)