常用曲线源程序

《常用曲线源程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、一、齿轮轮齿渐开渐开线(defunc:gear(/)(setqp0(getpoint"输入齿轮中心p0:")m(getreal"输入齿轮模数M:")z(getint"输入齿轮齿数Z:")ha1c0.25a(/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)(

2、while(

3、恢复旧的错误处理(princ))(defunc:3Dthread(/radouterthreadpitchthreadlengththreadangleptStartinnerdiafactorradmidradinnerocmdoldosmold4H5H6Hh6g6);-------------------------------------------------------------------;获取公制外径大小、螺距总长;然后计算一系列几何点;并且关闭对象捕捉、命令回显;------------------------------------

4、-------------------------------(setq4H(list0.00150.0020.0020.00250.0030.00350.0040.0050.0060.0070.0080.0090.010))(setq5H(list0.0020.00250.0030.0040.00450.00550.00650.00750.0090.0100.01150.01250.0135))(setq6H(list0.0030.0040.00450.00550.00650.0080.00950.0110.01250.01450.0160.0180

5、.020))(setqh6(list-0.003-0.004-0.0045-0.0055-0.0065-0.008-0.0095-0.011-0.0125-0.0145-0.016-0.018-0.020))(setqg6(list-0.005-0.008-0.0095-0.0115-0.0135-0.017-0.0195-0.023-0.0265-0.0295-0.033-0.036-0.0515))(setqosmold(getvar"osmode"));保存调用前的osmode系统变量值(setqocmdold(getvar"cmdecho"))

6、;保存调用前的cmdecho系统变量值(setvar"osmode"0);关闭对象捕捉(setvar"cmdecho"0);关闭命令的回显(setqinnerdiafactor1.5);设置内径系数(initget7);radmid必须非零、非空、非负(setqradmid(getdist"公制外径:"))(initget7);threadpitch必须非零、非空、非负(setqthreadpitch(getreal"螺距:"))(initget1);ptStart必须非空(setqptStart(getpoint"起始点:"))(initget3);

7、threadlength必须非零、非空、非负(setqthreadlength(getdist"螺纹总长(Y方向):"));对公制外径添加公差(if(<=radmid3)(setqorder0);根据公制外径确定公差带中位置(if(<=radmid6)(setqorder1)(if(<=radmid10)(setqorder2)(if(<=radmid18)(setqorder3)(if(<=radmid30)(setqorder4)(if(<=radmid50)(setqorder5)(if(<=radmid80)(setqorder6)(if(<=

8、radmid120)(setqorder7)(if(<=radmid180)(setqorde