lisp 齿轮渐开线函数

想在CAD里面画一个标准的渐开齿轮必须使用函数计算齿轮上的咬合点。齿轮的各个参数公式这里不说明，自己搜吧！

我们只计算渐开线上的每个点，然后用这些点画线，链接起来就是渐开线。

渐开线计算公式函数

(defun vl-jiankx(jjr jjt / jkx jky jks)

(setq jjt(angtof (vl-princ-to-string jjt))

st(*(/ jjr 2)jjt)

jkx(+(*(/ jjr 2)(cos jjt))(* st(sin jjt)))

jky(-(*(/ jjr 2)(sin jjt))(* st(cos jjt))))
(setq jks(list jkx jky))

jks

)
复制

调用函数，n初始等于0，chi-dj渐开线基圆直径，n代表每个点的间距。可以自己设置渐开线长于齿轮外径停止计算。

(while(< n 5 )

(setq libt(vl-jiankx chi-dj (* n 10)))
(setq lst(cons libt lst))

(setq n(+ 0.1 n)))
复制

上面的函数只是得到渐开线上的点，你可以通过这些点链接成样条曲线或者线段，

一般在CAD上画齿轮都是线切割用，线割软件只认圆弧和直线，所以，最好使用圆弧链接或者直线链接点。