!请看看是否是你需要的方法
/CLEAR
/FILNAME, EXAMPLE8
/PREP7
ET,1,PLANE42
ET,2,SOLID45
MP,EX,1,2E11
MP,PRXY,1,0.3
RPR4, 6, 0, 0, 0.01
K,7,0,0,0
K,8, 0,0,0.05
K,9, 0,0.1,0.05
LSTR,7,8
LSTR,8,9
LFILLT, 7, 8, 0.015
LSTR,1,4
ASBL, 1, 10
LESIZE,2,,,3
LESIZE,3,,,3
LESIZE,4,,,3
LESIZE,7,0.01
LESIZE,8,0.01
LESIZE,9,0.01
MSHAPE,0
MSHKEY,1
AMESH,ALL
VDRAG, ALL,,,,,,7,9,8
ACLEAR, 2,3,1
FINISH
/SOLU
DA,2,ALL
DA,3,ALL
KSEL,S,,,24,29,1
FK,ALL,FX,100
KSEL,ALL
KSEL,S,,,18,23,1
FK,ALL,Fy,100
KSEL,ALL
SOLVE
SAVE
FINISH
/POST1
/VIEW,1,1,1,1
nsel,s,loc,y,0.02,0.1
cm,nnn1,node
PRNLD, , ,ALL
NFORCE,ALL
*GET,nnn1_fx, FSUM, 0, Item,fx
*GET,nnn1_fy, FSUM, 0, Item,fy
*GET,nnn1_fz, FSUM, 0, Item,fz
nsel,s,loc,z,0.005,0.1
cm,nnn2,node
PRNLD, , ,ALL
NFORCE,ALL
*GET,nnn1_fx, FSUM, 0, Item,fx
*GET,nnn1_fy, FSUM, 0, Item,fy
*GET,nnn1_fz, FSUM, 0, Item,fz
alls
fini |