自己动手练习了一下,在建半球体时没有使用pjwseu
版主用的循环命令,而是先建一个环面,分网,在旋转生成一个球体,可为什么旋转后球体没有网格线呢,这时候还要对球在进行网格再划分吗,可是map划分完的形状达不到预期效果呀,请各位高手指教
命令流如下:
/PREP7
!*
ET,1,SOLID45
!*
ET,2,SHELL41
!*
R,1,0.0001, , , , , ,
RMORE, ,
!*
mp,ey,1,235e9 !
mp,ex,1,2e9
mp,ez,1,2e9
mp,prxy,1,0.03
mp,pryz,1,0.3
mp,prxz,1,0.03
MP,GXY,1,100E9
MP,GYZ,1,100E9
MP,GXZ,1,100E9
!*
mp,ex,2,150e9 !
mp,ey,2,1e9
mp,ez,2,1e9
mp,prxy,2,0.3
mp,pryz,2,0.3
mp,prxz,2,0.3
MP,GXY,2,50E9
MP,GYZ,2,50E9
MP,GXZ,2,50E9
!*
mp,ex,3,200e9
mp,prxy,3,0.3
CYL4, , ,1.5, ,2,90
FLST,5,2,4,ORDE,2
FITEM,5,2
FITEM,5,4
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,2, , , , ,1
!*
FLST,5,1,4,ORDE,1
FITEM,5,3
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,10, , , , ,1
!*
MSHAPE,0,2D
MSHKEY,1
!*
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
EXTOPT,ESIZE,1,0
EXTOPT,ACLEAR,0
TYPE,2
MAT,3
FLST,2,1,5,ORDE,1
FITEM,2,1
K,5,,,,
FLST,2,1,5,ORDE,1
FITEM,2,1
FLST,8,2,3
FITEM,8,3
FITEM,8,5
VROTAT,P51X, , , , , ,P51X, ,360,36 |