谁能帮我看看我的命令流出什么问题了?怎么显示不了结果呢?请高手赐教,万分谢谢!
/prep7
et,1,solid45,,,,,,,1
et,2,link8
mp,ex,1,3e4
mp,prxy,1,0.2
mp,dens,1,2.5e12
r,1
mp,ex,2,2.0e5
mp,prxy,2,0.3
mp,dens,2,7.85
pi=3.1415926
r,2,0.25*pi*22*22
r,3,0.25*pi*18*18
r,4,0.25*pi*8*8
blc4,,,250,700,7000
*do,i,1,27
wpoff,,,250
vsbw,all
*enddo
wpcsys,-1
wprota,,-90
wpoff,,,30
vsbw,all
wpoff,,,30
vsbw,all
wpoff,,,610
vsbw,all
wpcsys,-1
wprota,,,90
wpoff,,,30
vsbw,all
wpoff,,,190
vsbw,all
wpcsys,-1
elemsiz=50
lsel,s,loc,x,30
lsel,r,loc,y,30
cm,zj,line
latt,2,2,2
lesize,all,elemsiz
lsel,s,loc,x,125
lsel,r,loc,y,30
cm,zjb,line
latt,2,2,2
lesize,all,elemsiz
lsel,s,loc,x,220
lsel,r,loc,y,30
cm,zjc,line
latt,2,2,2
lesize,all,elemsiz
lsel,s,loc,x,30
lsel,r,loc,y,60
cm,jlj,line
latt,2,3,2
lesize,all,elemsiz
lsel,s,loc,x,220
lsel,r,loc,y,60
cm,jlk,line
latt,2,3,2
lesize,all,elemsiz
lsel,s,loc,x,30
lsel,r,loc,y,670
cm,zja,line
latt,2,3,2
lesize,all,elemsiz
lsel,s,loc,x,220
lsel,r,loc,y,670
cm,zjd,line
latt,2,3,2
lesize,all,elemsiz
lsel,s,tan1,z
lsel,r,loc,y,30,670
lsel,r,loc,x,30,220
lsel,u,loc,y,60
cm,gj,line
latt,2,4,2
lesize,all,elemsiz
lsel,all
cmsel,s,zj
cmsel,a,zjb
cmsel,a,zjc
cmsel,a,jlj
cmsel,a,jlk
cmsel,a,zja
cmsel,a,zjd
cmsel,a,gj
lmesh,all
lsel,all
vatt,1,1,1
mshkey,1
esize,elemsiz
vmesh,all
allsel,all
lsel,s,loc,y,0
lsel,r,loc,z,250
dl,all,ux,uy,uz
lsel,s,loc,y,0
lsel,r,loc,z,6750
dl,all,ux,uy
allsel,all
/solu
antype,modal
modopt,lanb,3,,,,1
mxpand,3,,,yes
lumpm,off
outres,all,all
outrp,basic,all
solve
|