*SET,Nd,330100 !得初始的节点编号330100是我的开始节点编号,你的自己改下
*CFOPEN,Section_25,txt,
*DO,J,330100,333100,100
U_Xy=Nd !将节点列表放到数组第一列中
Nd=NDNEXT(Nd)+99 !读出下一个节点编号
*GET,Nx,NODE,J,LOC,X
*GET,Nx_delta,NODE,J,U,X
*SET,NNx,Nx+Nx_delta
*GET,Ny,NODE,J,LOC,Y
*GET,Ny_delta,NODE,J,U,Y
*SET,NNy,Ny+Ny_delta
*GET,Nz,NODE,J,LOC,Z
*GET,Nz_delta,NODE,J,U,Z
*SET,NNz,Nz+Nz_delta
*VWRITE,U_Xy,NNx,NNy,NNz, , , , , ,
(f9.0,t9,' ',f15.12,f20.12,f20.12)
*ENDDO
在COMMAND中加入上面的一段将得到一个的计算位移后的X,Y,Z坐标.保存在Section_25.txt中,但是这种提取的速度是有点慢,特别是如果你的节点编号又多又不连续. |