VisualDMIS 6.5更换架ACR2 高级编程I

VisualDMIS 6.5更换架ACR2 高级编程I

$$DMISLAYER/'ACC2(Calibration).dms'DECL/REAL,PORTX[9],PORTY[9],LZ,RZ,ZMEAN[9],PHX,PHY,X,Y,PHZ,PHXX,PHYYDECL/REAL,DH,DE,IT,JT,I,J,K,SPX,SPY,SPZ,SNLENG,MLZ,MRZ,MZMEAN[9],PHZZDECL/INTGR,10,L,A,R,PORTDIRDECL/CHAR,10,CRNAME,CRNUM,PTNAME,PTNUM,calibfil,HomeDirDMESW/COMAND,'ACC2:K,Y0'UNITS/MM,ANGDEC$$ENDLAYERWKPLAN/XYPLANMODE/MANRECALL/D(MCS)$$S(DEFAULT)=SNSDEF/PROBE,INDEX,POL,0.0000,0.0000,$0.000000,0.000000,-1.000000,126.9744,1.9797SNLENG=OBTAIN/SA(DEFAULT),9SNSLCT/S(DEFAULT)PRCOMP/OFFCALL/EXTERN,DME, 'V3DHOME',HomeDirCalibFil = CONCAT(HomeDir,'\Users\Sensor\Acc2calib.data') DID(PORTDATA)=DEVICE/STOR, CalibFilOPEN/DID(PORTDATA),DIRECT,OUTPUT,OVERWRF(RACKLN)=FEAT/LINE,UNBND,CART, 150.000000, 300.000000, 250.000000, 1.000000, $0.000000, 0.000000, 0.000000, -1.000000, 0.000000MEAS/LINE,F(RACKLN),2PTMEAS/CART,50.000000,300.000000,250.000000,0.000000,-1.000000,0.000000PTMEAS/CART,350.000000,300.000000,250.000000,0.000000,-1.000000,0.000000ENDMESI = OBTAIN/FA(RACKLN),7J = OBTAIN/FA(RACKLN),8K = OBTAIN/FA(RACKLN),9WRITE/DID(PORTDATA),I,',',J,',',KIT=ABS(I)JT=ABS(J)IF/IT > JT PORTDIR=1ELSE IF/J > 0 PORTDIR=2 ELSE PORTDIR=3 ENDIFENDIFTEXT/OPER,'Move the probe about 5mm above the Datum Ball(8mm) on the rack probe.'F(RACKPT)=FEAT/POINT,CART, 50.000000, 50.000000, 300.000000, 0.000000, $ 0.000000, 1.000000MEAS/POINT,F(RACKPT),0ENDMESD(RACK)=TRANS/XORIG,FA(RACKPT),YORIG,FA(RACKPT),ZORIG,FA(RACKPT)MODE/PROG,MANF(RACKPT)=FEAT/POINT,CART, 0.000000, 0.000000, -5.000000, 0.000000, $ 0.000000, 1.000000MEAS/POINT,F(RACKPT),1PTMEAS/CART,0.000000,0.000000,-5.000000,0.000000,0.000000,1.000000ENDMESD(RACK)=TRANS/XORIG,FA(RACKPT),YORIG,FA(RACKPT),ZORIG,FA(RACKPT)FEDRAT/POSVEL,MPM,3.6FEDRAT/MESVEL,MPM,0.1SNSET/APPRCH,6.000000SNSET/RETRCT,4.000000SNSET/DEPTH,6.000000SNSET/SEARCH,12.499300SNSET/CLRSRF,7.000000F(RACKSP)=FEAT/SPHERE,OUTER,CART, 0.000000, 0.000000, -4.000000, 8.000000MEAS/SPHERE,F(RACKSP),5PTMEAS/CART,0.000000,0.000000,0.000000,0.000000,0.000000,1.000000PTMEAS/CART,4.000000,0.000000,-4.000000,1.000000,0.000000,0.000000PTMEAS/CART,0.000000,4.000000,-4.000000,0.000000,1.000000,0.000000PTMEAS/CART,-4.000000,0.000000,-4.000000,-1.000000,0.000000,0.000000PTMEAS/CART,0.000000,-4.000000,-4.000000,0.000000,-1.000000,0.000000ENDMESRECALL/D(MCS)SPX = OBTAIN/FA(RACKSP),4SPY = OBTAIN/FA(RACKSP),5SPZ = OBTAIN/FA(RACKSP),6D(rack)=TRANS/XORIG,FA(RACKSP),YORIG,FA(RACKSP),ZORIG,FA(RACKSP)FEDRAT/POSVEL,MPM,3.6FEDRAT/MESVEL,MPM,0.3IF/(PORTDIR.EQ.1) GOTO/0.000000,-200.000000,0.000000ENDIFIF/(PORTDIR.EQ.2) GOTO/0,-4,20 GOTO/200.000000,400.000000,0.000000ENDIFIF/(PORTDIR.EQ.3) GOTO/0,-4,20 GOTO/-200.000000,0.000000,0.000000ENDIFDMESW/COMAND,'ACC2:D,L0'TEXT/OPER,'Insert the all LID CLIPS at the joints of ports'TEXT/OPER,'Make sure all ports are empty.'DMESW/COMAND,'ACC2:S,K0'$$ ************************* + X DIRECTION **********M(PXDIR)=MACRO/GOTO/72.0,-54.500000,-30.000000DO/L,0,7,1GOTO/72.0+(35*L),-4.500000,-30.000000A=L+1CRNUM=STR(A)CRNAME='PORT'CRNAME=CONCAT(CRNAME,CRNUM)F(CRNAME)=FEAT/CIRCLE,INNER,CART, 72.000000+(35*L), -4.500000, -35.000000, 0.000000, $ 0.000000, 1.000000,23.420000MEAS/CIRCLE,F(CRNAME),4PTMEAS/CART,72.0+(35.0*L)-12.507058,-2.294668,-35.000000,0.984808,-0.173648,0.000000PTMEAS/CART,72.0+(35.0*L)-5.367252,7.010109,-35.000000,0.422618,-0.906308,0.000000PTMEAS/CART,72.0+(35.0*L)+5.367252,7.010109,-35.000000,-0.422618,-0.906308,0.000000PTMEAS/CART,72.0+(35.0*L)+12.507058,-2.294668,-35.000000,-0.984808,-0.173648,0.000000ENDMESPORTX[A] = OBTAIN/FA(CRNAME),4PORTY[A] = OBTAIN/FA(CRNAME),5PTNUM=STR(A)PTNAME='LPT_PORT'PTNAME=CONCAT(PTNAME,PTNUM)F(PTNAME)=FEAT/POINT,CART, 72.0+(35.0*L)-15, -15.000000, -34.000000, -0.000000, $ -0.000000, 1.000000MEAS/POINT,F(PTNAME),1PTMEAS/CART,72.0+(35.0*L)-15,-15.000000,-34.000000,-0.000000,-0.000000,1.00000ENDMESLZ = OBTAIN/FA(PTNAME),5RECALL/D(MCS)MLZ=OBTAIN/FA(PTNAME),5RECALL/D(RACK)PTNUM=STR(A)PTNAME='RPT_PORT'PTNAME=CONCAT(PTNAME,PTNUM)F(PTNAME)=FEAT/POINT,CART, 72.0+(35.0*L)+15, -15.000000, -34.000000, 0.000000, $ 0.000000, 1.00000MEAS/POINT,F(PTNAME),1PTMEAS/CART,72.0+(35*L)+15,-15.000000,-34.000000,0.000000,0.000000,1.00000ENDMESRZ = OBTAIN/FA(PTNAME),5RECALL/D(MCS)MRZ=OBTAIN/FA(PTNAME),5RECALL/D(RACK)ZMEAN[A]=(LZ+RZ)/2MZMEAN[A]=(MLZ+MRZ)/2ENDDOGOTO/0.000000,-200.000000,-30.000000TEXT/OPER,'Unlock and remove the autojoint adaptor(PAA1) from the probe head.'TEXT/OPER,'Remove all LID retaining clips.'DMESW/COMAND,'ACC2:S,L0'GOTO/0,0,-70F(PHPT)=FEAT/POINT,CART, 0.000000, 8.000000, -85.800000, 0.000000, $ 0.000000, 1.00000MEAS/POINT,F(PHPT),1PTMEAS/CART,0.000000,8.000000,-85.800000,0.000000,0.000000,1.00000ENDMESPHZ = OBTAIN/FA(PHPT),5RECALL/D(MCS)PHZZ = OBTAIN/FA(PHPT),5RECALL/D(RACK)GOTO/25.000000,0.000000,-78.000000F(PHCR)=FEAT/CIRCLE,INNER,CART, 0.000000, 0.000000, -94.500000, 0.000000, $ 0.000000, 1.000000,31.000000MEAS/CIRCLE,F(PHCR),4PTMEAS/CART,16.500000,0.000000,-94.500000,1.000000,0.000000,0.000000GOTO/20.000000,20.000000,-94.500000PTMEAS/CART,0.000000,16.500000,-94.500000,0.000000,1.000000,0.000000GOTO/-20.000000,20.000000,-94.500000PTMEAS/CART,-16.500000,0.000000,-94.500000,-1.000000,0.000000,0.000000GOTO/-20.000000,-20.000000,-94.500000PTMEAS/CART,0.000000,-16.500000,-94.500000,0.000000,-1.000000,0.000000ENDMESPHX = OBTAIN/FA(PHCR),4PHY = OBTAIN/FA(PHCR),5RECALL/D(MCS)PHXX = OBTAIN/FA(PHCR),4PHYY = OBTAIN/FA(PHCR),5RECALL/D(RACK)ENDMAC$$ *************************END PXDIR MACRO*************$$ ************************* + Y DIRECTION **********M(PYDIR)=MACRO/$$S(RACKSN)=SNSDEF/PROBE,INDEX,S(DEFAULT),POL,0.000000,90.000000$$SNSLCT/S(RACKSN)GOTO/54.500000,72.0,-30.000000DO/L,0,7,1GOTO/4.500000,72.0+(35*L),-30.000000A=L+1CRNUM=STR(A)CRNAME='PORT'CRNAME=CONCAT(CRNAME,CRNUM)F(CRNAME)=FEAT/CIRCLE,INNER,CART, 4.500000, 72.000000+(35*L), -35.000000, 0.000000, $ 0.000000, 1.000000,25.420000MEAS/CIRCLE,F(CRNAME),4PTMEAS/CART,2.294668,72.0+(35.0*L)-12.507058,-35.000000,0.173648,0.984808,0.000000PTMEAS/CART,-7.010109,72.0+(35.0*L)-5.367252,-35.000000,0.906308,0.422618,0.000000PTMEAS/CART,-7.010109,72.0+(35.0*L)+5.367252,-35.000000,0.906308,-0.422618,0.000000PTMEAS/CART,2.294668,72.0+(35.0*L)+12.507058,-35.000000,0.173648,-0.984808,0.000000ENDMESPORTX[A] = OBTAIN/FA(CRNAME),4PORTY[A] = OBTAIN/FA(CRNAME),5PTNUM=STR(A)PTNAME='LPT_PORT'PTNAME=CONCAT(PTNAME,PTNUM)F(PTNAME)=FEAT/POINT,CART, 15.000000, 72.0+(35.0*L)-15, -34.000000, -0.000000, $ -0.000000, 1.000000MEAS/POINT,F(PTNAME),1PTMEAS/CART,15.000000,72.0+(35.0*L)-15,-34.000000,-0.000000,-0.000000,1.00000ENDMESLZ = OBTAIN/FA(PTNAME),5RECALL/D(MCS)MLZ=OBTAIN/FA(PTNAME),5RECALL/D(RACK)PTNUM=STR(A)PTNAME='RPT_PORT'PTNAME=CONCAT(PTNAME,PTNUM)F(PTNAME)=FEAT/POINT,CART, 15.000000, 72.0+(35.0*L)+15, -34.000000, 0.000000, $ 0.000000, 1.00000MEAS/POINT,F(PTNAME),1PTMEAS/CART,15.000000,72.0+(35*L)+15,-34.000000,0.000000,0.000000,1.00000ENDMESRZ = OBTAIN/FA(PTNAME),5RECALL/D(MCS)MRZ=OBTAIN/FA(PTNAME),5RECALL/D(RACK)ZMEAN[A]=(LZ+RZ)/2MZMEAN[A]=(MLZ+MRZ)/2ENDDOGOTO/200.000000,0.000000,-30.000000TEXT/OPER,'Unlock and remove the autojoint adaptor(PAA1) from the probe head.'TEXT/OPER,'Remove all LID retaining clips.'DMESW/COMAND,'ACC2:S,L0'S(RACKSN)=SNSDEF/PROBE,INDEX,S(DEFAULT),POL,0.000000,90.000000SNSLCT/S(RACKSN)GOTO/0,0,-70F(PHPT)=FEAT/POINT,CART, -8.000000, 0.000000, -85.800000, 0.000000, $ 0.000000, 1.00000MEAS/POINT,F(PHPT),1PTMEAS/CART,-8.000000,0.000000,-85.800000,0.000000,0.000000,1.00000ENDMESPHZ = OBTAIN/FA(PHPT),5RECALL/D(MCS)PHZZ = OBTAIN/FA(PHPT),5RECALL/D(RACK)GOTO/-25.000000,0.000000,-80.000000F(PHCR)=FEAT/CIRCLE,INNER,CART, 0.000000, 0.000000, -94.500000, 0.000000, $ 0.000000, 1.000000,31.000000MEAS/CIRCLE,F(PHCR),4PTMEAS/CART,-16.500000,0.000000,-94.500000,-1.000000,0.000000,0.000000GOTO/-20.0,-20.0,-94.5PTMEAS/CART,0.000000,-16.500000,-94.500000,0.000000,-1.000000,0.000000GOTO/20.0,-20.0,-94.5PTMEAS/CART,16.500000,0.000000,-94.500000,1.000000,0.000000,0.000000GOTO/20.0,20.0,-94.5PTMEAS/CART,0.000000,16.500000,-94.500000,0.000000,1.000000,0.000000ENDMESPHX = OBTAIN/FA(PHCR),4PHY = OBTAIN/FA(PHCR),5RECALL/D(MCS)PHXX = OBTAIN/FA(PHCR),4PHYY = OBTAIN/FA(PHCR),5RECALL/D(RACK)ENDMAC$$ ******************************* END PYDIR MACRO *******$$ ************************* - Y DIRECTION **********M(MYDIR)=MACRO/$$S(RACKSN)=SNSDEF/PROBE,INDEX,S(DEFAULT),POL,0.000000,-90.000000GOTO/-54.500000,-72.0,-30.000000DO/L,0,7,1GOTO/-4.500000,-72.0-(35*L),-30.000000A=L+1CRNUM=STR(A)CRNAME='PORT'CRNAME=CONCAT(CRNAME,CRNUM)F(CRNAME)=FEAT/CIRCLE,INNER,CART, -4.500000, -72.000000-(35*L), -35.000000, 0.000000, $ 0.000000, 1.000000,25.420000MEAS/CIRCLE,F(CRNAME),4PTMEAS/CART,-2.294668,-72.0-(35.0*L)+12.507058,-35.000000,-0.173648,-0.984808,0.000000PTMEAS/CART,7.010109,-72.0-(35.0*L)+5.367252,-35.000000,-0.906308,-0.422618,0.000000PTMEAS/CART,7.010109,-72.0-(35.0*L)-5.367252,-35.000000,-0.906308,0.422618,0.000000PTMEAS/CART,-2.294668,-72.0-(35.0*L)-12.507058,-35.000000,-0.173648,0.984808,0.000000ENDMESPORTX[A] = OBTAIN/FA(CRNAME),4PORTY[A] = OBTAIN/FA(CRNAME),5PTNUM=STR(A)PTNAME='LPT_PORT'PTNAME=CONCAT(PTNAME,PTNUM)F(PTNAME)=FEAT/POINT,CART, -15.000000, -72.0-(35.0*L)+15, -34.000000, 0.000000, $ 0.000000, 1.000000MEAS/POINT,F(PTNAME),1PTMEAS/CART,-15.000000,-72.0-(35.0*L)+15,-34.000000,0.000000,0.000000,1.00000ENDMESLZ = OBTAIN/FA(PTNAME),5RECALL/D(MCS)MLZ=OBTAIN/FA(PTNAME),5RECALL/D(RACK)PTNUM=STR(A)PTNAME='RPT_PORT'PTNAME=CONCAT(PTNAME,PTNUM)F(PTNAME)=FEAT/POINT,CART, -15.000000, -72.0-(35.0*L)-15, -34.000000, 0.000000, $ 0.000000, 1.00000MEAS/POINT,F(PTNAME),1PTMEAS/CART,-15.000000,-72.0-(35*L)-15,-34.000000,0.000000,0.000000,1.00000ENDMESRZ = OBTAIN/FA(PTNAME),5RECALL/D(MCS)MRZ=OBTAIN/FA(PTNAME),5RECALL/D(RACK)ZMEAN[A]=(LZ+RZ)/2MZMEAN[A]=(MLZ+MRZ)/2ENDDOGOTO/-200.000000,0.000000,-30.000000TEXT/OPER,'Unlock and remove the autojoint adaptor(PAA1) from the probe head.'TEXT/OPER,'Remove all LID retaining clips.'DMESW/COMAND,'ACC2:S,L0'S(RACKSN)=SNSDEF/PROBE,INDEX,S(DEFAULT),POL,0.000000,-90.000000SNSLCT/S(RACKSN)GOTO/0,0,-70F(PHPT)=FEAT/POINT,CART, 8.000000, 0.000000, -85.800000, 0.000000, $ 0.000000, 1.00000MEAS/POINT,F(PHPT),1PTMEAS/CART,8.000000,0.000000,-85.800000,0.000000,0.000000,1.00000ENDMESPHZ = OBTAIN/FA(PHPT),5RECALL/D(MCS)PHZZ = OBTAIN/FA(PHPT),5RECALL/D(RACK)GOTO/25.000000,0.000000,-80.000000F(PHCR)=FEAT/CIRCLE,INNER,CART, 0.000000, 0.000000, -94.500000, 0.000000, $ 0.000000, 1.000000,31.000000MEAS/CIRCLE,F(PHCR),4PTMEAS/CART,16.500000,0.000000,-94.500000,1.000000,0.000000,0.000000GOTO/20,20,-94.5PTMEAS/CART,0.000000,16.500000,-94.500000,0.000000,1.000000,0.000000GOTO/-20,20,-94.5PTMEAS/CART,-16.500000,0.000000,-94.500000,-1.000000,0.000000,0.000000GOTO/-20,-20,-94.5PTMEAS/CART,0.000000,-16.500000,-94.500000,0.000000,-1.000000,0.000000ENDMESPHX = OBTAIN/FA(PHCR),4PHY = OBTAIN/FA(PHCR),5RECALL/D(MCS)PHXX = OBTAIN/FA(PHCR),4PHYY = OBTAIN/FA(PHCR),5RECALL/D(RACK)ENDMAC$$ ******************************* END MYDIR MACRO *******IF/(PORTDIR.EQ.1) CALL/M(PXDIR)ENDIFIF/(PORTDIR.EQ.2) CALL/M(PYDIR)ENDIFIF/(PORTDIR.EQ.3) CALL/M(MYDIR)ENDIFDO/R,1,8,1 X=SPX+PORTX[R]+PHX Y=SPY+PORTY[R]+PHY DH=SPZ-(ABS(ZMEAN[R])+ABS(PHZ)+6.65) WRITE/DID(PORTDATA),X,',',Y,',',MZMEAN[R]ENDDOPHZ=ABS(PHZ)WRITE/DID(PORTDATA),SNLENG,',',PHY,',',PHZWRITE/DID(PORTDATA),PHXX,',',PHYY,',',PHZZRECALL/D(MCS)DMESW/COMAND,'ACC2:K,Y0'dmesw/COMAND,'configacr:calibfil'PRCOMP/ONTEXT/OPER,'Calibration completed! Mount probe on the probe head manualy.'ENDFIL

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。