/PREP7
M=4E-3
PI=3.1415926
Z=16
ALFA=20/180*PI
Ha=1
C=0.25
D=M*Z
Db=M*Z*COS(ALFA)
Rb=Db/2
Df=D-2*(Ha+C)*M
Rf=Df/2
Da=D+2*Ha*M
Ra=Da/2
ALFA_Ding=ACOS(Rb/Ra)
SITA_Ding=(TAN(ALFA_Ding)-ALFA_Ding)*180/PI
SITA=(tan(ALFA)-ALFA)*180/PI
ET,1,PLANE42
ET,2,SOLID95
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.06E11
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7850
ALFA_Dingn=alfa_ding/10
*DIM,AL,ARRAY,10,1
*DIM,SI,ARRAY,9,1
*DIM,R,ARRAY,9,1
CSYS,1
AL(1,1)=0
K,100,Rb,0,0
*DO,i,1,9,1
AL(i+1,1)=AL(i,1)+ALFA_Dingn
SI(i,1)=(tan(AL(i+1,1))-AL(i+1,1))*180/PI
R(i,1)=Rb/cos(AL(i+1,1))
/prep7
K,i+100,R(i,1),si(i,1)
*enddo
k,110,ra,sita_ding
bsplin,all
FLST,2,2,8
FITEM,2,0,0,0
FITEM,2,Rf,0,0
CIRCLE,P51X, , , ,360, ,
L,100,1
LCOMB,1,6
LFILLT,1,5,0.38*m, ,
LDELE,2, 5,1 ,1
LCOMB,1,6
LOCAL,11,0,0,0,0,SITA+90/Z, , ,1,1,
CSYS,11,
LSYMM,Y,1,
FLST,2,2,8
FITEM,2,0,0,0
FITEM,2,RF,0,0
CIRCLE,P51X
FLST,2,2,8
FITEM,2,0,0,0
FITEM,2,RA,0,0
CIRCLE,P51X
ldele,7,10
numcmp,kp
k,1000,0,0,0
larc,1,21,1000,ra
lcomb,3,6
larc,2,6,1000,rf
lsbl,3,6
CSYS,1
flst,2,7,4
fitem,2,1
fitem,2,7
fitem,2,2
fitem,2,8
fitem,2,4
fitem,2,5
fitem,2,9
AL,P51X
PCIRC,0.4*RA, ,0,360,
ASBA, 1, 2
TYPE,1
LESIZE,1,,,15,,,,,1
LESIZE,7,,,8,,,,,1
LESIZE,2,,,15,,,,,1
LESIZE,8,,,30,,,,,1
LESIZE,4,,,30,,,,,1
LESIZE,5,,,30,,,,,1
LESIZE,9,,,30,,,,,1
LESIZE,3,,,15,,,,,1
LESIZE,11,,,15,,,,,1
LESIZE,10,,,15,,,,,1
LESIZE,6,,,15,,,,,1
LESIZE,14,,,15,,,,,1
LESIZE,15,,,15,,,,,1
LESIZE,12,,,15,,,,,1
LESIZE,13,,,15,,,,,1
MSHAPE,0,2D
MSHKEY,0
AMESH,3
VOFFST,3,1.5E-2, ,
finish
![求大神如何对单齿齿轮划分网格,要求使用命令流。。。]()
单齿.JPG |