求助，急急急！！！

walnard

做毕业设计，用visual lisp画齿轮
现在走进了死胡同
那位有现成的程序能给我
请mail到：gordonliu@etang.com

gmliux

(defun C:GBCL (/    )
  (SETQ m0 (GETREAL "\n输入模数："))
  (SETQ z0 (GETREAL "\n输入齿数: "))
  (SETQ h0 (GETREAL "\n齿顶高糸数: "))
  (SETQ c0 (GETREAL "\n径向间隙糸数: "))
  (SETQ pt0 (GETPOINT "\n指定右视图齿轮圆心位置: "))
  (SETQ r0 (* m0 z0 0.5))
  (SETQ ra (* m0 (+ z0 h0 h0) 0.5))
  (SETQ rf (* m0 (- z0 h0 h0 c0 c0) 0.5))
  (command "zoom" "a")
  (COMMAND "LAYER" "s" "0" "")
  (COMMAND "circle" pt0 ra)
  (COMMAND "LAYER" "s" "center" "")
  (COMMAND "circle" pt0 r0)
  (COMMAND "LAYER" "s" "xu" "")
  (COMMAND "circle" pt0 rf)
  (SETQ sc (GETVAR "dimscale"))
  (SETQ b0 (GETREAL "\n输入齿宽: "))
  (setq bx (GETREAL "\n输入倒角值: "))
  (SETQ pt1 (list (- (car pt0) ra (* 50 sc)) (cadr pt0)))
  (SETQ x0 (car pt1))
  (SETQ y0 (cadr pt0))
  (SETQ x1 (- x0 b0))
  (SETQ pt2 (list x0 (+ y0 rf)))
  (SETQ pt3 (list x0 (+ y0 r0)))
  (setq pt31 (list (car pt3) (- (+ y0 ra) bx)))
  (SETQ pt4 (list (- x0 bx) (+ y0 ra)))
  (SETQ pt5 (list (+ x1 bx) (+ y0 ra)))
  (setq pt61 (polar pt31 pi b0))
  (SETQ pt6 (list x1 (+ y0 r0)))
  (SETQ pt7 (list x1 (+ y0 rf)))
  (SETQ pt8 (list x1 y0))
  (SETQ pt9 (polar pt3 0 5))
  (SETQ pt10 (polar pt6 pi 5))
  (setq p11 (polar pt8 pi 5))
  (setq p12 (polar pt1 0 5))
  (setq p01 (list (+ (car pt1) 5) (- (cadr pt2) 5)))
  (setq p02 (list (- x1 5) (+ (cadr pt5) 5)))
  (command "zoom" "w" p01 p02)
  (COMMAND "LAYER" "s" "0" "")
  (setq ss (ssadd))
  (COMMAND "line" pt2 pt7 "")
  (setq ss (ssadd (entlast) ss))
  (COMMAND "line" pt1 pt31 "")
  (setq ss (ssadd (entlast) ss))
  (COMMAND "line" pt31 pt4 "")
  (setq ss (ssadd (entlast) ss))
  (COMMAND "line" pt4 pt5 "")
  (setq ss (ssadd (entlast) ss))
  (COMMAND "line"  pt5 pt61  "")
  (setq ss (ssadd (entlast) ss))
  (COMMAND "line"  pt61 pt8 "")
  (setq ss (ssadd (entlast) ss))
  (COMMAND "LAYER" "s" "center" "")
  (COMMAND "line" pt9 pt10 "")
  (setq ss (ssadd (entlast) ss))
  (COMMAND "line" p11 p12 "")
  (setq ss (ssadd (entlast) ss))
  (command "mirror" ss p01 p02 "" pt1 pt8 "N")
  (command "zoom" "a")
)

walnard

只准输入齿轮圆心，齿数和模数

gmliux

把齿顶高系数等代标准值不就ok?