ansys1.txt

我做的一些ansys的练习,命令流,对学习ansys很有帮助

/prep7
*afun,deg
exx=2.2e11
prxy=0.3
w_hex=0.01
w_flat=w_hex*tan(30)
l_shank=0.075
l_handle=0.2
bendrad=0.01
l_elem=0.0025
no_d_hex=4
tol=25e-6
et,1,solid45
et,2,plane42
mp,ex,1,exx
mp,prxy,1,prxy
rploy,6,w_flat
rpoly,6,w_flat
k,7
k,8,,,-l_shank
k,9,,l_handle,-l_shank
l,4,1
l,7,8
l,8,9
lfillt,8,9,bendrad
/view,,1,1,1
/angle,,90,xm
/pnum,line,1
lplot
l,1,4
asbl,1,7,,,keep
cm,botarea,area
lsel,s,,,1,2
lsel,a,,,6
lesize,all,,,no_d_hex
type,2
mshape,0,2d
mshkey,1
amesh,all
eplot
type,1
esize,l_elem
vdrag,2,3,,,,,8,10,9
vdrag,2,3,,,,,8,10,9
eplot
cmsel,,botarea
aclear,all
asel,all
/replot
/solu
antype,static
cmsel,,botarea
lsel,,ext
nsll,,1
d,all,all
lsel,all
/pbc,u,,1
nplot
asel,,loc,y,bendrad,l_handle
asel,r,loc,x,w_flat/2,w_flat
nsla,,1
nsel,r,loc,y,l_handle+tol,l_handle-(3.0*l_elem)-tol
*get,minyval,node,,mnloc,y
*get,maxyval,node,,mxloc,y
ptorq=120/(w_hex*(maxyval-minyval))
sf,all,pres,ptorq
allsel
lswrite
pdown=50/(w_flat*(maxyval-minyval))
asel,,loc,z,-(l_shank+(w_hex/2))
nsla,,1
nsel,r,loc,y,l_handle+tol,l_handle-(3.0*l_elem)-tol
sf,all,pres,pdown
allsel
lswrite
lssolve,1,2