这段命令流不能划分网格，哪位高手看看是怎么回事？
这段命令流不能划分网格，哪位高手看看是怎么回事？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
页:
[1]