校准依据《JJF1064-2010坐标测量机校准规范》（基本等同于ISO10360）标准器：尺寸实物标准器、检测球、二维靶标校准项目： （1）尺寸测量误差校准 对于三维测头，通过比较5个不同长度尺寸实物标准器的校准值和指示值，评价坐标测量机是否符合规定的最大允许示值误差MPEE。5个尺寸实物标准器放在测量空间的7个不同的方向或位置，各测量3次，共进行105次测量。（2）探测误差校准 通过确定测量点到最小二乘拟合球球心距离的范围，评价三维探测误差P是否符合规定的最大允许探测误差MPEP。DMISMN/'Start Template',05.2FILNAM/'Start Template',05.2DV(0)=DMESWV/'83,1,1,20531'UNITS/MM,ANGDECDECPL/ALL,DEFALTV(0)=VFORM/ALL,PLOTDISPLY/TERM,V(0),STOR,DMIS,V(0)SNSET/APPRCH,5SNSET/RETRCT,5SNSET/SEARCH,5SNSET/CLRSRF,15SNSET/DEPTH,0MODE/MAN$$DMISMN/''$$============================================================$$$ PROGRAM TO ME$ASURE GAUGE BLOCK $$$ ACCORDING THE ISO 10360-2 RUL$ES WITH RESTRICTIONS $$$ $ $$$ THE REPETITION WILL NOT BE DONE OF A GAUGE $$$$$IS OUT OF TOLERANCE $$$ $ $$$ LAST MODIFICATION: 18/12/2001 $ $$$===============================================$=============$$DECLARATION OF THE VARIABLES$$DONT'T MODIFY OR DELETE THIS SECTIONRECALL/SA(A0.0_B0.0_L90D5)$$ DECL/DOUBLE,BLOCCO[5]SNSLCT/SA(A0.0_B0.0_L90D5)DECL/DOUBLE,BLOCCOJDECL/CHAR,20,BLOCCOJSDECL/DOUBLE,BLOCCO1DECL/DOUBLE,BLOCCO2DECL/DOUBLE,BLOCCO3DECL/DOUBLE,BLOCCO4DECL/DOUBLE,BLOCCO5$$ DECL/DOUBLE,MISURATO[3]DECL/DOUBLE,MISURATO1DECL/DOUBLE,MISURATO2DECL/DOUBLE,MISURATO3$$ DECL/DOUBLE,ERRORE[3]DECL/DOUBLE,ERRORE1DECL/DOUBLE,ERRORE2DECL/DOUBLE,ERRORE3DECL/DOUBLE,ALTEZZADECL/DOUBLE,LARGHEZZADECL/DOUBLE,PRIMODECL/DOUBLE,SECONDODECL/DOUBLE,VELMISDECL/DOUBLE,VELPOSDECL/DOUBLE,ACCMISDECL/DOUBLE,ACCPOSDECL/DOUBLE,FLYRADDECL/DOUBLE,PREHITDECL/DOUBLE,POSTHITDECL/DOUBLE,RETURNDECL/DOUBLE,XSAFEDECL/DOUBLE,ZSAFEDECL/DOUBLE,XPTO1DECL/DOUBLE,YPTO1DECL/DOUBLE,ZPTO1DECL/DOUBLE,XPTO2DECL/DOUBLE,YPTO2DECL/DOUBLE,ZPTO2DECL/DOUBLE,MISDECL/DOUBLE,TOLLDECL/DOUBLE,PO1XDECL/DOUBLE,PO1YDECL/DOUBLE,PO1ZDECL/DOUBLE,PO2XDECL/DOUBLE,PO2YDECL/DOUBLE,PO2ZDECL/DOUBLE,TRASX DECL/INTGR,NUMMISUREDECL/INTGR,NUMBLOCCHIDECL/INTGR,IDECL/INTGR,JDECL/INTGR,MANALLDECL/CHAR,20,MANALL1DECL/INTGR,COMPTEMPDECL/INTGR,TEMPXDECL/INTGR,TEMPYDECL/INTGR,TEMPZ DECL/CHAR,64,FILENAMEDECL/CHAR,2,RISULTATODECL/CHAR,64,DAFILE $$INITIAL SETTINGS AND MACHINE PARAMETERSUNITS/MM, ANGDEC, TEMPCPRCOMP/OFFFINPOS/OFF$$ RAPID/0.7500D(MAC) = DATSET/MCSWKPLAN/XYPLANSNSET/CLRSRF, 0.0000SNSET/DEPTH, 0.0000DECPL/ALL,4MODE/MAN $$THERMAL COMPENSATION$$ TEXT/QUERY,(COMPTEMP),10,N,L,'DO YOU WANT TO ENABLE THE THERMAL COMPENSAT$ION? (1=YES 0=NO)'$$ IF/(COMPTEMP.LE.0.0)$$ TECOMP/OFF$$ ELSE$$ TECOMP/ON,11.4$$ ENDIF $$ READING PARAMETER FROM "PARAMETRI.TXT"$$ THIS FILE IS IN C:\ISO10360DID(PARAMETRI)=DEVICE/STOR,'C:\ISO10360\PARAMETRI.TXT'OPEN/DID(PARAMETRI),DIRECT,INPUT $$HEADERREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILE $$BLOCK DIMENSIONALTEZZA=ASSIGN/9LARGHEZZA=ASSIGN/35 READ/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),NUMMISUREREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),NUMBLOCCHI READ/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),BLOCCO1READ/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),BLOCCO2READ/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),BLOCCO3READ/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),BLOCCO4READ/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),BLOCCO5 $$ACCURACYREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),PRIMOREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),SECONDO $$MOTIONREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),VELPOSREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),VELMISREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),ACCPOS $$$$ FEDRAT/MESVEL,PCENT,0.2$$ FEDRAT/POSVEL, PCENT,1$$$$ ACLRAT/MESACL,PCENT,0.2$$ ACLRAT/POSACL, PCENT,1$$$$ FLYRAD=ASSIGN/10$$ FLY/FLYRAD $$MEASURING PARAMETRSREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),PREHITREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),RETURNREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),DAFILEREAD/DID(PARAMETRI),POSTHIT SNSET/APPRCH, 6SNSET/SEARCH, 6SNSET/RETRCT, 6 CLOSE/DID(PARAMETRI) $$SAFE CLEARANCE FOR THE GAUGE BLOCKXSAFE=ASSIGN/15ZSAFE=ASSIGN/70 $$SELECTING THE PROBEDECL/CHAR,20,TASTATORE$$ DECL/INTGR,TT$$ TEXT/QUERY,(TASTATORE),256,AN,L,'ENTER THE PROBE FOR THE MEASURE'TASTATORE=PROMPT/'ENTER THE PROBE FOR THE MEASURE[1 TO 6]',40,1TASTATORE=ASSIGN/CONCAT(TASTATORE)RECALL/SA(TASTATORE)SNSLCT/SA(TASTATORE) $$REQUEST TO PERFORM MANUAL ALIGNMENT$$ TEXT/QUERY,(MANALL),10,N,L,'PERFORM THE MANUAL ALIGNMENT? (1=YES 2=NO)'MANALL=PROMPT/'PERFORM THE MANUAL ALIGNMENT? (1=YES 2=NO)',40,1$$ MANALL1=ASSIGN/CONCAT(MANALL1)IF/(MANALL.EQ.2)JUMPTO/(NOMANALL)ENDIF$$MANUAL ALIGNMENT$$ TEXT/MAN,'MEASURE THE FRONT PLANE OF THE LONGEST BLOCK FOR Z DIRECTION 'F(PIANOZ)=FEAT/PLANE,CART,0,0,0,0,0,1MEAS/PLANE,F(PIANOZ),3ENDMES DATDEF/FA(PIANOZ),DAT(A)D(MANTEMP)=DATSET/DAT(A),ZDIR,ZORIG $$ TEXT/MAN,' '$$ TEXT/MAN,'MEASURE THE TOP PLANE OF THE LONGEST BLOCK FOR -Y DIRECTION' $$ F(PLANEY)=FEAT/PLANE,CART,0,0,0,0,1,0$$ MEAS/PLANE,F(PLANEY),3$$ ENDMES F(LINE0X)=FEAT/LINE,UNBND,CART,0,0,0,1,0,0,0,1,0MEAS/LINE,F(LINE0X),2ENDMES DATDEF/FA(LINE0X),DAT(B)D(MANTEMP)=DATSET/DAT(A),ZDIR,ZORIG,DAT(B),XDIR,YORIG $$ TEXT/MAN,' '$$ TEXT/MAN,'MEASURE THE POINT FOR THE X AXIS ORIGIN X'F(ORIGINEX)=FEAT/POINT,CART,0,0,0,-1,0,0MEAS/POINT,F(ORIGINEX),1PTMEAS/CART,0,0,0,-1,0,0ENDMES DATDEF/FA(ORIGINEX),DAT(C)D(MANTEMP)=DATSET/DAT(A),ZDIR,ZORIG,DAT(B),XDIR,YORIG,DAT(C),XORIG PRCOMP/OND(MANTEMP)=TRANS/XORIG,PRBRAD,YORIG,PRBRAD,ZORIG,-PRBRADSAVE/D(MANTEMP) $$POINT FOR OUTPUT FILERECALL/D(MAC)PO1X=OBTAIN/FA(ORIGINEX),3PO1Y=OBTAIN/FA(ORIGINEX),4PO1Z=OBTAIN/FA(ORIGINEX),5 $$POINT FOR OUTPUT FILEF(PO2)=FEAT/POINT,CART,0,0,0,1,0,0CONST/POINT,F(PO2),MOVEPT,FA(ORIGINEX),BLOCCO1,0,0PO2X=OBTAIN/FA(PO2),3PO2Y=OBTAIN/FA(PO2),4PO2Z=OBTAIN/FA(PO2),5 $$CNC MODE(NOMANALL)MODE/PROG,MANRECALL/D(MANTEMP) $$OPENING THE OUTPUT FILEFILENAME=PROMPT/'ENTER THE NAME OF THE DATA FILE WITHOUT EXTENSION'FILENAME=ASSIGN/CONCAT(FILENAME,'.TXT')FILENAME=ASSIGN/CONCAT('C:\ISO10360\DATI\',FILENAME)DID(FILEDATI)=DEVICE/STOR,FILENAMEOPEN/DID(FILEDATI),DIRECT,OUTPUT,OVERWR $$HEADERWRITE/DID(FILEDATI),'"COORDINATES OF THE POINTS PO1 AND PO1 OF THE LONGEST GAUG$E IN CMM SYSTEM"'WRITE/DID(FILEDATI),'"PO1" ', PO1X, ' ', PO1Y, ' ', PO1Z, ' 'WRITE/DID(FILEDATI),'"PO2" ', PO2X, ' ', PO2Y, ' ', PO2Z, ' 'WRITE/DID(FILEDATI),'" "'WRITE/DID(FILEDATI),'"=========================================================$========================"'WRITE/DID(FILEDATI),'"L.BPP" "LMIS1" "LMIS2" "LMIS3" " " "E" "DELTAL1" "DELTAL2$" "DELTAL3" "F.TOLL"'WRITE/DID(FILEDATI),'"=========================================================$========================"'WRITE/DID(FILEDATI),'" "' $$$$OUTPUT ON TERMINAL$$ V(UGO)=VFORM/ALL$$ DISPLY/TERM,V(UGO),STOR,V(UGO) $$MEASURING ALL BLOCKS DO/J,1,NUMBLOCCHI,1$$ BLOCCOJS=ASSIGN/CONCAT('BLOCCO',STR(J))$$ TEXT/OUTFIL,CONCAT('BLOCCO MISURA : ' , STR(BLOCCO[J])) $$POINT FOR THE DISTANCEXPTO1=ASSIGN/0YPTO1=ASSIGN/LARGHEZZA/2ZPTO1=ASSIGN/ALTEZZA/2 $$ XPTO2=ASSIGN/BLOCCO[J]IF/(J .EQ. 1)XPTO2=ASSIGN/BLOCCO1ENDIFIF/(J .EQ. 2)XPTO2=ASSIGN/BLOCCO2ENDIFIF/(J .EQ. 3)XPTO2=ASSIGN/BLOCCO3ENDIFIF/(J .EQ. 4)XPTO2=ASSIGN/BLOCCO4ENDIFIF/(J .EQ. 5)XPTO2=ASSIGN/BLOCCO5ENDIFYPTO2=ASSIGN/LARGHEZZA/2ZPTO2=ASSIGN/ALTEZZA/2 $$CNC ALIGNMENTMIS=ASSIGN/4 TEMPX=ASSIGN/-XSAFEGOTO/TEMPX,0,ZSAFE F(PIANOZ)=FEAT/PLANE,CART,0,0,0,0,0,1MEAS/PLANE,F(PIANOZ),4PTMEAS/CART,MIS,MIS,0,0,0,1TEMPZ=ASSIGN/LARGHEZZA-MISTEMPX=ASSIGN/XPTO2-MISPTMEAS/CART,MIS,TEMPZ,0,0,0,1GOTO/MIS,TEMPZ,ZSAFEGOTO/TEMPX,TEMPZ,ZSAFEPTMEAS/CART,TEMPX,TEMPZ,0,0,0,1PTMEAS/CART,TEMPX,MIS,0,0,0,1ENDMES DATDEF/FA(PIANOZ),DAT(A)D(TEMP)=DATSET/DAT(A),ZDIR,ZORIGTEMPY=ASSIGN/-MISGOTO/TEMPX,TEMPY,MIS F(RETTAX)=FEAT/LINE,UNBND,CART,0,0,0,1,0,0,0,-1,0MEAS/LINE,F(RETTAX),2PTMEAS/CART,TEMPX,0,TEMPY,0,-1,0 GOTO/TEMPX,TEMPY,ZSAFEGOTO/MIS,TEMPY,ZSAFE PTMEAS/CART,MIS,0,TEMPY,0,-1,0ENDMES DATDEF/FA(RETTAX),DAT(B)D(TEMP)=DATSET/DAT(A),ZDIR,ZORIG,DAT(B),-XDIR,YORIG GOTO/TEMPY,TEMPY,TEMPY F(ORIGINEX)=FEAT/POINT,CART,0,0,0,-1,0,0MEAS/POINT,F(ORIGINEX),1PTMEAS/CART,0,MIS,TEMPY,-1,0,0ENDMES DATDEF/FA(ORIGINEX),DAT(C)D(TEMP)=DATSET/DAT(A),ZDIR,ZORIG,DAT(B),-XDIR,YORIG,DAT(C),XORIG $$MEASURES $$TOLERANCE FOR THE BLOCK$$ TOLL=ASSIGN/PRIMO+(SECONDO*BLOCCO[J]/1000)IF/(J .EQ. 1)TOLL=ASSIGN/PRIMO+(SECONDO*BLOCCO1/1000)ENDIFIF/(J .EQ. 2)TOLL=ASSIGN/PRIMO+(SECONDO*BLOCCO2/1000)ENDIFIF/(J .EQ. 3)TOLL=ASSIGN/PRIMO+(SECONDO*BLOCCO3/1000)ENDIFIF/(J .EQ. 4)TOLL=ASSIGN/PRIMO+(SECONDO*BLOCCO4/1000)ENDIFIF/(J .EQ. 5)TOLL=ASSIGN/PRIMO+(SECONDO*BLOCCO5/1000)ENDIF $$MEASURES AND OUTPUTDECL/DOUBLE,TEMPDZDO/I,1,NUMMISURE,1TEMPX=ASSIGN/-XSAFEGOTO/TEMPX,YPTO1,ZSAFE TEMPDZ=ASSIGN/-ZPTO1F(PTO1)=FEAT/POINT,CART,XPTO1,YPTO1,TEMPDZ,-1,0,0MEAS/POINT,F(PTO1),1PTMEAS/CART,XPTO1,YPTO1,TEMPDZ,-1,0,0ENDMES GOTO/TEMPX,YPTO1,ZSAFETEMPX=ASSIGN/XPTO2+XSAFEGOTO/TEMPX,YPTO2,ZSAFE TEMPDZ=ASSIGN/-ZPTO2F(PTO2)=FEAT/POINT,CART,XPTO2,YPTO2,TEMPDZ,1,0,0MEAS/POINT,F(PTO2),1PTMEAS/CART,XPTO2,YPTO2,TEMPDZ,1,0,0ENDMES GOTO/TEMPX,YPTO2,ZSAFE$$ T(LUNGBLOCCO)=TOL/DISTB,NOMINL,BLOCCO[J],-TOLL,TOLL,XAXISDECL/DOUBLE,TEMPTOLLTEMPTOLL=ASSIGN/-TOLLBLOCCO1=ASSIGN/90T(LUNGBLOCCO)=TOL/DISTB,NOMINL,BLOCCO1,-0.0025,0.0025,XAXISOUTPUT/FA(PTO1),FA(PTO2),TA(LUNGBLOCCO)ENDDO DISPLY/OFFPAUSEENDFIL来源：山涧果子
