你的命令流应改为:
fini
/clea
/filname,bjml
/title,b-j-m-l-d-y !自定义变截面梁
/prep7
et,1,82
k,1
k,2,1
k,3,1,1
k,4,0,1
a,1,2,3,4
lsel,all
lesize,all,0,,4
amesh,all
secwrite,d,sect,,1
sectype,1,beam,mesh,
secoffset,cent,,,
secread,'d','sect',,mesh
asel,all
aclear,all
adele,all,,,1
k,1
k,2,1
k,3,1,2
k,4,0,2
a,1,2,3,4
lsel,all
lesize,all,0,,4
amesh,all
secwrite,e,sect,,1
sectype,2,beam,mesh,
secoffset,cent,,,
secread,'e','sect',,mesh
asel,all
aclear,all
adele,all,,,1
et,1,beam188
keyopt,1,8,2
keyopt,1,9,2
mp,ex,1,3.5e10
mp,dens,1,2549
mp,prxy,1,0.1667
sectype,3,taper
secdata,2,0.0
secdata,1,20.0
k, 1, 0, 0, 0
k, 2, 20, 0, 0
k, 3, 40, 0, 0
k, 4, 0, 1 0
lstr, 1, 2
lstr, 2, 3
lsel,s,,,1
latt,1,,1,,4,,3
lesize,all,,,1
lmesh,all
lsel,s,,,2
latt,1,,1,,4,,1
lesize,all,,,1
lmesh,all
/eshape,1 |