allsel                             !選擇所有
*cfopen,'r_out','txt',             !定義輸出文件名
*get,minnum,node,0,num,min         !取最小節(jié)點編號 
*get,enum,node,0,count             !取節(jié)點數目
*do,i,1,enum,1                     !循環(huán)開始
 *vwrite,minnum,NX(minnum),NY(minnum),NZ(minnum),ux(minnum),uy(minnum),uz(minnum) 

!將節(jié)點坐標及變形值寫入文件中
 (F8.0,tl1,' ','(',f6.4,',',f6.4,',',f6.4,')',' x',f15.12,'x y',f15.12,'y z',f15.12) 
 minnum=ndnext(minnum)             !取下一個節(jié)點
*enddo                             !循環(huán)結束