这是我一部分正确的命令流,是没有利用vinc这个命令做出来的,您可以运行一下。
再改一改看能不能利用vinc这个命令也达到要求。
finish
/clear,nostart
/units,si
/prep7
et,1,shell63
mp,ex,1,3.25e10
mp,dens,1,2500
mp,nuxy,1,0.2
r,1,0.2
r,2,0.3
r,3,0.5
r,4,1.6
save
/view,1,1,1,1
k,1
k,2,2.5
k,3,6.25
k,4,10
k,5,12.5
k,6,2.7,-1
k,7,6.25,-1
k,8,9.8,-1
save
kgen,2,1,8,1,,,16
kgen,2,1,8,1,,,36
kgen,2,1,8,1,,,56
kgen,2,1,8,1,,,72
save
a,2,3,7,6
a,3,4,8,7
a,34,35,39,38
a,35,36,40,39
aatt,1,3,1
*do,i,10,34,8
a,i,i+1,i+5,i+4
*enddo
*do,i,11,35,8
a,i,i+1,i+5,i+4
*enddo
aatt,1,4,1
AESIZE,ALL,1,
MSHAPE,0,2D
MSHKEY,1
AMAP,3,34,35,38,39
AMAP,4,35,36,39,40
AMAP,7,26,27,30,31
AMAP,10,27,28,31,32
AMAP,6,18,19,22,23
AMAP,9,19,20,23,24
AMAP,5,10,11,14,15
AMAP,8,11,12,15,16
AMAP,1,2,3,6,7
AMAP,2,3,4,7,8
FLST,5,10,5,ORDE,2
FITEM,5,1
FITEM,5,-10
ASEL,U, , ,P51X
*do,i,1,4,1
a,i,i+8,i+9,i+1
*enddo
*do,i,9,12,1
a,i,i+8,i+9,i+1
*enddo
*do,i,17,20,1
a,i,i+8,i+9,i+1
*enddo
*do,i,25,28,1
a,i,i+8,i+9,i+1
*enddo !桥梁顶板建模完毕
*do,i,6,7,1
a,i,i+8,i+9,i+1
*enddo
*do,i,14,15,1
a,i,i+8,i+9,i+1
*enddo
*do,i,22,23,1
a,i,i+8,i+9,i+1
*enddo
*do,i,30,31,1
a,i,i+8,i+9,i+1
*enddo
lesize,all,1
aatt,1,1,1
amesh,all !划分顶板底板单元完毕
FLST,5,24,5,ORDE,2
FITEM,5,1
FITEM,5,-24
ASEL,U, , ,P51X
*do,i,2,4,1
a,i,i+8,i+12,i+4
*enddo
*do,i,10,12,1
a,i,i+8,i+12,i+4
*enddo
*do,i,18,20,1
a,i,i+8,i+12,i+4
*enddo
*do,i,26,28,1
a,i,i+8,i+12,i+4
*enddo
lesize,all,1
aatt,1,2,1
amesh,all !划分桥梁腹板单元完毕
finish
/solu
antype,trans !分析类型为瞬态
edbk=7.1/8 !桥梁的底板,宽度是7.1m,分成8个单元,每个单元是edbk宽。
nsel,s,loc,z,0 !选择顺桥方向0m处的截面
nsel,r,loc,y,-1 !选择0m处截面的底板,底板位置是y=-1
nsel,r,loc,x,2.7+edbk !选择底板的一个节点x=2.7+edbk(一个单元的宽度,已经定义的参数)
d,all,,,,,,uy !加竖向约束
nsel,s,loc,z,0 !同上
nsel,r,loc,y,-1 !同上
nsel,r,loc,x,9.8-edbk !选择底板的另一个节点x=9.8-edbk
d,all,,,,,,uy !加竖向约束 |