ansys变截面梁实例

tyhmhgh

以前以为ansys 不能作变截面梁,我试了很多次才成功的啊,
ansys变截面梁实例

/PREP7  
!*  
ET,1,BEAM188
!*  
k,,
k,,10   
l,1,2   
SECTYPE,   1, BEAM, HREC, , 0   
SECOFFSET, CENT
SECDATA,1,1,0.2,0.2,0.2,0.2,0,0,0,0
SECTYPE,   2, BEAM, HREC, , 0   
SECOFFSET, CENT
SECDATA,6,6,0.4,0.4,0.4,0.4,0,0,0,0
SECTYPE,3,TAPER, ,aaa   
SECDATA,   1,0,,,   
SECDATA,   2,10,,,  
!*  
CM,_Y,LINE  
LSEL, , , ,       1
CM,_Y1,LINE
CMSEL,S,_Y  
!*  
!*  
CMSEL,S,_Y1
LATT, , ,1, , , ,3  
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!*  
LMESH,       1  
!*  
/SHRINK,0   
/ESHAPE,1.0
/EFACET,1   
/RATIO,1,1,1
/CFORMAT,32,0   
/REPLOT
!*  
/AUTO,1
/REP,FAST   
/VIEW,1,1,1,1   
/ANG,1  
/REP,FAST   
eplot

k,,,5   
k,,10,5
l,3,4   
SECTYPE,   4, BEAM, I, , 0  
SECOFFSET, CENT
SECDATA,4,4,4,1,1,1,0,0,0,0
SECTYPE,   5, BEAM, I, , 0  
SECOFFSET, CENT
SECDATA,8,8,8,3,3,3,0,0,0,0
SECTYPE,6,TAPER, ,  
SECDATA,   4,,5,,   
SECDATA,   5,10,5,,
!*  
CM,_Y,LINE  
LSEL, , , ,       2
CM,_Y1,LINE
CMSEL,S,_Y  
!*  
!*  
CMSEL,S,_Y1
LATT, , ,1, , , ,6  
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!*  
FLST,5,1,4,ORDE,1   
FITEM,5,2   
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y   
!*  
LESIZE,_Y1, , ,8, , , , ,1  
!*  
LMESH,       2  
/USER,  1   
/VIEW,  1,  0.408078755595    ,  0.339935730057    ,  0.847298901606
/ANG,   1,  -9.23693062572  
/REPLO  
/VIEW,  1,  0.371132490453    ,  0.537915237176E-01,  0.927020575018
/ANG,   1,  -10.0941626339  
/REPLO  
/VIEW,  1,  0.629622126405    ,  0.365572716444E-01,  0.776040942110
/ANG,   1,  -9.52522437650  
/REPLO  
/VIEW,  1,  0.820264012855    ,  0.162284375885    ,  0.548480383021
/ANG,   1,  -8.00252215429  
/REPLO  
/VIEW,  1,  0.568016712306    ,  0.322295769691    ,  0.757286241378
/ANG,   1,  -12.7727707949  
/REPLO  
/VIEW,  1,  0.470471756793    ,  0.421655264927    ,  0.775153638719
/ANG,   1,  -14.8555090219  
/REPLO  
/VIEW,  1,  0.604168496404    ,  0.462376740739    ,  0.648990121324
/ANG,   1,  -9.74088733964  
/REPLO  
SECTYPE,   5, BEAM, I, , 0  
SECOFFSET, CENT
SECDATA,5,5,5,2,2,2,0,0,0,0
/REPLOT
/DIST,  1,   10.6233798881  
/ANG,   1,  -4.64088733964  
/REPLO  
/VIEW,  1,  0.597315757347    ,  0.377637264419    ,  0.707533732444
/ANG,   1,  -5.80643591147  
/REPLO  
SECTYPE,   4, BEAM, I, , 0  
SECOFFSET, CENT
SECDATA,2,2,2,0.4,0.4,0.4,0,0,0,0   
/REPLOT
/VIEW,  1,  0.507337530683    ,  0.176917435004    ,  0.843391279983
/ANG,   1,  -8.28911496061  
/REPLO  
/VIEW,  1,  0.323171208772    ,  0.117615410908    ,  0.939003186863
/ANG,   1,  -9.87178105152  
/REPLO  
/VIEW,  1,  0.301727197927    ,  0.214203929948    ,  0.929019576988
/ANG,   1,  -10.0379029365  
/REPLO  
/DIST,1,0.924021086472,1
/REP,FAST   
/DIST,  1,   8.26287300848  
/ANG,   1,  -11.5379029365  
/REPLO  
/VIEW,  1,  0.571043596358    ,  0.176057320118    ,  0.801818577417
/ANG,   1,  -8.13699319653  
/REPLO  
/VIEW,  1,  0.696379521268    ,  0.223325183403    ,  0.682042099006
/ANG,   1,  -6.14879574539  
/REPLO  
/VIEW,  1,  0.482487036112    ,  0.290728345554    ,  0.826246506241
/ANG,   1,  -9.91382602143  
/REPLO  
SECTYPE,   5, BEAM, I, , 0  
SECOFFSET, CENT
SECDATA,4,4,4,1,1,1,0,0,0,0
/REPLOT
/VIEW,  1,  0.598101999931    ,  0.254445120464    ,  0.759955050217
/ANG,   1,  -7.72088469274  
/REPLO  
/VIEW,  1,  0.307685384063    ,  0.590732096807E-01,  0.949652599813
/ANG,   1,  -11.1642103964  
/REPLO  
/DIST,  1,   9.25868226399  
/ANG,   1,  -7.86421039640  
/REPLO  
/UI,BEAM,OFF
eplot

zero966

感谢楼主啊！

tuchui

搂住能不能把log文件修改一下再发上来阿

w-y-q

看看这个，这是一个自定义截面形式的变界面梁
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

hcxcl

正在做变截面，感谢楼主！

shengge2000

说说你的方法呀？发一大堆命令，没有呀？讲一下你的思路呀？

lwd899

大家发的帖子都很好，但都是矩形截面的，这个做起来容易多了，我最近想做一个箱形截面的变截面梁，但是网格划分特别困难，很难使俩变截面的网格划分统一，所以一直很是苦恼，不知大家有什么好的方法和建议，或者实际的例子也可以，能发表出来供大家学习进步！

xtdtm

大家发的帖子都很好，但都是矩形截面的，这个做起来容易多了，我最近想做一个箱形截面的变截面梁，但是网格划分特别困难，很难使俩变截面的网格划分统一，所以一直很是苦恼，不知大家有什么好的方法和建议，或者实际 ...
lwd899 发表于 2007-9-9 20:34

楼上的问题解决没有？我现在也在做这个...可以交流一下么

ankou7

感谢楼主非常给力~~

jeev

要是有模拟变截面梁的例子就好了。

h821763491

感谢楼主！