请大家看看将ansys的结果导入tecplot中的程序错在哪里？

smallkin

我想用tecplot对ansys的结果进行后处理，画位移等值线。采用xinyixiaoju提供的命令流，如下：

/POST1
FILE, myfile,RST
*GET, NODENUM,NODE,0,COUNT
*GET, ND,NODE,0,NUM,MIN
*DIM, NODES,ARRAY,NODENUM
*DIM, XYZ,ARRAY,NODENUM,3
*DIM, SIGX,ARRAY,NODENUM
SET, LAST
*DO, I,1,NODENUM,1
    NODES(I)=ND  
    XYZ(I,1)=NX(ND)
    XYZ(I,2)=NY(ND)
    XYZ(I,3)=NZ(ND)
    *GET,DISPX(I),NODE,NODES(I),ux
    ND=NDNEXT(ND)
*ENDDO

*GET, ELEMENTNUM,ELEM,0,COUNT
*GET, EL,ELEM,0,NUM,MIN
*DIM, ELEMS,ARRAY,ELEMENTNUM  
*DIM, NDLST,ARRAY,ELEMENTNUM,4
*DO, I,1,ELEMENTNUM,1
    ELEMS(I)=EL
    *DO,J,1,4,1
        NDLST(I,J)=NELEM(EL,J)
    *ENDDO
    EL=ELNEXT(EL)
*ENDDO

*CFOPEN, MESH,DAT
!写TECPLOT文件的文件头
*VWRITE
('TITLE=Ansys to Tecplot')
!写变量名
*VWRITE
('VARIABLES="X","Y","Z","DISPX"')
!写节点数和单元数
*VWRITE, NODENUM,ELEMENTNUM
('ZONE N='F7.1,'   E='F6.1,'    F=FEPOINT','    ET=BRICK')
!写节点的坐标和位移值
*VWRITE, XYZ(1,1),XYZ(1,2),XYZ(1,3),DISPX(1)
(4F12.6)
!写一个空行
*VWRITE
(' ')
!写各单元对应的节点号
*VWRITE, NDLST(1,1),NDLST(1,2),NDLST(1,3),NDLST(1,4)
(4F6.0)
!关闭文件
*CFCLOSE
FINISH

[ 本帖最后由 smallkin 于 2008-8-20 16:21 编辑 ]

smallkin

利用该命令，可以成功的导出位移值，可是将其导入tecplot软件时，总是出现上面图片中显示的错误，究竟是哪一个环节出现了问题呢？请大家帮我看看，谢谢了。另外附上我的ansys模型文件：
/PREP7
BLC4, 0,0,3,1,-1
ET, 1,SOLID92
MP, EX,1,1E9
MP, PRXY,1,0.33
MP, DENS,1,2020
ALLSEL, ALL
ESIZE, 0.2
VSWEEP, 1
VMESH, 1
FINISH
/SOLU
ASEL, S,,,3,3,1
DA, ALL,ALL
ASEL, S,,,5,6,1
DA, ALL,UX
ACEL, 0,9.8,0
ALLSEL, ALL
SOLVE

[ 本帖最后由 smallkin 于 2008-8-20 16:05 编辑 ]

alwvke

可能格式不对吧，如果是节点号的话应该没小数点的