Output Un-compensite Point Feature to TEXT file/将未补偿测量点输出到文本文件的宏

$$ Function: Output Un-compensite Point Feature to TEXT file, XYZ lies in seprate lines;
$$ Created By: Fu'Haixin , External-array.com.cn ; 2017/2/27
M(PT2TXT) = MACRO/'PtLabel'
 PRCOMP/OFF
 
 DID(GearTxt) = DEVICE/STOR,'C:\GearTXT\PitchPoint.txt'
 OPEN/DID(GearTXT),DIRECT,OUTPUT,APPEND 
  DECL/LOCAL,DOUBLE,Pitch_X, Pitch_Y, Pitch_Z
  Pitch_X = OBTAIN/ FA( PtLabel)[1], 2
  Pitch_Y = OBTAIN/ FA( PtLabel)[1], 3
  Pitch_Z = OBTAIN/ FA( PtLabel)[1], 4
  WRITE/DID(GearTXT), Pitch_X
  WRITE/DID(GearTXT), Pitch_Y
  WRITE/DID(GearTXT), Pitch_Z
 CLOSE/DID(GearTXT)
 
 PRCOMP/ON
ENDMAC