ANSYS命令流-平板网架建模.txt
《ANSYS命令流-平板网架建模.txt》由会员分享，可在线阅读，更多相关《ANSYS命令流-平板网架建模.txt（3页珍藏版）》请在冰豆网上搜索。
finish
/clear
/Prep7
!
basicgeometricalparameters
multipro,'start',5
*cset,1,3,lx,'Gridsidelx=（m）',3.3
*cset,4,6,ly,'Gridsidely=（m）',3.3
*cset,7,9,n,'Gridnumberofthelongsideonthetopsurface=',10
*cset,10,12,m,'Gridnumberoftheshortsideonthetopsurface=',10
*cset,13,15,z,'distancebetweenthetopandthebottomsurfacez=（m）',-2.3
*cset,61,62,'Pleaseinputgeometryparametersofthegrid.'
multipro,'end'
!
nodesdefinition
*do,i,1,m
*do,j,n*（i-1）+1,n*i
n,j,（j-1-n*（i-1））*lx,（i-1）*ly,0
*enddo
*enddo
*do,i,1,m-1
*do,j,n*m+1+（i-1）*（n-1）,（n-1）*i+n*m
n,j,（2*（j-n*m-（i-1）*（n-1））-1）*lx/2,（2*i-1）*ly/2,z
*enddo
*enddo
!
elementtypeandrealconstants
RTNUM=1
*DIM,areain,array,rtnum
*DIM,izzin,array,rtnum
*DIM,iyyin,array,rtnum
*DIM,tkzin,array,rtnum
*DIM,tkyin,array,rtnum
*DIM,thetain,array,rtnum
*DIM,istrnin,array,rtnum
*DIM,ixxin,array,rtnum
*DIM,shearzin,array,rtnum
*DIM,shearyin,array,rtnum
multipro,'start',1
*cset,1,3,eltype,'Link8Input0,Beam4Input1',0
*cset,61,62,'ElementType1Option:
'
multipro,'end'
*if,eltype,eq,0,then
et,1,link8
*endif
*if,eltype,eq,1,then
et,1,beam4
*endif
multipro,'start',10
*cset,1,3,areain
（1）,'SectionArea（mm^2）,AREA
（1）=',
*cset,4,6,izzin
（1）,'Areamomentofinertia（mm^4）,IZZ
（1）=',
*cset,7,9,iyyin
（1）,'Areamomentofinertia（mm^4）,IYY
（1）=',
*cset,10,12,tkzin
（1）,'ThicknessalongZaxis,TKZ
（1）=',
*cset,13,15,tkyin
（1）,'ThicknessalongYaxis,TKY
（1）=',
*cset,16,18,thetain
（1）,'OrientationaboutXaxis,THEAT
（1）=',
*cset,19,21,istrnin
（1）,'Initialstrain,ISTRN
（1）=',
*cset,22,24,ixxin
（1）,'Torsionalmomentofinertia（mm^4）,IXX
（1）=',
*cset,25,27,shearzin
（1）,'SheardeflectionconstZ,SHEARZ
（1）=',
*cset,28,30,shearyin
（1）,'SheardeflectionconstY,SHEARY
（1）=',
*cset,61,62,'Pleaseinputrealconstant1:
'
*cset,63,64,'JustinputAREAiflink8wasused.'
multipro,'end'
*DO,i,1,RTNUM
*if,eltype,eq,0,then
r,i,areain（i）
*endif
*if,eltype,eq,1,then
r,i,areain（i）,izzin（i）,iyyin（i）,tkzin（i）,tkyin（i）,thetain（i）,
rmore,istrnin（i）,ixxin（i）,shearzin（i）,shearyin（i）,,
*endif
*enddo
multipro,'start',3
*cset,1,3,exin,'Elasticity（GPa）,EX=',2.1E11
*cset,4,6,prxyin,'PoissonRatio,PRXY=',0.3
*cset,7,9,densin,'Densofsteel,DENS
（1）=',7850
*cset,61,62,'Pleaseinputmaterialproperty:
'
multipro,'end'
mp,ex,1,exin
mp,prxy,1,prxyin
mp,dens,1,densin
!
multipro,'start',3
*cset,1,3,typein,'Elementtypenumber',1
*cset,4,6,matin,'Materialtypenumber',1
*cset,7,9,realin,'Realconstanttypenumber',1
*cset,61,62,'Pleaseinputelementtypenumber:
'
multipro,'end'
type,typein
mat,matin
real,realin
!
*do,j,1,（m-1）*n,
e,j,j+n
*enddo
*do,i,1,m,
*do,j,（i-1）*n+1,i*n-1,
e,j,j+1
*enddo
*enddo
!
*do,i,1,m-2
*do,j,n*m+1+（i-1）*（n-1）,（n-1）*i+n*m
e,j,j+n-1
*enddo
*enddo
*do,i,1,m-1
*do,j,n*m+1+（i-1）*（n-1）,（n-1）*i+n*m-1
e,j,j+1
*enddo
*enddo
!
*do,i,1,m-1
*do,j,（i-1）*n+1,（i-1）*n+n-1
e,j,j+n*m-（i-1）
*enddo
*enddo
*do,i,1,m-1
*do,j,（i-1）*n+2,（i-1）*n+n
e,j,j+n*m-（i-1）-1
*enddo
*enddo
*do,i,1,m-1
*do,j,i*n+1,i*n+n-1
e,j,j+n*m-（i-1）-n
*enddo
*enddo
*do,i,1,m-1
*do,j,i*n+2,i*n+n
e,j,j+n*m-（i-1）-n-1
*enddo
*enddo
!
multipro,'start',1
*cset,1,3,P,'Loads（N）',200
*cset,61,62,'Pleaseinputloadsvalue:
'
multipro,'end'
*do,i,n*m+1,n*m+（n-1）*（m-1）
f,i,fz,-P
*enddo
*do,i,1,n
d,i,all,0
*enddo
*do,i,n*（m-1）+1,n*m
d,i,all,0
*enddo
*do,i,n+1,（n*（m-2）+1）,n
d,i,all,0
*enddo
*do,i,n*2,n*（m-1）,n
d,i,all,0
*enddo
!
save,model,db,,all
升级会员 