24小时热门版块排行榜    

查看: 602  |  回复: 0

yong0119

木虫 (正式写手)

[交流] Ansys导出txt格式应变的程序

*cfopen,strain,ist
*get,nelm,elem,0,count
*dim,ndlst,array,nelm,4
*dim,inistrain,array,nelm,6
*dim,elems,array,nelm
*dim,elp,array,4
elp(1)=1
elp(2)=2
elp(3)=3
elp(4)=4
*get,el,elem,0,num,min
*do,i,1,nelm,1
*vwrite,
(1x,"/dtyp,epel"
*vwrite,
(1x,"/csys,0"
elems(i)=el
*do,j,1,4,1
ndlst(i,j)=nelem(el,j)
*get,inistrain(i,1),node,ndlst(i,j),epel,x
*get,inistrain(i,2),node,ndlst(i,j),epel,y
*get,inistrain(i,3),node,ndlst(i,j),epel,z
*get,inistrain(i,4),node,ndlst(i,j),epel,xy
*get,inistrain(i,5),node,ndlst(i,j),epel,yz
*get,inistrain(i,6),node,ndlst(i,j),epel,xz
a1=inistrain(i,1)
a2=inistrain(i,2)
a3=inistrain(i,3)
a4=inistrain(i,4)
a5=inistrain(i,5)
a6=inistrain(i,6)
a7=elp(j)
*vwrite,el,chrval(a7),'1','1',a1,a2,a3,a4,a5,a6
(9x,f6.0,tl1,',',13x,a1,',',13x,a1,',',13x,a1,',',2x,f14.11,',',2x,f14.11,',',2x,f14.11,',',2x,f14.11,',',2x,f14.11,',',2x,f14.11)
*enddo
el=elnext(el)
*enddo
*cfclos
回复此楼

» 猜你喜欢

欢迎失效分析案例咨询
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

相关版块跳转 我要订阅楼主 yong0119 的主题更新
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见