校准依据：《JJF1064-2010坐标测量机校准规范》（基本等同于ISO10360）标准器：尺寸实物标准器，量块，机器检查规，检测球，二维靶标。校准项目： （1）尺寸测量误差校准 对于三维测头，通过比较5个不同长度尺寸实物标准器的校准值和指示值，评价坐标测量机是否符合规定的最大允许示值误差MPEE。5个尺寸实物标准器放在测量空间的7个不同的方向或位置，各测量3次，共进行105次测量。（2）探测误差校准 通过确定测量点到最小二乘拟合球球心距离的范围，评价三维探测误差P是否符合规定的最大允许探测误差MPEP。DMISMN/'Created by [山涧果子] on 星期六, 九月 15, 2018', 4.0UNITS/MM, ANGDEC, MMPSWKPLAN/XYPLANPRCOMP/ONTECOMP/ONFLY/1.000000MODE/PROG, MANSNSET/APPRCH, 2.000000SNSET/RETRCT, 2.000000SNSET/DEPTH, 0.000000SNSET/SEARCH, 10.000000SNSET/CLRSRF, 10.000000RECALL/D(MCS)SNSLCT/S(21_5_1_21_5_A90D0_B0D0)GEOALG/BF, LSTSQRGEOALG/ANGLB, COMPLMGEOALG/CIRCLE, LSTSQRGEOALG/ARC, LSTSQRGEOALG/PLANE, LSTSQR$$$$DECL/COMMON, CHAR, 256, KNPTC1KNPTC1 = PROMPT/'请输入测量轴向！'TEXT/OUTFIL, KNPTC1MODE/MAN$$ Following block is generated by Quick 321 alignmentDECL/COMMON, DOUBLE, DPROBEX, DPROBEY, DPROBEZPRCOMP/OFFF(PT1)=FEAT/POINT,CART,-396.864,32.175,428.648,-0.000,-1.000,-0.000F(PT2)=FEAT/POINT,CART,-393.431,32.175,420.868,-0.000,-1.000,-0.000F(PT3)=FEAT/POINT,CART,-368.566,32.175,427.241,-0.000,-1.000,-0.000F(PT4)=FEAT/POINT,CART,-397.036,37.688,432.024,-0.020,0.000,1.000F(PT5)=FEAT/POINT,CART,-373.089,37.085,432.496,-0.020,0.000,1.000F(PT6)=FEAT/POINT,CART,-402.094,38.316,426.513,-1.000,-0.000,-0.020MEAS/POINT, F(PT1), 1 PTMEAS/CART, -396.864,32.175,428.648,-0.000,-1.000,-0.000, APPRCH, 3.000000, RETRCT, 3.000000ENDMESMEAS/POINT, F(PT2), 1 PTMEAS/CART, -393.431,32.175,420.868,-0.000,-1.000,-0.000, APPRCH, 3.000000, RETRCT, 3.000000ENDMESMEAS/POINT, F(PT3), 1 PTMEAS/CART, -368.566,32.175,427.241,-0.000,-1.000,-0.000, APPRCH, 3.000000, RETRCT, 3.000000ENDMESMEAS/POINT, F(PT4), 1 PTMEAS/CART, -397.036,37.688,432.024,-0.020,0.000,1.000, APPRCH, 3.000000, RETRCT, 3.000000ENDMESMEAS/POINT, F(PT5), 1 PTMEAS/CART, -373.089,37.085,432.496,-0.020,0.000,1.000, APPRCH, 3.000000, RETRCT, 3.000000ENDMESMEAS/POINT, F(PT6), 1 PTMEAS/CART, -402.094,38.316,426.513,-1.000,-0.000,-0.020, APPRCH, 3.000000, RETRCT, 3.000000ENDMESKNPTR1 = OBTAIN/FA(PT1)[1], 5KNPTR2 = OBTAIN/FA(PT1)[1], 6KNPTR3 = OBTAIN/FA(PT1)[1], 7F(PLN1) = FEAT/PLANE, CART, 0,0,0, KNPTR1,KNPTR2,KNPTR3CONST/PLANE, F(PLN1), BF, FA(PT1), FA(PT2), FA(PT3)KNPTR1 = OBTAIN/FA(PT4), 3KNPTR2 = OBTAIN/FA(PT4), 4KNPTR3 = OBTAIN/FA(PT4), 5KNPTV1 = ASSIGN/VCART(KNPTR1,KNPTR2,KNPTR3)KNPTR1 = OBTAIN/FA(PT5), 3KNPTR2 = OBTAIN/FA(PT5), 4KNPTR3 = OBTAIN/FA(PT5), 5KNPTV2 = ASSIGN/VCART(KNPTR1,KNPTR2,KNPTR3)KNPTV3 = ASSIGN/KNPTV2 - KNPTV1KNPTV1 = ASSIGN/VUNIT(KNPTV3)KNPTR1 = OBTAIN/FA(PT4)[1], 5KNPTR2 = OBTAIN/FA(PT4)[1], 6KNPTR3 = OBTAIN/FA(PT4)[1], 7F(LN1) = FEAT/LINE, UNBND, CART, 0.000, 0.000, 0.000, VECX(KNPTV1), VECY(KNPTV1), VECZ(KNPTV1), KNPTR1, KNPTR2, KNPTR3CONST/LINE, F(LN1), BF, FA(PT4), FA(PT5)D(CRD1) =DATSET/FA(PLN1), ZDIR, ZORIGD(CRD1) =ROTATE/ZAXIS, FA(LN1), XDIRD(CRD1) =TRANS/YORIG, FA(LN1)D(CRD1) =TRANS/XORIG, FA(PT6)KNPTC1 =VALUE/SNSLCTKNPTR1 =OBTAIN/SS(KNPTC1), 8DPROBEZ =ASSIGN/(KNPTR1/2)KNPTR1 = OBTAIN/FA(PT4)[1], 5KNPTR2 = OBTAIN/FA(PT4)[1], 6KNPTR3 = OBTAIN/FA(PT4)[1], 7KNPTV1 = ASSIGN/VCART(KNPTR1,KNPTR2,KNPTR3)KNPTV2 = ASSIGN/VCART(0,1,0)IF/(VDOT(KNPTV1,KNPTV2) .GT. 0) DPROBEY = ASSIGN/(-DPROBEZ)ELSE DPROBEY = ASSIGN/DPROBEZENDIFKNPTR1 = OBTAIN/FA(PT6)[1], 5KNPTR2 = OBTAIN/FA(PT6)[1], 6KNPTR3 = OBTAIN/FA(PT6)[1], 7KNPTV1 = ASSIGN/VCART(KNPTR1,KNPTR2,KNPTR3)KNPTV2 = ASSIGN/VCART(1,0,0)IF/(VDOT(KNPTV1,KNPTV2) .GT. 0) DPROBEX = ASSIGN/(-DPROBEZ)ELSE DPROBEX = ASSIGN/DPROBEZENDIFD(CRD1) =TRANS/XORIG, DPROBEX, YORIG, DPROBEY, ZORIG, -DPROBEZPRCOMP/ON$$RECALL/D(CRD1)$$TEXT/OPER, '请将测头移动到安全位置！'$$$$MODE/PROG,MANGOTO/-5, 35.000, -4.5DECL/COMMON,INTGR,IDECL/COMMON,INTGR,JDECL/COMMON,CHAR,255,C1$$ 量块长度！！DECL/COMMON,DOUBLE,LK[5]$$ LK[1] = PROMPT/'请输入量块1长度！', 800, 50$$ LK[2] = PROMPT/'请输入量块2长度！', 800, 50$$ LK[3] = PROMPT/'请输入量块3长度！', 800, 50$$ LK[4] = PROMPT/'请输入量块4长度！', 800, 50$$ LK[5] = PROMPT/'请输入量块5长度！', 800, 50$$ LK[6] = PROMPT/'请输入量块5长度！', 800, 50LK[1] = ASSIGN/499.9998LK[2] = ASSIGN/400.0019LK[3] = ASSIGN/300.0002LK[4] = ASSIGN/125.0001LK[5] = ASSIGN/30.0003$$ 请输入量块数量！DECL/COMMON,DOUBLE,KNKN = ASSIGN/5$$ KN = PROMPT/'请输入量块数量！', 10.000000, 1.000000$$ 测量安全高度！！DECL/COMMON,DOUBLE,ZT$$ ZT = PROMPT/'请输入测量安全高度！', 100.000000, 10.000000ZT = ASSIGN/30$$ 移动到安全位置！！DO/I,1,KN,1C1 = ASSIGN/CONCAT('量块长度为:',STR(LK[I]))TEXT/OUTFIL, C1GOTO/-5.000, ZT, -4.500F(DCC-1)=FEAT/POINT,CART,0.000,-5.000,-4.500,-1.000,0.000,-0.000MEAS/POINT, F(DCC-1), 1 PTMEAS/CART, 0.000,-5.000,-4.500,-1.000,0.000,-0.000, APPRCH, 2.000000, RETRCT, 2.000000ENDMESGOTO/-5.000, ZT, -4.500GOTO/5.000, ZT, -4.500F(DCC-2)=FEAT/POINT,CART,5.000,0.000,-4.500,0.000,1.000,0.000MEAS/POINT, F(DCC-2), 1 PTMEAS/CART, 5.000,0.000,-4.500,0.000,1.000,0.000, APPRCH, 2.000000, RETRCT, 2.000000ENDMESGOTO/5.000, ZT, -4.500GOTO/5.000, ZT, 5.000F(DCC-3)=FEAT/POINT,CART,5.000,-4.000,0.000,0.000,0.000,1.000MEAS/POINT, F(DCC-3), 1 PTMEAS/CART, 5.000,-4.000,0.000,0.000,0.000,1.000, APPRCH, 2.000000, RETRCT, 2.000000ENDMESF(DCC-4)=FEAT/POINT,CART,5.000,-10.000,0.000,0.000,0.000,1.000MEAS/POINT, F(DCC-4), 1 PTMEAS/CART, 5.000,-10.000,0.000,0.000,0.000,1.000, APPRCH,2.000000, RETRCT, 2.000000ENDMESGOTO/5.000, ZT, 5.000GOTO/LK[I]-5, ZT, 5.000F(DCC-5)=FEAT/POINT,CART,LK[I]-5,-10.000,0.000,0.000,0.000,1.000MEAS/POINT, F(DCC-5), 1 PTMEAS/CART, LK[I]-5,-10.000,0.000,0.000,0.000,1.000, APPRCH, 2.000000, RETRCT, 2.000000ENDMESF(DCC-6)=FEAT/POINT,CART,LK[I]-5,-4.000,0.000,0.000,0.000,1.000MEAS/POINT, F(DCC-6), 1 PTMEAS/CART, LK[I]-5,-4.000,0.000,0.000,0.000,1.000, APPRCH, 2.000000, RETRCT, 2.000000ENDMESGOTO/LK[I]-5, ZT, 5.000GOTO/LK[I]-5, ZT, -4.5F(DCC-7)=FEAT/POINT,CART,LK[I]-5,0.000,-4.500,0.000,1.000,0.000MEAS/POINT, F(DCC-7), 1 PTMEAS/CART, LK[I]-5,0.000,-4.500,0.000,1.000,0.000, APPRCH, 2.000000, RETRCT, 2.000000ENDMESGOTO/LK[I]-5, ZT, -4.500GOTO/LK[I]+5, ZT, -4.500F(PLN_BF1)=FEAT/PLANE,CART,LK[I]/2,-7.000,0.000,0.000,0.000,1.000CONST/PLANE,F(PLN_BF1),BF,FA(DCC-3),FA(DCC-4),FA(DCC-5),FA(DCC-6)CALL/M(EASI_2PT_TO_LINE),(DCC-2),(DCC-7),(LN_BF1), 0.000, 1.000, 0.000CONST/LINE,F(LN_BF1),BF,FA(DCC-2),FA(DCC-7)D(CRD2) = DATSET/FA(PLN_BF1), ZDIR, ZORIG, FA(LN_BF1), XDIR, YORIG, FA(DCC-1), XORIGD(CRD2) = TRANS/ZORIG, -0, YORIG, -0, XORIG, -0RECALL/D(CRD2)$$$$$$ Set.OutputCtrl.USERDF.Decpl.Nom(5)$$ Set.OutputCtrl.USERDF.Decpl.Act(5)$$ Set.OutputCtrl.USERDF.Decpl.Dev(5)$$ Set.OutputCtrl.USERDF.Decpl.Tol(5)$$ 评价距离公差，循环次数！！$$ 评价距离公差，循环次数！！DECL/COMMON,INTGR,NUMNUM = ASSIGN/3$$ NUM = PROMPT/'请输入循环次数！', 100, 3DECL/COMMON,REAL,T1[NUM]DECL/COMMON, DOUBLE, KNPTR1DECL/COMMON, DOUBLE, KNPTR2DECL/COMMON, DOUBLE, KNPTR3DECL/COMMON,DOUBLE,Z_MAX,Z_MINDECL/COMMON, DOUBLE,AVERAGDECL/COMMON,DOUBLE,V1DECL/COMMON,CHAR,255,C2DECL/COMMON,CHAR,255,C3DECL/COMMON,CHAR,255,C4DO/J,1,NUM,1C4 = ASSIGN/CONCAT('TDST1','-',STR(J))GOTO/LK[I]+10, ZT, -4.500 F(TEST-1)=FEAT/POINT,CART,LK[I],-5.000,-4.500,1.000,0.000,0.000MEAS/POINT, F(TEST-1), 1 PTMEAS/CART, LK[I],-5.000,-4.500,1.000,0.000,0.000, APPRCH, 2.000000, RETRCT, 2.000000ENDMESGOTO/LK[I]+5, ZT, -4.500GOTO/-5.000,ZT, -4.500F(TEST-2)=FEAT/POINT,CART,0.000,-5.000,-4.500,-1.000,0.000,-0.000MEAS/POINT, F(TEST-2), 1 PTMEAS/CART, 0.000,-5.000,-4.500,-1.000,0.000,-0.000, APPRCH, 2.000000, RETRCT,2.000000ENDMESGOTO/-5.000, ZT, -4.500$$ KNPTR1 = PROMPT/'请输入探测误差！', 5.000000, 0.300000KNPTR1 = ASSIGN/1.4KNPTR2 = ASSIGN/(1.4+LK[I]/300)/1000$$ 300需要更改为需要的数值！T(@C4)=TOL/DISTB,NOMINL,LK[I],-KNPTR2,KNPTR2,XAXIS,AVGOUTPUT/FA(TEST-1),FA(TEST-2),TA(@C4)T1[J]= VALUE/TA(@C4),ACTENDDOZ_MAX= ASSIGN/T1[1]Z_MIN= ASSIGN/T1[1]AVERAG= ASSIGN/T1[1]DO/J,1,NUM,1IF/(T1[J].GT.Z_MAX)Z_MAX = ASSIGN/T1[J]ENDIFIF/(T1[J].LT.Z_MIN)Z_MIN= ASSIGN/T1[J]ENDIFENDDODO/J,2,NUM,1AVERAG= ASSIGN/(AVERAG+T1[J])ENDDOKNPTR3 = ASSIGN/Z_MAX-Z_MINC2= ASSIGN/CONCAT('重复性误差为;',STR(KNPTR3))TEXT/OUTFIL,C2V1 = ASSIGN/AVERAG/NUMC3 = ASSIGN/CONCAT('实测平均值：',STR(V1))TEXT/OUTFIL, C3IF/(I.LT.4)D(CRD3) = TRANS/XORIG, 0, YORIG, 0, ZORIG, -20$$ 20为Z向平面间距RECALL/D(CRD3)ENDIFIF/(I.EQ.4)D(CRD4) = TRANS/XORIG, 9.6, YORIG, 0, ZORIG, -20$$ 9.6为X向平面间距，20为Z向平面间距。RECALL/D(CRD4)ENDIFENDDO来源：山涧果子
