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

下载本文档

7
0
约2.55千字
约 10页
2016-11-08 发布于浙江
举报
版权申诉

机械CAD_CAM技术实验报告作业范本3.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

实验报告一 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 60) (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 f (getreal频率)) (setq p (getreal螺距)) (setq r (getreal半径)) (setq rr r) (setq q 0) (setq x (* r (cos (* f q)))) (setq y (* r (sin (* f q)))) (setq z (* p (/ (* f q) (* 2 pi)))) (setq p1 (list x y z)) (while ( q 60) (setq r (* rr (/ 1 (+ 1 (* q 0.1))))) (setq x1 (* r (cos (* f q)))) (setq y1 (* r (sin (* f q)))) (setq z1 (* p (/ (* f q) (* 2 pi)))) (setq p2 (list x1 y1 z1)) (command line p1 p2 ) (setq p1 p2) (setq q (+ q 0.01)))) 3、程序结果实验报告三 Solidworks三维建模实验内容：抽壳，扫描，旋转结果：实验报告四 --------Autolisp编程 1、实验内容绘制渐开线齿轮 2、Autolisp程序 (defun c:clun() (setq p0 (getpoint 确定基点)) (setq z (getint 齿数)) (setq m (getreal 模数)) (setq a1 (/ pi 9)) (setq l1 (+ z 2)) (setq l2 (* z (cos a1))) (setq l3 (expt (- (expt l1 2) (expt l2 2)) 0.5)) (setq am (- (/ l3 l2) (atan l3 l2))) (setq ar (- (/ (sin a1) (cos a1)) a1)) (setq af (- (/ pi z) (* 2 ar))) (setq aa (- (/ pi z) (* 2 (- am ar)))) (setq rf (- (* z m 0.5) (* m 1.25))) (setq ra (+ (* z m 0.5) m)) (setq rb (* z m (cos a1) 0.5)) (setq p1 (polar p0 0 rf)) (setq p2 (polar p0 (/ af 2) rf)) (command arc c p0 p1 p2 ) (if ( rf rb)(setq r rb)(setq r rf)) (command line p2 (polar p0 (/ af 2) r) ) (setq l4 (* 2 r)) (setq l5 (* 2 r)) (setq l6 (expt (- (expt l4 2) (expt l5 2)) 0.5)) (setq a (- (/ l6 l5) (atan l6 l5))) (setq p4 (polar