分享一个施加扭矩的例子

/prep7
k,,
k,,20
k,,20,5
k,,50,5
k,,50,-15
k,,,-15
l,1,2
l,2,3
l,3,4
l,4,5
l,5,6
l,6,1
al,all
vrotat,1,,,,,,6,5
wpoff,,-15,15
rectng,5,10,-2,2
vdrag,25,,,,,,8
csys,4
vsymm,z,5,,,,,1
vadd,1,2,3,4
numcmp,all
vsbv,2,1
wpcsys,,0
et,1,95
mp,ex,1,20000
mp,nuxy,1,0.3
ET,2,21
KEYOPT,2,3,0
R,1,1E-6,1E-6,1E-6,1E-6,1E-6,1E-6
wprota,,,90
wpoff,,,10
vsbw,all
wpoff,,,-5
vsbw,1
wpoff,,,15
vsbw,2
aadd,1,2,7,12,17
aadd,4,9,14,19
aadd,23,29
aadd,30,35
aadd,5,10,15,20
allsel
numcmp,all
wpcsys,,0
vglue,all
numcmp,all
k,,10
k,,60
l,33,34
lsel,s,,,5,17,6
lsel,a,,,21
lgen,2,all,,,-10
allsel
adrag,55,56,57,58,,,54
asel,s,,,28,31,
cm,aa,area
allsel
vsba,4,aa,
adrag,29,35,37,40,41,,54
asel,s,,,2
asel,a,,,28,31,
cm,aaa,area
allsel
vsel,s,,,2,5,3
vsba,all,aaa
allsel
adrag,33,34,38,42,43,,44
asel,s,,,1,2
asel,a,,,18,19
asel,a,,,28
cm,aaaa,area
allsel
vsba,3,aaaa
asel,s,,,49
lsla
lesize,all,2
allsel
asel,s,,,37,55,18
lsla
lesize,all,2
allsel
lesize,2,2
lsel,s,,,39,61,22
lsel,a,,,78
lesize,all,2
allsel
asel,s,,,26
lsla
lesize,all,2
allsel
vsweep,all
K,,50,-15
type,2
real,1
kmesh,38
nsel,s,loc,x,49.8,50.2
CERIG,35975,all,uxyz, , , ,
allsel
/SOLU
nsel,s,loc,x
d,all,all
allsel
f,35975,mx,10e5
solve