文档介绍：齿轮轮齿渐开线、螺栓、弹簧的autolsp源程序2008-11-189:58:06机电商务网字体【大中小】一、齿轮轮齿渐开渐开线(defunc:gear(/)(setqp0(getpoint"输入齿轮中心p0:")m(getreal"输入齿轮模数M:")z(getint"输入齿轮齿数Z:")(/pi9)ra(/(*(+z(+haha))m)2)rf(/(*(-z(+(+haha)c))m)2)r(/(*mz)2)rb(*r(cosa))rirbang0g(polarp0angrb))(command"circle"p0ra)(command"circle"p0rf)(command"circle"p0r)(command"line"g)(while(<rira)(setqang(+ang(/pi360))ri(/rb(cosang))cta(-(/(sinang)(cosang))ang)g(polarp0ctari))(commandg))(command))二、螺旋源程序(defunerrMsg(s)(if(/=s"functioncancelled")(princ(strcat"\nError:"s)));当命令执行时出现错误(setvar"cmdecho"ocmdold);例如用户按下了CTRL+C(setvar"osmode"osmold)(setq*error*olderr);恢复旧的错误处理(princ))(defunc:3Dthread(/radouterthreadpitchthreadlengththreadangleptStartinnerdiafactorradmidradinnerocmdoldosmold4H5H6Hh6g6);-------------------------------------------------------------------;获取公制外径大小、螺距总长;然后计算一系列几何点;并且关闭对象捕捉、命令回显;-------------------------------------------------------------------(setq4H())(setq5H())(setq6H())(setqh6(list-------------))(setqg6(list-------------))(setqosmold(getvar"osmode"