!提取變形後的節點座標寫入檔案

allsel !選擇所有

*cfopen,;r_out;,;txt;, !定義輸出檔名

*get,minnum,node,0,num,min !取最小節點編號

*get,enum,node,0,count !取節點數目

*do,i,1,enum,1 !迴圈開始

*vwrite,minnum,NX(minnum),NY(minnum),NZ(minnum),ux(minnum),uy(minnum),uz(minnum)

!將節點座標及變形值寫入檔案中

(F8.0,tl1,; ;,;(;,f6.4,;,;,f6.4,;,;,f6.4,;);,; x;,f15.12,;x y;,f15.12,;y z;,f15.12)

minnum=ndnext(minnum) !取下一個節點

*enddo !迴圈結束