给你一个命令流试试,全部生成六面体网格,不过和你的要求不完全一致:
fini
/clear
/filn,MAP_mesh
WPSTYLE,,,,,,,,0
!*
KEYW,PR_SET,1
KEYW,PR_STRUC,1
!*
/PREP7
!*
ET,1,SOLID185
!*
BLOCK,-20,20,-20,20,0,8,
! BLOCK,-4,4,-4,4,0,30, ! 这一句是生成长方体,下一句是生成小圆柱,可选用任一句
CYL4, , , 4, , , ,30
CYL4, , ,10, , , ,30
VOVLAP,all
!*
numcmp,all
lplot
!*
wpro,,90.000000,
VSBW,all
!*
wpro,,,90.000000
VSBW,all
!*
wpro,,,45.000000
VSBW,all
!*
wpro,,,90.000000
VSBW,all
!*
allsel,all
numcmp,all
!*
WPSTYLE,,,,,,,,0
!*
LESIZE,ALL, , ,3, ,1, , ,1,
!*
FLST,5,17,4,ORDE,17
FITEM,5,25
FITEM,5,-26
FITEM,5,31
FITEM,5,-32
FITEM,5,67
FITEM,5,-68
FITEM,5,71
FITEM,5,81
FITEM,5,83
FITEM,5,103
FITEM,5,106
FITEM,5,120
FITEM,5,123
FITEM,5,139
FITEM,5,143
FITEM,5,156
FITEM,5,159
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,8, , , , ,1
!*
allsel,all
!*
FLST,5,16,6,ORDE,4
FITEM,5,1
FITEM,5,-10
FITEM,5,13
FITEM,5,-18
VSEL, , , ,P51X
!*
MSHAPE,0,3d
MSHKEY,1
VMESH,all
MSHKEY,0
!*
FLST,5,24,6,ORDE,4
FITEM,5,11
FITEM,5,-12
FITEM,5,19
FITEM,5,-40
VSEL, , , ,P51X
!*
MSHAPE,0,3d
MSHKEY,1
VMESH,all
MSHKEY,0
!*
allsel,all
!*
/USER, 1
/auto, 1
/VIEW, 1, 0.551623703139 , 0.702740081080E-01, 0.831127459491
/ANG, 1, -1.07404604548
EPLO
!*
save
|