不知道你的球壳的尺寸，做了一个自立给你作为参考吧。命令流如下：
fini
/clear
/filname,mesh_half_sphere,0
WPSTYLE,,,,,,,,0
!*
KEYW,PR_SET,1
KEYW,PR_STRUC,1
!*
/PREP7
!*
ET,1,SOLID186
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,201000
MPDATA,PRXY,1,,0.3
!*
SPHERE,10,11,0,90,
!*
/AUTO,1
/USER, 1
/VIEW, 1, -0.131045081436 , -0.246260712343 , 0.960303518784
/ANG, 1, 2.01237300411
LPLO
!*
WPSTYLE,,,,,,,,1
VSBW, 1
!*
WPSTYLE,,,,,,,,0
wpro,,90.000000,
VDELE, 2, , ,1
!*
numcmp,all
!*
CYL4, , ,1, , , ,-15
/AUTO,1
LPLOT
!*
FLST,2,2,6,ORDE,2
FITEM,2,1
FITEM,2,-2
VOVLAP,P51X
!*
VDELE, 5, , ,1
!*
ET,2,MESH200
!*
KEYOPT,2,1,7
KEYOPT,2,2,0
!*
FLST,5,2,4,ORDE,2
FITEM,5,1
FITEM,5,3
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,8, , , , ,1
!*
FLST,5,1,4,ORDE,1
FITEM,5,22
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,8, , , , ,1
!*
FLST,5,2,4,ORDE,2
FITEM,5,20
FITEM,5,23
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,1, , , , ,1
!*
FLST,5,4,4,ORDE,4
FITEM,5,8
FITEM,5,21
FITEM,5,24
FITEM,5,26
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,1, , , , ,1
!*
FLST,5,3,4,ORDE,3
FITEM,5,5
FITEM,5,9
FITEM,5,27
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
! LESIZE,_Y1, , ,2, , , , ,1 ! 厚度方向分两层单元
LESIZE,_Y1, , ,1, , , , ,1 ! 厚度方向分一层单元
!*
FLST,5,4,4,ORDE,2
FITEM,5,28
FITEM,5,-31
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,12, , , , ,1
!*
numcmp,all
!*
EXTOPT,ACLEAR,1
EXTOPT,VSWE,AUTO,0
EXTOPT,ESIZE,8,0
!*
ALLSEL,ALL
!*
MSHAPE,0,3d
MSHKEY,1
VMESH,2
MSHKEY,0
!*
MSHKEY,1
AMESH,5
MSHKEY,0
!*
VSWEEP,1,5,4
!*
EPLOT
!*
numcmp,all
ALLSEL,ALL
!*
FLST,3,2,6,ORDE,2
FITEM,3,1
FITEM,3,-2
VSYMM,X,P51X, , , ,0,0
!*
/REP,FAST
FLST,3,4,6,ORDE,2
FITEM,3,1
FITEM,3,-4
VSYMM,Y,P51X, , , ,0,0
!*
/REP,FAST
NUMMRG,KP, , , ,LOW
NUMMRG,NODE, , , ,LOW
NUMMRG,KP, , , ,LOW
NUMcmp,all
!*
/USER, 1
/VIEW, 1, 0.327268622139 , 0.686062982766 , -0.649779064484
/ANG, 1, -18.6227206791
/AUTO,1
EPLO
!*
沿厚度划分 1 个和 2 个单元时的结果如附图： |
回复此楼
