怎么在截面上加弯矩???????

bluecmy

希望高手给出需要的  命令


模型命令流如下
是沿z轴的一圆柱壳，截面z=0全约束，在z=10（另一端）加弯矩

/prep7  
et,1,solid45
MP,Ex,1,6.33e12
MP,prxy,1,0.3
   
MP,EX,2,0.021e12  
MP,PRXY,2,0.3  
k,1,1,,0   
k,2,1.1,,,0
k,3,1.2,,0
k,4,1,,10
k,5,1.1,0,10
k,6,1.2,0,10
k,7,0,0,0
k,8,0,0,10
a,1,2,5,4   
a,2,3,6,5
   
  
vrotat,all,,,,,,7,8,360,2               !面旋转生成体                             vglue,all
FLST,5,2,6,ORDE,2   
FITEM,5,2   
FITEM,5,4   
VSEL,S, , ,P51X
VATT,       2, ,   1,       0    !!
ALLSEL,ALL  
FLST,5,2,6,ORDE,2   
FITEM,5,1   
FITEM,5,3   
VSEL,S, , ,P51X
VATT,       1, ,   1,       0     !!
/PNUM,MAT,1
/REPLOT  
   
lsel,s,loc,z,0
lsel,a,loc,z,10
lsel,u,loc,y,0
LESIZE,all,,9, , , , , ,1
allsel

LSEL,S,LOC,Z,1,10
LESIZE,all,1, , , , , , ,1

esize,1
VSWEEP,all                          !!!!!生成网格

zhouxman

论坛置顶有一篇帖子是讲加扭矩的，我想可以借鉴一下那个刚性区域的思想
http://forum.vibunion.com/forum/thread-61472-1-8.html

bluecmy

收到，谢谢