Ansys节点编号提取

!Getthecoordinatesofeachnode!Getthenodelistofeachelement!By:LiuXiaoqin([e-mail]),atnuaa,*get,nodenum,node,,num,max!获得节点的数目*dim,nodepos,array,nodenum,3!nodepos存放节点的坐标*do,i,1,nodenum,1*get,nodepos(i,1),node,i,loc,x!获得节点的X坐标*get,nodepos(i,2),node,i,loc,y*get,nodepos(i,3),node,i,loc,z*enddo*get,elemnum,elem,,num,max!得到单元的总数目*dim,elemlist,array,elemnum,3!单元包含的节点列表，指定每个单元包含3个节点，根据情况修改*do,i,1,elemnum,1*do,ii,1,3,1*get,elemlist(i,ii),elem,i,node,ii!获得节点编号*enddo*enddo*cfopen,node,txt!打开文件，写入数据*vwrite,sequ,nodepos(1,1),nodepos(1,2)(F15.5,3x,F15.5,3x,F15.5)*cfclos*cfopen,elme,txt!打开文件，写入数据*vwrite,sequ,elemlist(1,1),elemlist(1,2),elemlist(1,3)(F15.0,3x,F15.0,3x,F15.0,3x,F15.0)*cfclos