lisp制作渐开线齿轮.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