TXT

pip_r7700_d19.4_45

By Dana Perkins,2014-05-25 21:48
7 views 0
pip_r7700_d19.4_45

!*************

    *SET,r,770

    *SET,d1,45 !接管外径

    *SET,d2,19.4 !接管内径

    *SET,t1,39.5

    *SET,k1,8

    *SET,di,1000

    *SET,h1,65

    *SET,h2,135

    *set,hj1,2

    *AFUN,DEG

    *set,hj2,(2*t1/2-hj1/2)*tan(45)+hj1

    *set,hj3,(t1/3-hj1/2)*tan(50)+hj1

    !*******ang1距离减15倍壁厚减接管半径******* ang1=NINT(ASIN((di-d1/2-15*t1)/r))

    ang2=nint(ASIN(di/r)) !*******************生成球壳区域

    /PREP7

    sphere,r+t1,r,0,90 VSBW,1

    wprota,,ang1-ang2, vsbw,2

    wpcsys,-1,0

    wprot,0,0,90

    wprot,0,ang1,,

    vsbw,4

    wprot,0,2*(ang2-ang1),0 vsbw,2

    vdele,3,5,1,1

    vdele,1,,,1

    NUMMRG,ALL, , , ,LOW NUMCMP,ALL

    !**************壳体交点坐标系

    wpcsys,-1,0

    WPOFFS,di,sqrt((r+t1)*(r+t1)-di*di),,

    wprota,0,-90,0

    CSWPLA,11,0,1,1,

    !********************* CYLIND,d1/2,d2/2,-h1,h2,0,180, !接管 VOVLAP,1,2

    vdele,3,,,1

    cylind,d1/2+hj1,,-h1,h2,0,180

    vovlap,1,7

    vdele,8,,,1

    cylind,d1/2+hj2,,-h1,h2,0,180 vovlap,1,3

    vdele,9,,,1

    cylind,d1/2+hj3,,-h1,h2,0,180 vovlap,1,7

    vdele,10,,,1

    !*************************************

    WPCSYS,-1,0

    SPHERE,r+t1+k1,,0,90,

    vovlap,1,5

    vdele,11,,,1

    SPHERE,r+t1/3+hj1/2,r+t1/3-hj1/2,0,90,

    vovlap,1,2

    vdele,13,,,1

    SPHERE,r-k1,,0,90,

    vovlap,1,4

    vdele,14,,,1

    askin,27,65

    al,82,55,63,78,11

    al,9,79,72,56,83

    va,3,48,12,35,45,4,6 askin,107,62

    al,61,53,111,21

    al,110,52,60,22

    va,67,11,34,17,18,19 askin,92,62

    vsba,3,20

    vadd,15,9

    askin,100,65

    vsba,3,15

Report this document

For any questions or suggestions please email
cust-service@docsford.com