如何划分网格

小弟菜菜，请教高手，这个网格如何划分
单元全是solid45,命令流如下：
fini                                                                     
/clear                                                                  
/prep7  
ANTYPE,STATIC    
NLGEOM,ON      ! 打开大变形开关  
SMRT,OFF                                                                 
et,1,solid45                                                         
MP,EX,1,2E11                                                         
MP,nuxy,1,0.3                                                            
MP,DENS,1,7800
mp,damp,1,0.02   
  
r,1  
mat,1      
type,1      
real,1  
  
k,1
k,2,,40e-3
k,3,40e-3,40e-3
k,4,40e-3
  
kgen,2,1,4,1,,,1
v,1,2,3,4,5,6,7,8
  
k,9,1.5e-3,1.5e-3
k,10,38.5e-3,1.5e-3
k,11,1.5e-3,38.5e-3
k,12,38.5e-3,38.5e-3
a,9,10,12,11   
VEXT,7,,,,,1
vsbv,1,2!布尔减
VGEN,2,3, , , ,.24     !tube
  
local,11,0,40e-3,20e-3,0.5!改变坐标系
csys,11
  
k,33,0,0
k,34,0,0,40e-3
kgen,2,33,34,1,,.24,.24
k,37,0,20e-3,20e-3
k,38,0,20e-3,60e-3
kgen,2,37,38,1,,.2,.2
kgen,2,37,40,1,-10e-3!节点复制
a,33,34,36,35
vext,21,,,1.5e-3！面拉伸
a,37,41,43,39
a,44,40,38,42
VEXT,28,,,,,-1.5e-3
VEXT,27,,,,,1.5e-3    !clip  
  
vsymm,z,2
vsymm,z,4,5,1  !!second clip
vadd,2,4,5
vadd,6,7,8