lis制作渐开线齿轮.docVIP

来看看吧 很多朋友没有接触过AutoCAD的内置编程模块LISP.本人学过些,用它编写一个制作渐开线齿轮的小程序,给大家分享. 代码:;标准直齿圆柱齿轮 (defun c:齿轮(/ P0 P1 P2 p3 m z YLJ R Ra Rf Rb h ak stk a Rk n d jcg b p3 ss1 ss2 l youz bz;储存CAD对象捕捉 ) (command layer n 齿轮 );新建图层 (command s 齿轮 );设为当前层 (command lw 0 齿轮 );特别特别实用的操作. ;在绘制足球时,没有由此操作理论上画不成 (command view top );上视图 (setq p0 (getpoint \n请输入齿轮回转中心:) ) (command ucs n p0 );将回转中心放到坐标系原点 (setq p0 (0 0 0);将回转中心放到坐标系原点(修正上一步) m (getreal \n齿轮模数:1) z (getint \n齿轮齿数:32) ylj (getint \n齿廓压力角(度):20);单位：度 h (getdist \请输入齿轮拉伸的高度:10) ) ;设置默认数据 (if (= m nil)(setq m 1)) (if (= z nil)(setq z 32)) (if (= ylj nil)(setq ylj 20)) (if (= h nil)(setq h 10)) (setq r (* m z 0.5);分度圆半径 ra (+ r m) rf (- r (* 1.25 m)) ylj (/ (* ylj pi) 180);压力角.单位：度 rb (* r (cos ylj)) p1 (polar p0 0 rb);渐开线起始点 p2 p1; a 0.021;角度累加最小单位(度) ak 0;渐开线展开角.初值为0° n (- (/ (sin ylj) (cos ylj)) ylj);渐开线起始点与圆心连线 和水平线的夹角 ) (setvar CMDECHO 0);关闭命令显示 (setq bz (getvar OSMODE));储存CAD对象捕捉 (setvar OSMODE 0);CAD对象捕捉设置成无任何捕捉 (command pline p0);开始画渐开线(样条线) (while ( (distance p0 p2) ra);当渐开线画到齿顶圆外面时终止循环 (setq p2 (jkx (+ a ak) rb p0) );jkx是下面自定义函数；返回轮廓上下个点 ;控制渐开线精度 (while ( (distance p1 p2) (* m 0.1));该处while控制渐开线精度不能大于0.1倍齿轮模数 (setq a (* 0.95 a) p2 (jkx (+ a ak) rb p0)) ) (while ( (distance p1 p2) (* m 0.08));该处while控制渐开线精度不能小于0.08倍齿轮模数；否则画图较慢 (setq a (* 1.25 a) p2 (jkx (+ a ak) rb p0)) ) (setq ak (+ ak a) p1 p2);角度累加，将p2储存起来 (if (and ( (distance p2 p0) rf) ( (distance p0 p2) ra) ) (command p2);如果轮廓上点p2在齿顶根圆之间，继续画样条曲线 ) );(while ( (distance p0 p2) ra)结束 (setq p1 p2 ak (+ ak a) rk (/ rb (cos ak)) stk (- (/ (sin ak) (cos ak)) ak) p2 (polar p0 stk rk);绘制齿顶圆外部的渐开线的第一点 a (+ n (/ pi z 2)) p3 (polar p0 a r);渐开线做镜像的基准线上一点 p2 (inters p0 p3 p1 p2 nil);镜像的基准线和渐开线的焦点(大约是) ) (command p2 );结束轮廓线绘制 (setq ss1