PITTLERRENISHAW测量程序.doc

PITTLERRENISHAW 测量程序PV2000/1-1 RENISHAW测量程序 PITTLER- 机床SIEMENS 840 D系统RENISHAW.MPF;M25 Function probe selection, Funktion Messtaster Anwahl(探针功能选择,触头功能选择);M26 Function probe deselection, Funktion Messtaster Abwahl(探针功能选择关闭,触头功能选择);-;TEST CALIRIEREN(探头标定);artKali: diameter calibration=0 or drilling calibriation=1,(直径标定=0,孔标定=1); ?kalibrieren=0 oder Bohrung kalibrieren=1;D_Nr: cutting number of probe for inside or outside diameter,(外圆直径或内孔直径车削); Schneiden Nr. Taster f黵 Innen- /Au遝n- Durchmesser;KaPosC: C11 angle calibration position drilling(C11轴孔位置坐标); C11 Kalibrierwinkel Bohrungsposition,;KaDuX: pitch circle diameter or calibration diameter(节圆直径或标定直径); ?Teilkreis oder ?kalibrieren;KaBoDu: Bore diameter(孔内径); ?Bohrung;KaPoZ1: calibration position Z1,(Z1坐标标定); Kalibrierposition Z1;KaPoZ2: calibration position Z2,(Z2坐标标定); Kalibrierposition Z2;-;Cy_Calibration (0,5,18.703,1630.248,28.77,430,500);Cy_Calibration (1,5,18.703,1630.248,28.77,430,500);GOTOF NEXT;-;TEST RENISHAW MESSEN(探头测量);artMess: diameter measur=0 or drilling measur=1 or angle=2(直径标定=0,孔标定=1,角度=2); ?messen=0 oder Bohrung messen=1 oder Winkel=2;D_Nr: cutting number of probe for inside or outside diameter, (外圆直径或内孔直径车削); Schneiden Nr. Taster f黵 Innen- /Au遝n- Durchmesser;Nomi_D: measuring nominal?diameter,(测量公称直径); Messdurchmesser Soll?oder Teilkreis?;BoDu: ?diameter drilling(孔直径); ?Bohrung;PosC: C11 angle first position drilling(C11第一角度坐标起点); C11 erste Bohrungsposition,;CAng: Drillig Angle(钻孔角度); Winkel der Bohrung;MePosZ1: measuring position Z1, (Z1坐标标定); Messposition Z1;MePosZ2: measuring position Z2, (Z2坐标标定); Messposition Z2;-;Cy_Measure (,2,1692.6,433,500);Cy_Measure (,3,1487,425,500);Cy_Measure (1,5,1630.248,28.77,18.703,430,500)Cy_Measure (2,5,1630.248,28.77,18.703,9,430,500)NEXT:M0HOME_POSM30CY_CALIBRATION.SPF;calibration cycle;Kalibrierzyklus;Auftr.Nr.:ZV023;Kunde: Guodian;Stand: 07.11.2011;Erstellt: V.Franz;Ge鋘dert:;Grund:;-;M25 Function probe selection, Funktion Messtaster Anwahl;M26 Function probe deselection, Funktion Messtaster Abwahl;artKali: diameter calibration=0 or drilling calibriation=1,; ?kalibrieren=0 oder Bohrung kalibrieren=1;D_Nr: cutting number of probe for inside or outside diameter,; Schneiden Nr. Taster f黵 Innen- /Au遝n- Durchmesser;KaPosC: C11 angle calibration position drilling; C11 Kalibrierwinkel Bohrungsposition,;KaDuX: pitch circle diameter or calibration diameter; ?Teilkreis oder ?kalibrieren;KaBoDu: Bore diameter; ?Bohrung;KaPoZ1: calibration position Z1,; Kalibrierposition Z1;KaPoZ2: calibration position Z2,; Kalibrierposition Z2;-Proc Cy_Calibration (Int artKali,Int D_Nr,Real KaPosC,Real KaDuX,Real KaBoDu,Real KaPoZ1,Real KaPoZ2)Def Real Hilp1,Hilp2,Hilp3,Hilp4;-If $P_Search or $P_Sim GotoF EndIf ($P_GG85) GotoF Fehl_4If D_Nr5 GotoF Fehl_1 ;Im Zyklus Kalibrieren nicht zul鋝sig V_Art=$P_GG15;-Stopre ;Value assignment to variable, Wertzuweisung in VariableMptX=KaDuX ;Loading pitch circle diameter or calibration diameter ;Laden ?Teilkreis oder ?kalibrierenMptZ=KaPoZ1 ;Indication of the measurement point in the ;longitudinal direction (Z) ;Angabe des Messpunktes in L鋘gsrichtung (Z)KugelDu=6 ;Probe ball diameter, Messtaster Kugel?SiAbstX=10 ;Diameter safety distance of the ball, ;Sicherheitsabstand f黵 Kugel vor ?SiAbstZ=5 ;Safety distanc workpice of the ball, ;Sicherheitsabstand f黵 Kugel vor Werkst點kIf D_Nr=5 SiAbstZ=10 ;Safety distanc workpice of the middle ballEndIfAFlanke=0 ;Reset active edge evaluation, ;Aktive Flankenauswertung zur點ksetzenMe_mm_min=100 ;probing feed rate in mm per min, ;Antastgeschwindigkeit in mm pro minStopre ;Bezug bestimmen, au遝n?messenVorPosZ=KaPoZ1+SiAbstZ ;Eilgang Vorpos L鋘gsachse;- Run_Transmit(0) POSIT M5 ;Spindel f黵 Messung ausschalten WZA(T59) ;Renishaw beladen DiamOn G0 G18 G40 D=D_Nr ;Kalibrieren mit ?Programmierung Setms(1) M1=70 G54 G0 C11=DC(KaPosC);-Stopre ;Kalibriertart pr黤enIf artKali=1 Stopre ;Bezugwinkel zum suchen berechnen Hilp1=KugelDu/2 Hilp2=KaBoDu/2 Hilp3=KaDuX/2 Hilp4=ATan2(Hilp2,Hilp3)+Hilp1 Cink=HILP4 ;Round(Hilp4) Msg (Kalibrierung in Bohrung der Rotationsachse C11 vom Taster l鋟ft) ;Anfahren Mitte Bohrung bzw. Teilkreis G0 X=MptX NPV_Z2(KaPoZ2) G0 Z1=VorPosZ M25 ;Function probe selection, Funktion Messtaster Anwahl G4 F3 ;Taster Zeit Neutralisierung Stopre ;Digitaler Eingang Signalgeber vorhanden? If $A_Probe1=1 GotoF Fehl_2 G1 G94 ;Restweg l鰏chen aktiv Stopre ;Pr黤en ob Bohrung vorhanden Meas=1 G9 G63 Z1=MptZ F=Me_mm_min ;in die Bohrung fahren Stopre ;Signalgebung pr黤en AFlanke=$ac_mea1 ;Flankenzustand vom Taster speichern If AFlanke=1 Z1=MptZ+SiAbstZ+20 F1000 GotoF Fehl_5 EndIf ;Part vorne antasten Meas=1 G9 G63 G91 C11=-Cink F=(Me_mm_min/2) ;Werkst點k anfahren Stopre ;Signalgebung pr黤en AFlanke=$ac_mea1 ;Flankenzustand vom Taster speichern If AFlanke=0 GotoF Fehl_3 ;Taster nicht ausgelenkt Stopre ;Messkoordinate lesen BoMptvo=$AA_MWC11 ;Messwert Spindel speichern G4 F.2 ;System Neutralisierung Stopre ;Letzter aktiver Flankenzustand zur點ksetzen AFlanke=0 ;Part hinten antasten G1 G90 C11=KaPosC F=250 ;freifahren Stopre ;Digitaler Eingang Signalgeber vorhanden? If $A_Probe1=1 GotoF Fehl_2 G1 G94 ;Restweg l鰏chen aktiv Meas=1 G9 G63 G91 C11=Cink F=(Me_mm_min/2) ;Werkst點k anfahren Stopre ;Signalgebung pr黤en AFlanke=$ac_mea1 ;Flankenzustand vom Taster speichern If AFlanke=0 GotoF Fehl_3 ;Taster nicht ausgelenkt Stopre ;Messkoordinate lesen BoMpthi=$AA_MWC11 ;Messwert Spindel speichern G4 F.2 ;System Neutralisierung ;Freifahren sichere Position G1 G90 C11=KaPosC F=250 ;freifahren M26 ;Function probe deselection, Funktion Messtaster Abwahl G0 Z1=VorPosZ Stopre ;Schalthystherese ermitteln Signal3=KaPosC-BoMptvo Signal4=BoMpthi-KaPosC Stopre ;Letzter aktiver Flankenzustand zur點ksetzen AFlanke=0EndIf;-;Part in Bohrung Planflanken festlegenStopre ;Kalibriertart pr黤enIf artKali=0 Msg (Kalibrierung in Bohrung der Planachse X vom Taster l鋟ft) ;Anfahren Mitte Bohrung bzw. Teilkreis G0 X=MptX NPV_Z2(KaPoZ2) G0 Z1=VorPosZ M25 ;Function probe selection, Funktion Messtaster Anwahl G4 F3 ;Taster Zeit Neutralisierung Stopre ;Digitaler Eingang Signalgeber vorhanden? If $A_Probe1=1 GotoF Fehl_2 G1 G94 ;Restweg l鰏chen aktiv Stopre ;Pr黤en ob Bohrung vorhanden Meas=1 G9 G63 Z1=MptZ F=Me_mm_min ;in die Bohrung fahren Stopre ;Signalgebung pr黤en AFlanke=$ac_mea1 ;Flankenzustand vom Taster speichern If AFlanke=1 Z1=MptZ+SiAbstZ+20 F1000 GotoF Fehl_5 EndIf Stopre ;Part links antasten Hilp1=KaDuX-KaBoDu-(KugelDu/2) Meas=1 G9 G63 X=AC(Hilp1) F=Me_mm_min ;Werkst點k anfahren Stopre ;Signalgebung pr黤en AFlanke=$ac_mea1 ;Flankenzustand vom Taster speichern If AFlanke=0 GotoF Fehl_3 ;Taster nicht ausgelenkt Stopre ;Messkoordinate lesen DMptli=$AA_MWX ;Messwert Plan speichern G4 F.2 ;System Neutralisierung G1 X=AC(MptX) F=500 ;freifahren Stopre ;Letzter aktiver Flankenzustand zur點ksetzen AFlanke=0 Stopre ;Part rechts antasten Hilp1=KaDuX+KaBoDu+(KugelDu/2) Stopre ;Digitaler Eingang Signalgeber vorhanden? If $A_Probe1=1 GotoF Fehl_2 G1 G94 ;Restweg l鰏chen aktiv Meas=1 G9 G63 X=AC(Hilp1) F=Me_mm_min ;Werkst點k anfahren Stopre ;Signalgebung pr黤en AFlanke=$ac_mea1 ;Flankenzustand vom Taster speichern If AFlanke=0 GotoF Fehl_3 ;Taster nicht ausgelenkt Stopre ;Messkoordinate lesen DMptre=$AA_MWX ;Messwert Spindel speichern G4 F.2 ;System Neutralisierung ;Freifahren sichere Position G1 X=AC(MptX) F=500 ;freifahren M26 ;Function probe deselection, Funktion Messtaster Abwahl G1 Z1=VorPosZ F=1000 Stopre ;Schalthystherese ermitteln Hilp2=KaDuX-KaBoDu+KugelDu Hilp3=KaDuX+KaBoDu-KugelDu Signal1=Hilp2-DMptli Signal2=DMptre-Hilp3 Stopre ;Letzter aktiver Flankenzustand zur點ksetzen AFlanke=0EndIf GotoF End;-Fehl_1: Setal (65517) ;Angew鋒lte D. Nummer (Wert5) ist unzul鋝sig! Abbruch mit Reset, D. Nummer 黚erpr黤en M0 ;Selected D. Number (value5) is not allowed! Demolition with reset, check D. numberFehl_2: Setal (65518) ;Eingang Restweg l鰏chen bereits aktiv! Taster eventuell ausgelenkt oder Signal zur點kgesetzt? Abbruch mit Reset M0 ;Delete distance input is already active! Probe may be deflected or reset signal? Demolition with resetGotoB Fehl_2Fehl_3: Setal (65519) ;Messtaster nicht ausgelenkt, Abstand Tastkugel zum ?zu gross! Abbruch mit Reset M0 ;Probe not deflected, the distance between probe tip ?diameter is too large! Demolition with resetGotoB Fehl_3Fehl_4: Setal (65520) ;Nullpunktverschiebung falsch nur G54-G57 erlaubt! Abbruch mit Reset M0 ;Work offset is wrong only G54-G57 allow! Demolition with resetGotoB Fehl_4Fehl_5: Setal (65521) ;Keine Bohrung vohrhande! Abbruch mit Reset M0 ;Work offset is wrong only G54-G57 allow! Demolition with resetGotoB Fehl_5;-End: Stopre ;Letzter aktiver Flankenzustand zur點ksetzen AFlanke=0 If V_ART=2 G94 EndIf If V_ART=3 G95 EndIf If V_ART=4 G96 EndIf If V_ART=5 G97 EndIfM17CY_MEASURE.SPF;Diameter measurement cycle;Durchmesser Messzyklus;Auftr.Nr.:ZV023;Kunde: Guodian;Stand: 07.11.2011;Erstellt: V.Franz;Ge鋘dert:;Grund: ;-;M25 Function probe selection, Funktion Messtaster Anwahl;M26 Function probe deselection, Funktion Messtaster Abwahl;artMess: diameter measur=0 or drilling measur=1 or angle=2; ?messen=0 oder Bohrung messen=1 oder Winkel=2;D_Nr: cutting number of probe for inside or outside diameter,; Schneiden Nr. Taster f黵 Innen- /Au遝n- Durchmesser;Nomi_D: Nominal measuring- or pitch diameter; Soll Mess- oder Teilkreis- Durchmesser;BoDu: ?diameter drilling; ?Bohrung;PosC: Absolute C11 first hole location; C11 erste Absolute Bohrungsposition,;CAng: Angular arrangement of the holes; Winkelanordnung der Bohrungen;MePosZ1: measuring position Z1,; Messposition Z1;MePosZ2: measuring position Z2,; Messposition Z2;-Proc Cy_Measure (Int artMess,Int D_Nr,Real Nomi_D,Real BoDu,Real PosC,Real CAng,Real MePosZ1,Real MePosZ2)Def Real Time,Hilp1,Hilp2,Hilp3,Hilp4,Hilp5,Hilp6;-Stopre ;Suchlauf und Simulation 黚erpr黤en nicht zul鋝sigIf $P_Search or $P_Sim GotoF EndStopre ;G黮tigkeit Schneide bzw. D-Nummer auswertenIf D_Nr5 GotoF Fehl_1 ;Im Zyklus ?messen nicht zul鋝sig V_Art=$P_GG15;-Stopre ;Value assignment to variable, Wertzuweisung in VariableKugelDu=6 ;Probe ball diameter, Messtaster Kugel?SiAbstX=10 ;Diameter safety distance of the ball, ;Sicherheitsabstand f黵 Kugel vor ?SiAbstZ=5 ;Safety distanc workpice of the ball, ;Sicherheitsabstand f黵 Kugel vor Werkst點kAFlanke=0 ;Reset active edge evaluation, ;Aktive Flankenauswertung zur點ksetzenMe_mm_min=250 ;probing feed rate in mm per min, ;Antastgeschwindigkeit in mm pro minTime=2 ;System Neutralisierung;- Delet_Date Run_Transmit(0) POSIT M5 ;Spindel f黵 Messung ausschalten WZA(T59) ;Renishaw beladen DiamOn G0 G18 G40 D=D_Nr ;Messen mit ?Programmierung;-;Part Durchmesser innen oder au遝n messenStopre ;Messart pr黤en ?messenIf artMess=0 Stopre ;Bezug bestimmen, au遝n?messen VorPosZ=MePosZ1+SiAbstZ+KugelDu ;Eilgang Vorpos L鋘gsachse MePosZ=MePosZ1-KugelDu ;Messposition L鋘gsachse VorPosX=Nomi_D+SiAbstX+KugelDu ;Eilgang Zielpunkt Planachse MePosX=Nomi_D-KugelDu ;Endpunkt Messweg If (D_Nr=3)or(D_Nr=4) ;Innen?messen VorPosX=Nomi_D-SiAbstX-KugelDu ;Eilgang Zielpunkt Planachse MePosX=Nomi_D+KugelDu ;Endpunkt Messweg Endif If (D_Nr=3)or(D_Nr=4) ;Innen?messen Msg (Werkst點k Innen?messen) Else Msg (Werkst點k Au遝n?messen) EndIf G0 X=VorPosX ;Anfahren Werkst點k NPV_Z2(MePosZ2) If ($P_GG85) GotoF Fehl_4 G0 Z1=VorPosZ M25 ;Function probe selection, Funktion Messtaster Anwahl G4 F=Time ;System Neutralisierung G1 G94 Z1=MePosZ F1000 Stopre ;Digitaler Eingang Signalgeber vorhanden? If $A_Probe1=1 GotoF Fehl_2 G1 G94 F=Me_mm_min ;Restweg l鰏chen aktiv Meas=1 G9 G63 X=MePosX ;Werkst點k anfahren Stopre ;Signalgebung pr黤en AFlanke=$ac_mea1 ;Flankenzustand vom Taster speichern If AFlanke=0 GotoF Fehl_3 ;Taster nicht ausgelenkt If (D_Nr=3)or(D_Nr=4) ;Innen?messen Stopre ;Innen?Messwert speichern _Var2=$AA_MWX-Signal2 ;Messwert Werkst點k _Var3=Nomi_D Else Stopre ;Au遝n?Messwert speichern _Var0=$AA_MWX+Signal1-Bas_X ;Messwert Werkst點k _Var1=Nomi_D EndIf G4 F.2 ;System Neutralisierung G1 G94 X=VorPosX F1000 M26 ;Function probe deselection, Funktion Messtaster Abwahl G0 Z1=VorPosZEndIf;-;Part Bohrungsdurchmesser messenStopre ;Messart pr黤enIf artMess=1 Stopre ;Bezug bestimmen, Bohrung?messen VorPosZ=MePosZ1+SiAbstZ+(KugelDu/2) ;Eilgang Vorpos L鋘gsachse MePosZ=MePosZ1 ;Messposition L鋘gsachse MePosX=Nomi_D ;Eilgang Zielpunkt Planachse Setms(1) Run: M1=70 G54 G0 C11=DC(PosC) Msg (Messung in Bohrung der Planachse X l鋟ft) ;Anfahren Mitte Bohrung bzw. Teilkreis G0 X=MePosX NPV_Z2(MePosZ2) G0 Z1=VorPosZ M25 ;Function probe selection, Funktion Messtaster Anwahl G4 F=Time ;Taster Zeit Neutralisierung Stopre ;Digitaler Eingang Signalgeber vorhanden? If $A_Probe1=1 GotoF Fehl_2 G1 G94 ;Restweg l鰏chen aktiv Stopre ;Pr黤en ob Bohrung vorhanden Meas=1 G63 Z1=MePosZ F=Me_mm_min ;in die Bohrung fahren Stopre ;Signalgebung pr黤en AFlanke=$ac_mea1 ;Flankenzustand vom Taster speichern If AFlanke=1 Z1=MePosZ+SiAbstZ+10 F1000 GotoF Fehl_5 EndIf Stopre ;Part links antasten MePosX=Nomi_D-BoDu-(KugelDu/2) Meas=1 G9 G63 X=AC(MePosX) F=Me_mm_min ;Werkst點k anfahren Stopre ;Signalgebung pr黤en AFlanke=$ac_mea1 ;Flankenzustand vom Taster speichern If AFlanke=0 GotoF Fehl_3 ;Taster nicht ausgelenkt Stopre ;Messkoordinate lesen DMptli=$AA_MWX ;Messwert Plan speichern G4 F.2 ;System Neutralisierung G1 X=AC(Nomi_D) F500 ;freifahren Stopre ;Letzter aktiver Flankenzustand zur點ksetzen AFlanke=0 Stopre ;Part rechts antasten MePosX=Nomi_D+BoDu+(KugelDu/2) Stopre ;Digitaler Eingang Signalgeber vorhanden? If $A_Probe1=1 GotoF Fehl_2 G1 G94 ;Restweg l鰏chen aktiv Meas=1 G9 G63 X=AC(MePosX) F=Me_mm_min ;Werkst點k anfahren Stopre ;Signalgebung pr黤en AFlanke=$ac_mea1 ;Flankenzustand vom Taster speichern If AFlanke=0 GotoF Fehl_3 ;Taster nicht ausgelenkt Stopre ;Messkoordinate lesen DMptre=$AA_MWX ;Messwert Spindel speichern G4 F.2 ;System Neutralisierung ;Freifahren sichere Position G1 X=AC(Nomi_D) F500 ;freifahren M26 ;Function probe deselection, Funktion Messtaster Abwahl G0 Z1=VorPosZ+20 Stopre ;Werte in Tabelle 黚ertragen Hilp5=DMptli-KugelDu+Signal1 Hilp6=DMptre+KugelDu-Signal2 _Var2=(Hilp6-Hilp5)/2)-Bas_X _Var3=BoDu Stopre ;Letzter aktiver Flankenzustand zur點ksetzen AFlanke=0EndIf;-;Part Winkellage messenStopre ;Messart pr黤enIf artMess=2 Stopre ;Bezugwinkel zum suchen berechnen Hilp1=KugelDu/2 Hilp2=BoDu/2 Hilp3=Nomi_D/2 Hilp4=ATan2(Hilp2,Hilp3)+Hilp1 Cink=Hilp4 ;Round(Hilp4) M1=70 G54 CPos=PosC Hilp5=(360/CAng) ;Anzahl festlegen Stopre ;Bezug bestimmen, Winkellage messen SiAbstZ=15 ;Sicherheitsabstand f黵 Kugel vor Werkst點k Me_mm_min=25 ;Antastgeschwindigkeit in mm pro min VorPosZ=MePosZ1+SiAbstZ+(KugelDu/2) ;Eilgang Vorpos L鋘gsachse MePosZ=MePosZ1 ;Messposition L鋘gsachse MePosX=Nomi_D ;Eilgang Zielpunkt Planachse Setms(1) M1=70 G54 G0 C11=DC(PosC) ;Anfahren Mitte Bohrung bzw. Teilkreis G0 X=MePosX NPV_Z2(MePosZ2) G0 Z1=VorPosZ Run: M1=70 G54 G0 C11=DC(CPos) M25 ;Function probe selection, Funktion Messtaster Anwahl G4 F=Time ;Taster Zeit Neutralisierung G1 G94 Z1=MePosZ+KugelDu F500 Stopre ;Digitaler Eingang Signalgeber vorhanden? If $A_Probe1=1 GotoF Fehl_2 G1 G94 ;Restweg l鰏chen aktiv Stopre ;Pr黤en ob Bohrung vorhanden Meas=1 Z1=MePosZ F=100 ;in die Bohrung fahren Stopre ;Signalgebung pr黤en AFlanke=$ac_mea1 ;Flankenzustand vom Taster speichern If AFlanke=1 Z1=MePosZ+SiAbstZ+10 F1000 GotoF Fehl_5