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/27M(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/ONENDMAC