哪位大哥能告诉我这段程序哪里有问题，应该怎么改，谢谢大家了

烦了个烦33

;/main program/
(defun C:GEAR( / z m alpha cx ha xi f f1 Ra Rf pd pu pd1x pd1y pd1 pu1x pu1y pu1 a Rb h hh hc tga p0 p1 p2 p3 p4 p5 z0 dt t tr dl pp )
  (command "erase" "all" " ")
  (setq z (getint "\n［渐开线齿轮的范成演示]\n输入齿数："))；输入齿轮基本参数：齿数、模数、分度圆压力角、齿顶高系数、径向间隙系数。
  (while (or (< z 3) (=z nil))
    (setq z (getint "\n输入齿数：")))
    (setq m (getreal "\n输入模数: "))
    (setq alpha (getreal "\n输入分度圆压力角(度)："))
    (setq cx (getstring "\n输入'常'/'短'齿形（N/S: "))
    if (or (= cx "S") (= cx "s"))
    (setq ha 0.8 C0 0.30)(setq ha 1.0 co 0.25))
(if (< m 1) (setq co 0.35))
(setq xi (getreal "\n输入变位系数："))
(setq r (/ (* m z) 2.0))；计算分度圆半径。
(setq r1 (+ r (* xi m)))
(setq Ra (+ r (* m ha)))；计算齿顶圆半径。
(setq Rf (* (- r (* (+ ha C0) m)))
      (setq L (+ (* 2 pi r1) r1))；计算齿条长度。
      (setq pd (list (- L) (- (* 3 (/ L 4.0)))))；
      (setq pu (list L (/ L 4.0)))
      (command "limits" pd pu)；设定图幅。
      (command "zoom" "a" )
      (setq pd1x (- (+ Ra m)))
      (setq pd1y pd1x)
      (setq pd1 (list pd1x pd1y))
      (setq pu1x (+ Ra m))
      (setq pu1y pu1x)
       (setq pu1 (list pu1x pu1y))
      (setq a (* (/ alpha 180.0) pi))；将分度圆压力角化成弧度。
      (setq Rb (* r (cos a)))；计算基圆半径。
      (setq h (* ha m))；画齿条单元形。
      (setq hh (* 2 h))
       (setq hc (* c0 m))
      (setq p0 (list (- r) (+ r1 h)))
       (setq tga (/ (sin a) (cos a)))
      (setq p1 (list(+ (car p0) (* tga (+ hh hc)))(- (cadr p0) (+ hh hc))))
       (setq p2 (list(+ (car p1) (- (/ (* pi m) 2) (* 2 (+ h hc) tga)))(cadr p1)))
      (setq p3 (list(+ (car p2) (* (+ hh (* 2 hc)) tga))(+(cadr p0) hc)))
       (setq p4 (list(+ (car p3) (- (car p2) (car p1)))(cadr p3)))
      (setq p5 (list(+ (car p4) (* hc tga)) (cadr p0)))
       (command "pline" p0 p1 p2 p3 p4 p5 " ")
      (command "fillet" "r"  (/ hc 2))
       (command "fillet" "p"  p0)
      (setq z0 (+ 2 (fix (/ L (* pi m))))


该贴已经同步到 烦了个烦33的微博

Real_King

LISP的看着眼花啊...