载入名义点
CNVFIL (FIL=/C/NOM.TXT)
测量实际点
MEPNT (NAM=ACT_PTS, CSY=REFR$CSY)
最佳拟合名义点和实际点
EXCHNG (NAM=NOM_PTS, MOD=MOV)
BFITPT (ACT=ACT_PTS, NOM=NOM_PTS, RES=RES, TRA=TRA, TYP=ALN)
根据拟合偏差平移坐标系
INVTRA (NEW=INVTRA, OLD=TRA)
TRACSY (NEW=CSY(2), TRA=INVTRA, OLD=CSY)
USECSY (NAM=CSY(2))
CPYOBJ (FRM=NOM_PTS, TO =MEAS_PTS, TYP=NPT, CNF=Y)
USEPRB (NAM=PRB(2))
MECOL (NAM=MEAS_PTS, CSY=CSY(2))
开始迭代
DO (NAM=I, BGN=1, END=3)
MECOL (NAM=MEAS_PTS, CSY=CSY(2))
BFITPT (ACT=MEAS_PTS, NOM=NOM_PTS, RES=RES, TRA=TRA)
INVTRA (NEW=INVTRA, OLD=TRA)
TRACSY (NEW=CSY(2), TRA=INVTRA, OLD=CSY(2))
ENDDO
OPEN (FIL=C:\BEFTCOORD.TXT, DEV=D1)
LISTING (DEV=D1)
CLOSE