将Ansys计算结果输出到Tecplot的完整命令流【转】

Chelsea

下面的命令流适用于六面体八节点单元的情况，其他类型单元只需稍作修改即可！命令流读取的是节点的温度。

1. /post1
   
2. file,Jobname,rst                       !指明从哪一个结果文件中读取数据
   
3. *get,NodeNum,NODE,0,COUNT                    !得到模型的所有节点数
   
4. *get,nd,NODE,0,NUM,MIN                       !得到模型的最小节点编号
   
5. *dim,nodes,array,NodeNum                   !定义一个存储节点的数组
   
6. *dim,xyz,array,NodeNum,3                   !定义一个存储节点坐标的数组
   
7. *dim,NodeTemp,array,NodeNum                !定义一个存储节点的数组
   
8. set,4,1                                      !读入第四载荷步、第一个子步的结果
   
9. *do,i,1,NodeNum,1
   
10. nodes(i)=nd                            !将节点编号存储在nodes数组中
    
11. xyz(i,1)=NX(nd)                          !在xyz(i,1)中存储节点的X坐标
    
12. xyz(i,2)=NY(nd)                          !在xyz(i,1)中存储节点的Y坐标
    
13. xyz(i,3)=NZ(nd)                          !在xyz(i,1)中存储节点的Z坐标
    
14. *Get,NodeTemp(i),NODE,nodes(i),TEMP
    
15. nd=NDNEXT(nd)                         !取得下一个节点编号
    
16. *enddo
    
17. *get,ElementNum,ELEM,0,COUNT                !得到模型的所有单元数
    
18. *get,el,ELEM,0,NUM,MIN                      !得到模型的最小单元编号
    
19. *dim,elems,array,ElementNum                !定义一个存储单元的数组
    
20. *dim,ndlst,array,ElementNum,8                 !定义一个存储节点坐标的数组
    
21. *do,i,1,ElementNum,1
    
22. elems(i)=el                            !将单元编号存储在elems数组中
    
23. *do,j,1,8,1
    
24.        ndlst(i,j)=NELEM(el,j)             !将单元对应的节点编号存储在ndlst数组中
    
25. *enddo
    
26. el=ELNEXT(el)                             !取得下一个单元编号
    
27. *enddo
    
28. *cfopen,mesh,dat                            !输出的文件名为：mesh.dat
    
29. !写TecPlot文件的文件头
    
30. *vwrite
    
31. ('TITLE=Ansys Temperature Analysis')
    
32. !写变量名
    
33. *vwrite
    
34. ('VARIABLES="X","Y","Z","Temp"')
    
35. !写节点数和单元数
    
36. *vwrite,NodeNum,ElementNum
    
37. ('ZONE n='f6.1,' e='f6.1,' f=fepoint',' et=brick')
    
38. !写节点的坐标和温度值
    
39. *vwrite,xyz(1,1),xyz(1,2),xyz(1,3),NodeTemp(1)
    
40. (4f12.6)
    
41. 
    
42. !写一个空行
    
43. *vwrite
    
44. (' ')
    
45. !写各单元对应的节点号
    
46. *vwrite,ndlst(1,1),ndlst(1,2),ndlst(1,3),ndlst(1,4),ndlst(1,5),ndlst(1,6),ndlst(1,7),ndlst(1,8)
    
47. (8f6.0)
    
48. !关闭文件
    
49. *CFCLOSE
    
50. finish

复制代码

将上述命令流拷贝到记事本中，然后以文件名“Ansys2Tecplot.inp”另存到Ansys的工作路径下。在Ansys中输入如下命令即可：/input,Ansys2Tecplot,inp

hhzhangfuxing

这位前辈：
    我非常敬重您在分享知识方面的无私！
    晚辈不才，想请教您一个问题：我想把fluet中计算的压力数据导入ansys中进行应力分析。我在fluent中是这样操作的：file/export/file type Tecplot/write，然后ansys中file /read input from/选中fluent输出的文件，然后就显示错误，您能告诉我这里有什么问题，该怎么解决吗？
    此致！敬礼！