求教！！怎么加弯矩

一端约束，另一端加弯矩
/units,si
/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,0.17,,0
k,2,0.312,,0
k,3,0.368,,0
k,4,0.652,,0
k,5,0.708,,0
k,6,0.992,,0
k,7,1.048,,0
k,8,1.19,,0
k,9,0.17,,11.9
k,10,0.312,,11.9
k,11,0.368,,11.9
k,12,0.652,,11.9
k,13,0.708,,11.9
k,14,0.992,,11.9
k,15,1.048,,11.9
k,16,1.19,,11.9
k,100,0,0,0
k,101,0,0,11.9
a,1,2,10,9
a,3,11,10,2
a,3,4,12,11
a,4,5,13,12
a,5,6,14,13
a,6,7,15,14
a,7,8,16,15
GPLOT
vrotat,all,,,,,,100,101,360,2 !面旋转生成体


vglue,all
FLST,5,8,6,ORDE,8
FITEM,5,1
FITEM,5,3
FITEM,5,5
FITEM,5,7
FITEM,5,-8
FITEM,5,10
FITEM,5,12
FITEM,5,14
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CMSEL,S,_Y
!*
CMSEL,S,_Y1
VATT, 2, , 1, 0 !!指定材料属性
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
FLST,5,6,6,ORDE,6
FITEM,5,2
FITEM,5,4
FITEM,5,6
FITEM,5,9
FITEM,5,11
FITEM,5,13
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CMSEL,S,_Y
!*
CMSEL,S,_Y1
VATT, 1, , 1, 0 !!指定材料属性
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
/PNUM,MAT,1
/REPLOT
lsel,s,loc,z,0
lsel,a,loc,z,11.9
lsel,u,loc,y,0
LESIZE,all,,6, , , , , ,1
allsel
LSEL,S,LOC,Z,1,11
LESIZE,all,0.119, , , , , , ,1
esize,0.028
VSWEEP,all !!!!!生成网格
/solu
antype,static

nsel,s,loc,z,0
d,all,all