【分享】7面体网格划分

对于七个面的块体，如果运用技巧，可以划分出六面体单元，一下奉献一例。
fini
/clear
/PREP7   
  
et,1,45  
BLOCK,,1,,1,,-1,  
SPH4, , ,0.5  
VSBV,1,2  
FLST,2,3,5,ORDE,3  
FITEM,2,1  
FITEM,2,4  
FITEM,2,6  
ACCAT,P51X  
/PNUM,LINE,1  
lccat,6,7  
lccat,1,12  
lccat,4,10  
  
FLST,5,3,4,ORDE,3   
FITEM,5,13   
FITEM,5,17   
FITEM,5,-18  
CM,_Y,LINE   
LSEL, , , ,P51X  
CM,_Y1,LINE  
CMSEL,,_Y   
   
LESIZE,_Y1, , ,30, , , , ,0   !圆弧段
   
FLST,5,6,4,ORDE,6   
FITEM,5,1   
FITEM,5,4   
FITEM,5,6   
FITEM,5,-7   
FITEM,5,10   
FITEM,5,12   
CM,_Y,LINE   
LSEL, , , ,P51X  
CM,_Y1,LINE  
CMSEL,,_Y   
   
LESIZE,_Y1, , ,15, , , , ,0   !边线段
  
FLST,5,3,4,ORDE,2   
FITEM,5,19   
FITEM,5,-21  
CM,_Y,LINE   
LSEL, , , ,P51X  
CM,_Y1,LINE  
CMSEL,,_Y   
  
LESIZE,_Y1, , ,15, , , , ,0   !边线段
   
MSHAPE,0,3D  
MSHKEY,1
   
CM,_Y,VOLU   
VSEL, , , ,       3  
CM,_Y1,VOLU  
CHKMSH,'VOLU'   
CMSEL,S,_Y   
  
VMESH,_Y1   
   
CMDELE,_Y   
CMDELE,_Y1   
CMDELE,_Y2