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                             !循環結束