模型建立
DIMENSIONS OF THE BLOCK
*SET,blkw,1
*SET,blkh,.5
*SET,blkt,.1
!LOCATION OF THE CYLINDER (HOLE)
*SET,cylx,.5
*SET,cyly,.25
!RADII OF THE CYLINDER .05,.08,.15
*dim,holrad,array,3,2,1
holrad(1,1)=.05
holrad(2,1)=.08
holrad(3,1)=.15
注:这里*SET,blkw,1可以直接写成 blkw = 1,*set和“=”的作用一致。
*do,count,1,3
fini
/prep7
*if,count,gt,1,then
vclear,all
vdele,all,,,1
*endif
cylrad=holrad(count,1)
BLOCK,0,blkw,0,blkh,0,blkt, !建立块体。
CYL4,cylx,cyly,cylrad, , , ,blkt !建立圆柱体。
VSBV,1,2 !用块体减去圆柱体形成有孔的块体。
模型求解
/SOLU
FLST,2,1,5,ORDE,1
FITEM,2,5
DA,P51X,ALL,
FLST,2,1,5,ORDE,1
FITEM,2,6
SFA,P51X,1,PRES,-1000
EQSLV,PCG,1E-6
solve
后处理自动输出应力云图,自动保存所需数据
模型求解后,通过/ANUM、/TSPEC、/TLAB命令定义输出图上的注释,如下图所示。
/post1
/ANUM ,0,1,-0.59026,-0.7 !注释位置,注释字体设置
/TSPEC, 15, 1.200, 1, 0, 0
/TLABEL,-0.947,-0.7,Cylinder Radius =%holrad(count,1)%
将最大主应力云图输出在屏幕上,并自动保存为.JPEG格式图片。
plnsol,s,1
/show,jpeg
plnsol,s,1
/show,close
/show,term
最大主应力通过*get命令提取并赋值给maxs1,储存在holrad数组的第二列中。*enddo是匹配初始的*do命令。
NSORT,S,1
*GET,maxs1,SORT, ,MAX
holrad(count,2)=maxs1
*enddo
最后,使用*cfopen命令创建holard.txt文件,使用*vwrite写入数据,holard.txt第一行写入'Radius'和'Stress'标签,这里4X指的在'Radius'和'Stress'之间有4个空格。然后将holrad(1,1),holrad(1,2)写入,holrad(1,1)对应的孔直径参数,holrad(1,2)对应存储的最大主应力值。最后通过*uilist,holrad.txt将该.txt文件在ANSYS界面上显示出来。
*CFOPEN,holrad,txt,
*vwrite
('Radius',4x,'Stress')
*VWRITE,holrad(1,1),holrad(1,2)
(f6.3,4x,f8.3)
*uilist,holrad.txt
总
本案例教程只研究了一个参数,可以完全扩展到多个变参数研究上。
全文结束,感谢阅读。