autolisp对话框实例-齿轮.pptVIP

下载本文档

167
0
约1.89万字
约 74页
2017-06-10 发布于湖北
举报
版权申诉

autolisp对话框实例-齿轮.ppt

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

autolisp对话框实例-齿轮

(if (= sdt 4) (progn;用光标确定旋转角 (initget 1);禁止空输入 (setq ang (getangle p0 输入旋转角: )) (setq alf (* 180.0 (/ ang pi))) )));while循环结束 (unload_dialog id);卸载对话框文件 (if (= user_md 0) (setq d (nth (atoi d_n) s_d_list) l(nth (atoi l_n) s_l_list));标准尺寸 (setq d d1 l l1);自定义尺寸 ) (if (= sdt 1) ;绘制所选类型的螺钉 (drawscrew s_t d l p0 alf cen_md cc tc sc) ) (princ)) ;定义绘制螺钉的函数 (defun drawscrew(s_t d l p0 alf cen_md cc tc sc / p1 p2 p3 p4 p5 p6 p7 p8 p9 p10) (setvar osmode 0) (setvar cmdecho 0) (setq alf (/ (* pi alf) 180));度转换为弧度 (command color sc) (if (= s_t 0);开槽圆柱头螺钉 GB/T65-2000 (progn (setq p1 (polar p0 (+ alf (* 0.5 pi)) (* 0.75 d))) (setq p2 (polar p1 (+ alf pi) (* 0.6 d))) (setq p3 (polar p2 (+ alf (* -0.5 pi)) (* 0.65 d))) (setq p4 (polar p3 alf (* 0.25 d))) (setq p5 (polar p4 (+ alf (* -0.5 pi)) (* 0.2 d))) (setq p6 (polar p5 (+ alf pi) (* 0.25 d))) (setq p7 (polar p6 (+ alf (* -0.5 pi)) (* 0.65 d))) (setq p8 (polar p7 alf (* 0.6 d))) (command line p1 p2 p3 p4 p5 p6 p7 p8 c) (drawwhorl s_t p0 d l alf cen_md cc tc sc) ) ) (if (= s_t 1);沉头开槽螺钉头GB/T 68-2000 (progn (setq p01(polar p0 alf (* 0.5 d))) (setq p1 (polar p01 (+ alf (* 0.5 pi)) (* 0.5 d))) (setq p2 (polar p1 (+ alf (* 0.75 pi)) (* 0.707107 d))) (setq p3 (polar p2 (+ alf (* 1.5 pi)) (* 0.9 d))) (setq p4 (polar p3 alf (* 0.25 d))) (setq p5 (polar p4 (+ alf (* -0.5 pi)) (* 0.2 d))) (setq p6 (polar p5 (+ alf pi) (* 0.25 d))) (setq p7 (polar p6 (+ alf (* -0.5 pi)) (* 0.9 d))) (setq p8 (polar p1 (+ alf (* -0.5 pi)) d)) (command line p1 p2 p3 p4 p5 p6 p7 p8 c) (drawwhorl s_t p01 d (- l (* 0.5 d)) alf cen_md cc tc sc) ) ) (if (= s_t 2);六角头螺栓 GB/T 5780-2000 (progn (setq p1 (polar p0 (+ alf (* 0.5 pi)) (* 0.5 d))) (setq p2 (polar p1 (+ alf (* 0.5 pi)) (* 0.5 d))) (setq p3 (polar p2 (+ alf pi