Question

ansys *do 循环建模或批处理

!有效解决的请留支付宝另有随机金额红包相送
FINISH
/CLEAR
/FILN,L1fact
/TITLE,L1fact
/UNITS,SI
/PLOPTS,DATE,0
/REPLOT
t=10
Di=1000
Dio=Di+2*t
*do,L1,800,803,1
p=1
/PREP7
ET,1,shell181
MP,EX,1,2E5
MP,NUXY,1,0.3
SECT,1,SHELL,,
SECDATA,t,1,0.0,3
SECOFFSET,top
SECCONTROL,,,,,,,
K,1,0,
K,2,(Di/2),
K,3,(Di/2),L1
K,4,0,L1
L,1,2
L,2,3
L,3,4
arotat,2,,,,,,1,4,360,
smrtsize,1
AMESH,ALL
nsel,s,loc,y,0
d,all,uy
csys,5
nrotat,all
d,all,uz
csys,0
nsel,s,loc,y,L1
d,all,uy
csys,5
nrotat,all
d,all,uz
alls
sfa,all,1,pres,-p
/solu
antype,static
pstres,on
alls
solve
fini
/SOLU
ANTYPE,BUCKLE
BUCOPT,LANB,1
MXPAND,1
SOLVE
FINISH
/POST1
*cfopen,L1-fact,txt
*get,fPcr,active,,set,freq
*VWRITE,L1(1),FPCR(1)
*cfclose
*enddo

Answer 1

能给出原问题么
一堆的程序
没法看呀

追问

连续算一系列筒体长度的临界应力系数比如800mm到9000mm直径1000-2000-4000-8000 需要把结果直接导出到一个TXT中