机械CAD_CAM技术实验报告作业范本32.docxVIP

实验报告一一.实验内容正弦曲线二.程序(defun c:ssin() (setq a (getreal 幅值)) (setq k (getreal 频率)) (setq q 0) (setq x1 q) (setq y1 (* a (sin (* k q)))) (setq p1 (list x1 y1)) (while ( q 30) (setq x2 q) (setq a (* a 0.999)) (setq y2 (* a (sin (* k q)))) (setq p2 (list x2 y2)) (command line p1 p2 ) (setq p1 p2) (setq q (+ q 0.01)) ))注：(setq a (* a 0.999))为振动曲线程序三.实验结果图一 正弦曲线图二 振动曲线实验报告二一.实验内容螺纹线二.程序(defun c:lwx() (setq r (getreal 半径)) (setq p (getreal 螺距)) (setq q 0) (setq x1 (* r (cos q))) (setq y1 (* r (sin q))) (setq z1 (/ (* p q) (* 2 pi))) (setq p1 (list x1 y1 z1)) (while ( q (* 10 pi))（setq r (* r 0.999)） (setq x2 (* r (cos q))) (setq y2 (* r (sin q))) (setq z2 (/ (* p q) (* 2 pi))) (setq p2 (list x2 y2 z2)) (command line p1 p2 ) (setq p1 p2) (setq q (+ q 0.01)) ))注：（setq r (* r 0.999)）附属程序三实验结果图三.螺纹线1图四.螺纹线2实验报告三一.实验内容用solidworks画出盖子、杯子、管道模型二.实验结果图一.盖子图二.杯子图三.管道Autolisp画齿轮源程序(defun c:cl(/ P0 P1 P2 p3 m z YLJ R Ra RfRbakstk a Rk n d jcg b p3 ss1 ss2 l youzbz;储存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齿轮模数:) z (getint \n齿轮齿数:)ylj (getint \n齿廓压力角(度):);单位：度 ) ;设置默认数据 (if (= m nil)(setq m 1)) (if (= z nil)(setq z 32)) (if (= ylj nil)(setqylj 20)) (setq r (* m z 0.5);分度圆半径ra (+ r m)rf (- r (* 1.25 m))ylj (/ (* ylj pi) 180);压力角.单位：度rb (* r (cosylj)) p1 (polar p0 0 rb);渐开线起始点 p2 p1; a 0.021;角度累加最小单位(度)ak 0;渐开线展开角.初值为0° n (- (/ (sin ylj) (cosylj)) ylj);渐开线起始点与圆心连线和水平线的夹角 ) (setvar CMDECHO 0);关闭命令显示 (setqbz (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 (jk