MODE/MAN
WKPLAN/XYPLAN
UNITS/MM,ANGDEC,TEMPC
DECL/CHAR,64,FILENAME,PONAME,FILE1,FILE2,AA
DECL/INTGR,I
DECL/REAL,PX,PY,PZ,PI,PJ,PK
FILENAME=PROMPT/'ENTER THE NAME OF THE DATA FILE WITHOUT EXTENSION(请输入一个数据文件名!)'
FILE1=ASSIGN/CONCAT('E:\',FILENAME,'.TXT')
DID(F1)=DEVICE/STOR,FILE1
OPEN/DID(F1),DIRECT,INPUT
MODE/PROG,MAN
DO/I,1,10,1
READ/DID(F1),PX,PY,PZ,PI,PJ,PK
PONAME=ASSIGN/CONCAT('PT00_',STR(I))
F(@PONAME)=FEAT/POINT,CART,PX,PY,PZ,PI,PJ,PK
MEAS/POINT,F(@PONAME),1
PTMEAS/CART,PX,PY,PZ,PI,PJ,PK
ENDMES
ENDDO
CLOSE/DID(F1)
ENDFIL