这是我的命令流请指点,非常感谢!
/units,si
/PREP7
!*
ET,1,SHELL63
!*
R,1,0.009, , , , , ,
RMORE, , , ,
RMORE
RMORE, ,
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2e11
MPDATA,PRXY,1,,0.3
CYL4, , ,1.2, , , ,0.685
VDELE, 1
FLST,2,2,5,ORDE,2
FITEM,2,1
FITEM,2,-2
ADELE,P51X, , ,1
wpro,,,-30.000000
wpro,,,-30.000000
wpro,,,-30.000000
FLST,2,2,5,ORDE,2
FITEM,2,3
FITEM,2,-4
ASBW,P51X
FLST,2,4,5,ORDE,4
FITEM,2,1
FITEM,2,-2
FITEM,2,5
FITEM,2,-6
AGLUE,P51X
/DIST,1,1.08222638492,1
/REP,FAST
/VIEW,1,,,1
/ANG,1
/REP,FAST
/DIST,1,1.08222638492,1
/REP,FAST
/USER, 1
/VIEW, 1, -0.161276477605 , -0.206184459926 , 0.965131009893
/ANG, 1, 1.39709431221
/REPLO
/DIST,1,1.08222638492,1
/REP,FAST
/AUTO,1
/REP,FAST
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
APLOT
ESIZE,0.06,0,
MSHAPE,0,2D
MSHKEY,1
!*
FLST,5,4,5,ORDE,4
FITEM,5,1
FITEM,5,-2
FITEM,5,5
FITEM,5,-6
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
FINISH
/SOL
FLST,2,4,4,ORDE,2
FITEM,2,1
FITEM,2,-4
!*
/GO
DL,P51X, ,ALL,
FLST,2,4,5,ORDE,4
FITEM,2,1
FITEM,2,-2
FITEM,2,5
FITEM,2,-6
/GO
!*
SFA,P51X,1,PRES,800000
PSTRES,1
/STATUS,SOLU
SOLVE
!*
!*
!*
FINISH
/SOLUTION
ANTYPE,1
!*
!*
!*
BUCOPT,LANB,1,0,0
!*
MXPAND,1,0,1e8,0,0.001,
/STATUS,SOLU
SOLVE |