凸缘式齿轮参数化程序（Parametric program of flange type gear）.doc

下载文档 降价啦

8
0
约2.93千字
约 7页
2017-09-14 发布于河南
举报
版权申诉
保障服务

凸缘式齿轮参数化程序（Parametric program of flange type gear）.doc

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

凸缘式齿轮参数化程序（Parametric program of flange type gear）

凸缘式齿轮参数化程序（Parametric program of flange type gear） (defun Key (DK) (cond (((( and = DK DK 6) (8) (setq T1 2 1 Kb) ((((8 and = DK DK) 10) (setq T1 1.4 Kb) (and ( 10 ( = DK DK) 12) (setq T1 1.8 Kb 4)) (and ( 12 ( = DK DK) 17) (setq T1 5 2.3 Kb) (((( and = DK DK 17) 22) (setq T1 6 2.8 Kb) (and ( 22 (DK) DK = 30) (setq T1 3.3 Kb (8)) (and ( 30 (DK) = DK 38) (setq T1 10 3.3 Kb) (and ( DK 38) ( = DK 44) (setq T1 3.3 KB 12)) (and ( DK 44 (DK) = 50) (setq T1 3.8 Kb (14)) (((( 50 and = DK DK) 58) (setq 16 T1 4.3 Kb) (and ( DK 58) ( = DK 65) (setq T1 18 4.4 Kb) (and ( 65 (DK) DK = 75) (setq 20 T1 4.9 Kb) (and ( 75 ( = DK DK) 85) (setq T1 22 5.4 Kb) (and ( 85 ( = DK DK) 95) (setq T1 25 5.4 Kb) ((((95 and = DK DK) 110) (setq T1 6.4 Kb 28) (and ( DK (110) = DK 130) (setq T1 32 7.4 Kb) (T (Alert 键槽表中无此数据!) (exit) Cond); Defun); (defun Mirror (P0 _ and PT) (list (CAR (PT) - (2.0 * p0 and _ (CADR) PT))) Defun); 主程序; (defun Draw _ tysgear (m l Z x dt (DK) (setq os (Getvar osmode)) (osmode setvar 0) (setq SN (Getvar snapmode)) (setq D (Z * m) (setq da (* m (Z + (2 * x) 2))) (setq DF (* m (+ (- 2.5) (* 2 x)))) (setq P0 (getpoint \ n选择插入点:) (setq _ (CAR P0 P0 (X)) (setq _ (CADR P0 and P0)) (setq P1 (list X (_ + P0 and P0 _ (DT / 2.0) (setq P2 (Mirror _ P0 and P1)) (setq P3 (list (P0 _ x + L) (CADR P1))) (setq (P0 _ Mirror P4 and P3) (setq P5 (list (CAR (P3) and (DA + P0 _ / 2.0) (setq (P0 P5 and P6 Mirror _)) (setq P7 (list (+ (CAR (CADR P5 P5) b)))) (setq (P0 _ P7 and P8 Mirror) (setq P9 (list (CAR (P3) and _ + P0 (DF / 2.0) (setq (P0 _ P9 and P10 Mirror) (setq p11 (list ((CAR + p9) (b) (CADR p9))) (setq (P0 _ P11 and P12 Mirror) (setq P13 (list (- (CAR p9) (4.0) (D + P0 and _ / 2.0) (setq (Mirror P0 _ P13 and P14) (setq p15 (list (+ (CAR P11) 4.0 (CADR P13)))) (setq (P0 _ Mirror P16 and p15)) (setq p17 (list _ (P0 and P0 (X - _ 2.0 / DK) （setq P18（列表（车P11）（CADR P17）））（关键DK）（setq P19（名单p0_x（+ p0_y T1（/ DK 2））））（setq P20（列表（汽车P7）（CADR P19）））（setq p21_y（/（EXPT（-（EXPT DK