这段命令流不能划分网格，哪位高手看看是怎么回事？

duanyiyida

这段命令流不能划分网格，哪位高手看看是怎么回事？

finish
/clear
/prep7

et,1,solid45
et,2,170
et,3,173
keyopt,3,9,0
keyopt,3,12,2

mp,ex,1,8.526e9  !沉箱的材料性质
mp,prxy,1,0.3
mp,dens,1,1000

mp,ex,3,8.526e9  !胸墙的材料性质
mp,prxy,3,0.3
mp,dens,3,2400

mp,ex,2,9.8e8   !抛石基床材料性质
mp,prxy,2,0.42   
mp,dens,2,2550
tb,dp,2
tbdata,,19000,31,29      

mp,mu,4,0.3 !摩擦系数0.3？

r,1   !胸墙
r,2   !沉箱
r,3   !接触
r,4   !基础


!1/4模型
/view,1,1,1,1
type,1  
real,2  
mat,1   

blc4,,, 5725/35000, 4960/35000,-15500/35000 !沉箱A右上角1/4
k,,200/35000,100/35000
k,,5225/35000,100/35000
k,,5325/35000,200/35000
k,,5325/35000,4560/35000
k,,5225/35000,4660/35000
k,,200/35000,4660/35000
k,,100/35000,4560/35000
k,,100/35000,200/35000

*DO,I,9,15,1
L,I,I+1  
*ENDDO  
L,9,16
AL,13,14,15,16,17,18,19,20
VOFFST,7,-15000/35000
vsbv,1,2
vsymm,x,all    !两次镜像生成四个沉箱仓
vsymm,y,all

vgen,1,all,,,-5775/35000,0,0,,,1    !移动整体使坐标原点至AB两箱中间
vsymm,x,all,,,,,    !生成AB两箱

A,7,95,191,167
VOFFST,121,-15500/35000

VADD,ALL

k,10003,-150/35000, -4660/35000
k,10004,150/35000, -4660/35000
k,10005,150/35000,4660/35000
k,10006,-150/35000,4660/35000
A, 10003,10004,10005,10006

VOFFST,1,-15500/35000
VSBV,10,1

wpoff,,, -15000/35000
vsbw,all
wpoff,,, 15000/35000
wpoff,,100/35000,
wprota,,-90
vsbw,all
wpoff,,,100/35000,
vsbw,all
wpoff,,,4360/35000,
vsbw,all
wpoff,,,100/35000,
vsbw,all


wpoff,,,-4760/35000,
vsbw,all
wpoff,,,-100/35000,
vsbw,all
wpoff,,,-4360/35000,
vsbw,all
wpoff,,,-100/35000,
vsbw,all

wprota,,,90

wpoff,,,-150/35000,
vsbw,all
wpoff,,,-300/35000,
vsbw,all
wpoff,,,-100/35000,
vsbw,all
wpoff,,,-5025/35000,
vsbw,all
wpoff,,,-100/35000,
vsbw,all
wpoff,,,-200/35000,
vsbw,all
wpoff,,,-100/35000,
vsbw,all
wpoff,,,-5025/35000,
vsbw,all
wpoff,,,-100/35000,
vsbw,all

wpoff,,,11100/35000,
wpoff,,,150/35000,
vsbw,all
wpoff,,,300/35000,
vsbw,all
wpoff,,,100/35000,
vsbw,all
wpoff,,,5025/35000,
vsbw,all
wpoff,,,100/35000,
vsbw,all
wpoff,,,200/35000,
vsbw,all
wpoff,,,100/35000,
vsbw,all
wpoff,,,5025/35000,
vsbw,all
wpoff,,,100/35000,
vsbw,all

hptcreate,line,319,,coord,-11500/35000, 0,-15500/35000+0.3869 !波吸力bc作用点



ALLSEL,ALL

vatt,1,2,1
mshkey,0
vmesh,all

VSWEEP,ALL