- 您当前的位置：公司主页 >齿轮轮齿渐开线的autolsp源程序
齿轮轮齿渐开线的autolsp源程序
作者：bearingpower 发表时间：2010-12-12
齿轮轮齿渐开线的autolsp源程序关键字：齿轮轮齿渐开线 齿轮轮齿渐开渐开线 (defun c:gear(/) ( setq p0 (getpoint"输入齿轮中心p0: ") m (getreal"输入齿轮模数M: ") z (getint"输入齿轮齿数Z: ") ha 1 c 0.25 a (/ pi 9) ra(/ (* (+ z (+ ha ha)) m) 2) rf(/ (* (- z (+ (+ ha ha) c)) m) 2) r(/ ( * m z) 2) rb ( * r (cos a)) ri rb ang 0 g (polar p0 ang rb) ) (command "circle" p0 ra) (command "circle" p0 rf) (command "circle" p0 r) (command "line" g) (while ((setq ang ( + ang(/ pi 360)) ri ( / rb (cos ang)) cta ( - (/ (sin ang) (cos ang)) ang) g(polar p0 cta ri) ) (command g) ) (command ) )上一篇：铸造焦炭
下一篇：PRO/E零件的精度
- 市场一部：022-58519722
- 市场二部：022-58519723
- 投诉受理：022-58519721
- 传真总机：022-23868160