还是不行啊,能不能麻烦版主把以下ansys的两个命令流采用tg装化成abaqus的inp文件阿!
请版主帮帮忙吧!不胜感谢
以下为命令流1
/prep7
et,1,solid65
mp,ex,1,2000
mp,prxy,1,0.3
et,2,154
k,1,5.78,1.6
k,2,3.78,1.6
k,3,3.38,1.6
k,4,0.2,1.6
k,5,3.78,1.35
k,6,3.38,1.35
k,7,0.2,1.35
k,8,3.78,0.22
k,9,3.38,0.22
k,10,0.2,0.22
k,11,3.78,0
k,12,3.38,0
k,13,0.2,0
k,14,5.78,1.42
a,1,2,5,14
a,2,3,6,5
a,3,4,7,6
a,5,6,9,8
a,8,9,12,11
a,9,10,13,12
arsymm,x,all
a,4,7,22,21
a,7,10,27,22
a,10,13,28,27
VEXT,all, , ,0,0,4,,,,
asel,s,loc,y,1.6
VEXT,all, , ,0,0.1,0,,,,
px=1.2!(0.7~1.6)
py=1.7
pz=1.8
allsel
wpoff,px,py,pz
VSBW,all
wpoff,,,0.23
VSBW,all
wpro,,,90.
vsel,s,loc,y,1.35,2
VSBW,all
wpoff,,,-0.2
VSBW,all
wpoff,,,-0.1
VSBW,all
wpoff,,,-0.2
VSBW,all
wpoff,,,-1.3
VSBW,all
wpoff,,,-0.2
VSBW,all
wpoff,,,-0.1
VSBW,all
wpoff,,,-0.2
VSBW,all
allsel
VATT,1, ,1,0
lsel,s,length,,0.1
lesize,all,,,3,,,,,1
allsel
lsel,s,length,,0.18
lesize,all,,,3,,,,,1
allsel
lsel,s,length,,0.25
LESIZE,all, , ,3,, , , ,1
allsel
lsel,s,length,,1.13
LESIZE,all, , ,10,, , , ,1
allsel
lsel,s,length,,0.22
LESIZE,all, , ,4,, , , ,1
allsel
!x direction
lsel,s,length,,2
lsel,r,loc,y,1.0,1.5
lesize,all,,,10,2,,,,1
allsel
lsel,s,length,,2.001
lsel,r,loc,y,1.6,1.7
lesize,all,,,10,0.5,,,,1
allsel
lplot
lsel,s,length,,0.4
lesize,all,,,6,,,,,1
allsel
lsel,s,length,,3.18
lesize,all,,,15, ,,,,1
allsel
!z direction
lsel,s,length,,pz
lesize,all,,,20,0.5,,,,1
allsel
lsel,s,length,,0.23
lesize,all,,,8,,,,,1
allsel
lsel,s,length,,1.97
lesize,all,,,20,0.5,,,,1
allsel
!顶板及铺装层切割生成新宽度
b1=3.18+0.2-px
b2=px-0.5-0.2
b3=1.8-px-0.2
b4=3.18-b3-0.5
!lsel,s,loc,x,px-0.5,px
lsel,s,length,,0.2
lesize,all,,,8,,,,,1
allsel
lsel,s,length,,b1
lesize,all,0.4/5,,,,,,,1
allsel
lsel,s,length,,b2
lesize,all,0.4/5,,,,,,,1
allsel
lsel,s,length,,b3
lesize,all,0.4/5,,,,,,,1
allsel
lsel,s,length,,b4
lesize,all,0.4/5,,,,,,,1
allsel
vmesh,all
!加载
asel,s,area,,240,374,134
SFA,all,1,PRES,0.707e6
allsel
asel,s,area,,420,466,46
SFA,all,1,PRES,0.707e6
allsel
lsel,s,loc,y,0
lsel,r,loc,z,0
dl,all,,uy
dl,all,,uz
allsel
lsel,s,loc,y,0
lsel,r,loc,z,4
dl,all,,uy
dl,all,,uz
allsel
finish
[ 本帖最后由 fzl9708 于 2007-1-11 15:07 编辑 ] |