《第八讲 带传动CAD系统开发实例.ppt》由会员分享，可在线阅读，更多相关《第八讲 带传动CAD系统开发实例.ppt（14页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第第8 8讲讲 普通普通V V带传动带传动CADCAD系统开发实例系统开发实例8.1 8.1 已知条件及设计内容已知条件及设计内容已知条件：已知条件：1 1）传动的用途或工作情况条件；）传动的用途或工作情况条件；2 2）每天工作时间和班次；）每天工作时间和班次；3 3）传递的名义功率；）传递的名义功率；4 4）带轮转速）带轮转速n1n1或传动比或传动比u u；5 5）中心距范围等）中心距范围等 设计内容：设计内容：1 1）计算功率；确定）计算功率；确定V V带型号、带长、带轮直径和带的根数；带型号、带长、带轮直径和带的根数；确定实际中心距及其变化范围、验算带速、计算初拉力及确定实际中心距及其变
2、化范围、验算带速、计算初拉力及压轴力等；并输出计算结果。压轴力等；并输出计算结果。2 2）根据需要参数化绘制带轮图形。）根据需要参数化绘制带轮图形。8.2 8.2 普通普通V V带传动设计步骤带传动设计步骤 1 1）确定计算功率）确定计算功率P Pc c，2 2）根据计算功率）根据计算功率P Pc c和小带轮转速和小带轮转速n n1 1确定确定V V带型号带型号 3 3）确定带轮基准直径）确定带轮基准直径d d1 1和和d d2 2,并验算带速并验算带速V Va a）根据所选）根据所选V V带型号查表及带轮直径标准系列值，带型号查表及带轮直径标准系列值，得到得到d d1 1b b）验算带速，应
3、保证）验算带速，应保证v v在之间在之间 ，若不能，若不能满足这一要求应重选；满足这一要求应重选；c c）根据公式）根据公式 算出大带轮直径，并圆算出大带轮直径，并圆整成标准值，整成标准值，取为取为0.020.02。4 4）确定中心距）确定中心距a a及带长及带长L Ld d a)a)初定中心距初定中心距a a0 0,如果未规定中心距，则应按下式如果未规定中心距，则应按下式给出的范围初选中心距：给出的范围初选中心距：8.2 8.2 普通普通V V带传动设计步骤带传动设计步骤(续）续）b b）确定带长）确定带长L Ld d，初算，初算 根据初算值根据初算值L Lc c查出相近的标准带长查出相近的
4、标准带长L Ld d c c）确定中心距）确定中心距 计算中心距的变化范围：计算中心距的变化范围：5)5)验算小带轮包角验算小带轮包角 6)6)确定单根确定单根V V带的许用功率带的许用功率 8.2 8.2 普通普通V V带传动设计步骤带传动设计步骤(续）续）7 7）确定）确定V V带根数带根数z z 查取长度系数查取长度系数K KL L,查取包角系数查取包角系数KaKa 计算计算V V带根数：带根数：注：注：将计算值向大的方向圆整成整数，得到带的根数将计算值向大的方向圆整成整数，得到带的根数z z。若根。若根数过多数过多(如大于如大于1010根），则应改选带的型号重新设计。根），则应改选带的
5、型号重新设计。8 8）确定带的最小初拉力）确定带的最小初拉力F F0min0min 9 9）计算带传动的压轴力）计算带传动的压轴力F FP P8.3 8.3 有关数据处理有关数据处理 1 1）检索工作情况系数）检索工作情况系数KAKA 以以K1K1、K2K2和启动方式和启动方式qdqd为变参为变参,编制编制KAKA的检索函数的检索函数(xskaxska k1 k2 k1 k2 qdqd)：说明：说明：每天工作时间每天工作时间(k1=0,1,2),0-16h(k1=0,1,2),0-16h 工况工况(k2=0,1,2 3)(k2=0,1,2 3)，0-0-载荷变动微小，载荷变动微小，1-1-变动
6、小，变动小，2-2-变动较大，变动较大，3-3-变动很大变动很大.启动方式启动方式(qdqd),),1-1-空、轻载启动，空、轻载启动，2-2-重载启动重载启动(defundefun xskaxska(k1 k2 (k1 k2 qdqd)(if(=(if(=qdqd 1)1)(setqsetq KA(KA(condcond(=k1 0)(nth k2(1 1.1 1.2 1.3)(=k1 0)(nth k2(1 1.1 1.2 1.3)(=k1 1)(nth k2(1.1 1.2 1.3 1.4)(=k1 1)(nth k2(1.1 1.2 1.3 1.4)(=k1 2)(nth k2(1.2
7、 1.3 1.4 1.5)(=k1 2)(nth k2(1.2 1.3 1.4 1.5)(setqsetq KA(KA(condcond(=k1 0)(nth k2(1.1 1.2 1.4 1.5)(=k1 0)(nth k2(1.1 1.2 1.4 1.5)(=k1 1)(nth k2(1.2 1.3 1.5 1.6)(=k1 1)(nth k2(1.2 1.3 1.5 1.6)(=k1 2)(nth k2(1.3 1.4 1.6 1.8)(=k1 2)(nth k2(1.3 1.4 1.6 1.8);if);if);end);end 2)2)检索带型号和小带轮直径范围检索带型号和小带轮直径
8、范围 采用线性插值处理普通采用线性插值处理普通V V带选型线图带选型线图,在每条线上确定在每条线上确定两点两点A A（pa pa na),B(pbna),B(pb nbnb)，以建立线型方程。，以建立线型方程。编制带型号检索函数（编制带型号检索函数（dxhdxh p n),p n),将采集到将采集到的各条线的两点分别写入引用表中，并赋的各条线的两点分别写入引用表中，并赋给相应的变量：给相应的变量：(defundefun dxhdxh(p n)(p n)(setqsetq paapaa(1.6 1 1 1.6 2 3 8 23 50)(1.6 1 1 1.6 2 3 8 23 50)naanaa
9、(1250 470 220 170 125 100 (1250 470 220 170 125 100 100100 100100 100100)pbbpbb(4 4 8 6.3 12.5 16 31.5 80 160)(4 4 8 6.3 12.5 16 31.5 80 160)nbbnbb(3180 2000 (3180 2000 20002000 800 980 720 500 480 450)800 980 720 500 480 450)(setqsetq dd1(50 63 71 80 90 100 dd1(50 63 71 80 90 100 80 85 90 95 100 11
10、2 118 125 132 140 80 85 90 95 100 112 118 125 132 140 125 132 140 160 170 180 200 125 132 140 160 170 180 200 200 212 224 236 250 265 280 315 200 212 224 236 250 265 280 315 355 375 400 355 375 400“450 500)450 500)根据函数的实参（根据函数的实参（dxhdxh p n)p n)完成相应的计算和检索：完成相应的计算和检索：(setqsetq i-1 i-1 nknk 5000)5000)
11、(while(=n (while(p (if(and(p pbpb)(n)(n nbnb)()(setqsetq nknk(-n 10);while(-n 10);while(setqsetq dxdx(nth i(Z Z A A B B C D E)(nth i(Z Z A A B B C D E)(setqsetq d1(nth i dd1)d1(nth i dd1)(princprinc nDXHnDXH=)=)(princprinc dxdx)(princprinc nd1=)nd1=)(princprinc d1)d1)(princprinc)；endend调用实例：调用实例：(dx
12、hdxh 8 960)8 960)返回：返回：dxhdxh=A d1=112 118 125 132 140=A d1=112 118 125 132 140 3 3）确定确定V V带的基准长度系列及长度系数带的基准长度系列及长度系数K KL L 编程建立基准长度和长度系数的数组关系编程建立基准长度和长度系数的数组关系(defun ldkl(dx ld1)(setq ldb(450 500 560 630 710 800 900 1000 1120 1250 1400 1600 1800 2000 2240 2500)(setq klb(cond (=dx Z)(0.89 0.91 0.94
13、0.96 0.99 1.0 1.03 1.06 1.08 1.11 1.14 1.16 1.18)(=dx A)(0.81 0.82 0.85 0.87 0.89 0.91 0.93 0.96 0.99 1.01 1.03 1.06 1.09)(=dx B)(0.81 0.84 0.86 0.88 0.9 0.93 0.95 0.98 1.0 1.03)(=dx C)(0.84 0.85 0.88 0.91 0.93)(setq i 0 e1 0 e2 2500)(while(e2(*0.5 e1)(setq ld l2)(setq ld l1)(setq lb(cond(=dx Z)ldb)
14、(=dx A)(member 630 ldb)(=dx B)(member 900 ldb)(=dx C)(member 1600 ldb)(setq i 0 l1 0)(while(/=ld l1)(setq l1(nth i lb)(setq kl(nth i klb)(setq i(1+i)(princ nLd=)(princ ld)(princ nKL=)(princ kl)(princ);end 调用实例：调用实例：(ldkl“A”1233)返回：返回：Ld=1250 KL=0.934）确定）确定普通普通V V带传动设计中包角系数带传动设计中包角系数KK编程确定编程确定普通普通V V
15、带传动设计中包角系数带传动设计中包角系数KK(defundefun bjkabjka(bjiaobjiao/ab1 ab2 /ab1 ab2 abab kabkab y1 y2 y1 y2 yyyy xx)xx)(setqsetq abab(120 125 130 135 140 145 150 155 160 165 170 175 180)(120 125 130 135 140 145 150 155 160 165 170 175 180)kabkab(0.82 0.84 0.86 0.88 0.89 0.91 0.92 0.93 0.95 0.96 (0.82 0.84 0.86 0
16、.88 0.89 0.91 0.92 0.93 0.95 0.96 0.98 0.99 1.0)0.98 0.99 1.0)(setqsetq i 0 ab1 0 ab2 0)i 0 ab1 0 ab2 0)(while(ab2 (while(ab2 bjiaobjiao)(setqsetq i(1+i)i(1+i)(setqsetq ab1(nth i ab1(nth i abab)ab2(nth(+i 1)ab2(nth(+i 1)abab);while );while (setqsetq y1(nth i y1(nth i kabkab)y2(nth(+i 1)y2(nth(+i 1)k
17、abkab)(setqsetq yyyy(-y2 y1)(-y2 y1)xx(/(-ab2 xx(/(-ab2 bjiaobjiao)(-ab2 ab1 0.0)(-ab2 ab1 0.0)(setqsetq ka1(-y2(*ka1(-y2(*yyyy xx)xx);end );end调用实例：调用实例：(bjkabjka 153)153)返回：返回：0.9260.9265)5)编程确定编程确定单根单根V V带基本额定功率带基本额定功率P0P0(defundefun jsp0(p n)jsp0(p n)(xskaxska k1 k2 k1 k2 qdqd)(setqsetq pcapca(*
18、ka p)n1 n)(*ka p)n1 n)(dxhdxh pcapca n1)n1)(prompt(prompt(strcatstrcat nd1=d1)(nd1=d1)(terpriterpri)(initgetinitget 7 d1)7 d1)(setqsetq dp1(dp1(getintgetint nSelectnSelect an diameter d1:)an diameter d1:)(setqsetq key(key(strcatstrcat dxdx(itoaitoa dp1)dp1)(setqsetq f(open e:/jscad/vp0.dat r)f(open
19、e:/jscad/vp0.dat r)(setqsetq dndn(read(read-line f)dp0(read(read-line f)(read(read-line f)dp0(read(read-line f)(while(/=(nth 0 dp0)key)(while(/=(nth 0 dp0)key)(setqsetq dp0(read(read-line dp0(read(read-line f);whilef);while (close f)(close f)(setqsetq i 0 dn1 0 dn2 300)i 0 dn1 0 dn2 300)(while(dn2 n
20、)(while(dn2 n)(setqsetq i(1+i)i(1+i)(setqsetq dn1(nth i dn1(nth i dndn)dn2(nth(+i 1)dn2(nth(+i 1)dn);whiledn);while (setqsetq y1(nth i dp0)y2(nth(+i 1)dp0)y1(nth i dp0)y2(nth(+i 1)dp0)(setqsetq yyyy(-y2 y1)xx(/(-dn2 n)(-dn2 dn1 0.0)(-y2 y1)xx(/(-dn2 n)(-dn2 dn1 0.0)(setqsetq p0(-y2(*p0(-y2(*yyyy xx)xx)(princprinc nP0=)(nP0=)(princprinc p0)p0)(princ);endprinc);end 调用实例：调用实例：(jsp0jsp0 6 9606 960)返回：返回：P0=1.37667P0=1.37667