清华大学CAD二次开发电子教案第13章.ppt

下载文档 降价啦

14
0
约1.89万字
约 74页
2017-12-13 发布于湖北
举报
版权申诉
保障服务

清华大学CAD二次开发电子教案第13章.ppt

1、本文档共74页，可阅读全部内容。
2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

清华大学CAD二次开发电子教案第13章

(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