机械CAD_CAM技术实验报告作业范本15.docVIP

实验报告一 Autolisp编程 1、实验内容 绘制正弦曲线y=a*sin（k*q） Autolisp程序 (defun c:ssin() (setq a (getreal”幅值”)) （setq aa a) (setq k (getreal”频率”)) (setq q 0) (setq x q) (setq y (* a (sin(* k q)))) (setq p1 (list x y)) (while( q 20) (setq x1 q) (setq a (* aa (/ 1 (+ 1 (* q 0.1))))) (setq y1 (* a (sin(* k q)))) （setq p2 (list x1 y1)) (command“line”p1 p2””) (setq p1 p2) (setq q (+ q 0.01)) ) ) 3、程序结果 图一 正弦曲线 图二 衰减的正弦曲线 实验报告二 Autolisp编程 1、实验内容 绘制空间螺旋线x=r*cosq,y=r*sinq,z=q*p/(2π) 2、Autolisp程序 (defun c:lxx() (setq r (getreal”半径”)) (setq rr r) (setq p (getreal”螺距”)) (setq q 0) (setq x (* r (cos q))) (setq y (* r (sin q))) (setq z (/ (* p q) (* 2 pi))) (setq p1 (list x y z)) (while ( q 30) (setq r (* rr (/ 1 (+ 1 (* q 0.1))))) (setq x1 (* r (cos q))) (setq y1 (* r (sin q))) (setq z1 (/ (* p q) (* 2 pi))) (setq p2 (list x1 y1 z1)) (command “line”p1 p2””) (setq p1 p2) (setq q (+ q 0.01)) )) 3、程序结果 图一 空间螺旋线 图二 衰减的空间螺旋线 实验报告三 三维实体造型 实验内容 用solidworks进行三维建模：抽壳 扫描 旋转 2）管道 3）杯子 Autolisp画齿轮 源程序 (defun c:齿轮(/ P0 P1 P2 p3 m z YLJ R Ra Rf Rb 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);单位：度 ) ;设置默认数据 (if (= m nil)(setq m 1)) (if (= z nil)(setq z 32)) (if (= ylj nil)(setq ylj 20)) (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);关闭命令显示 (