0 BEGIN PGM 30151_DE MM 1 ;NC-Programm zur Berechnung und Bearbeitung 2 ;der im NC-Programm 3015_de.h definierten 3 ;Koerper. Die Steuerung fuehrt als erstes 4 ;einige Berechnungen durch. Danach fuehrt 5 ;sie die Bearbeitungen aus. 6 ;Bei der Bearbeitung der Pyramide 7 ;berechnet die Steuerung nach jedem 8 ;Zyklusaufruf die Kontur fuer die naechste 9 ;Tiefenzustellung neu. 10 ;Alle fuer die Bearbeitung noetigen Parameter 11 ;definieren Sie im NC-Programm 3015_de.h. 12 ;Deshalb muessen Sie in diesem NC-Programm 13 ;keine Anpassungen vornehmen 14 ; 15 ;Aufruf der Berechnungen 16 CALL LBL 10 ;Definition der Startwerte 17 CALL LBL 11 ;Berechnung der Schrittwerte 18 CALL LBL 13 ;Aktualisierung der Konturparameter 19 ; 20 ;Spruenge fuer den Bearbeitungsumfang 21 FN 9: IF +Q0 EQU +1 GOTO LBL 22 ;Sprung bei Bearbeitungsumfang=1 22 FN 9: IF +Q0 EQU +3 GOTO LBL 21 ;Sprung bei Bearbeitungsumfang=3 23 ; 24 ;Bearbeitung Planfraesen 25 ;Kontur der aeusseren Begrenzung 26 CYCL DEF 14.0 KONTUR 27 CYCL DEF 14.1 KONTURLABEL1 28 CYCL DEF 20 KONTUR-DATEN ~ Q1=-Q60 ;FRAESTIEFE ~ Q2=+1 ;BAHN-UEBERLAPPUNG ~ Q3=+0 ;AUFMASS SEITE ~ Q4=+0 ;AUFMASS TIEFE ~ Q5=+0 ;KOOR. OBERFLAECHE ~ Q6=+Q55 ;SICHERHEITS-ABST. ~ Q7=+Q55 ;SICHERE HOEHE ~ Q8=+0 ;RUNDUNGSRADIUS ~ Q9=+1 ;DREHSINN 29 CYCL DEF 22 AUSRAEUMEN ~ Q10=-Q80 ;ZUSTELL-TIEFE ~ Q11=+Q50 ;VORSCHUB TIEFENZ. ~ Q12=+Q51 ;VORSCHUB RAEUMEN ~ Q18=+0 ;VORRAEUM-WERKZEUG ~ Q19=+0 ;VORSCHUB PENDELN ~ Q208=+99999 ;VORSCHUB RUECKZUG ~ Q401=+100 ;VORSCHUBFAKTOR ~ Q404=+0 ;NACHRAEUMSTRATEGIE 30 L Z+Q55 R0 F9999 M3 ;Auf Sicherheitsabstand vorpositionieren 31 CYCL CALL ;Zyklusaufruf 32 ; 33 LBL 22 ;Sprungmarke fuer Bearbeitungsumfang=1 34 ; 35 FN 9: IF +Q0 EQU +2 GOTO LBL 21 ;Sprung bei Bearbeitungsumfang=2 36 ; 37 ;Bearbeitung Zapfen 38 ;Konturen der aeussere Begrenzung und des Zapfens 39 CYCL DEF 14.0 KONTUR 40 CYCL DEF 14.1 KONTURLABEL1 /3 41 CYCL DEF 20 KONTUR-DATEN ~ Q1=-Q59 ;FRAESTIEFE ~ Q2=+1 ;BAHN-UEBERLAPPUNG ~ Q3=+Q54 ;AUFMASS SEITE ~ Q4=+0 ;AUFMASS TIEFE ~ Q5=+0 ;KOOR. OBERFLAECHE ~ Q6=+Q55 ;SICHERHEITS-ABST. ~ Q7=+Q55 ;SICHERE HOEHE ~ Q8=+0 ;RUNDUNGSRADIUS ~ Q9=+1 ;DREHSINN 42 CYCL DEF 22 AUSRAEUMEN ~ Q10=-Q80 ;ZUSTELL-TIEFE ~ Q11=+Q50 ;VORSCHUB TIEFENZ. ~ Q12=+Q51 ;VORSCHUB RAEUMEN ~ Q18=+0 ;VORRAEUM-WERKZEUG ~ Q19=+0 ;VORSCHUB PENDELN ~ Q208=+99999 ;VORSCHUB RUECKZUG ~ Q401=+100 ;VORSCHUBFAKTOR ~ Q404=+0 ;NACHRAEUMSTRATEGIE 43 L Z+Q55 R0 FMAX ;Auf Sicherheitsabstand vorpositionieren 44 CYCL CALL ;Zyklusaufruf 45 ; 46 LBL 21 ;Sprungmarke fuer Bearbeitungsumfang=2 oder 3 47 ; 48 LBL 12 ;Sprungmarke fuer Wiederholung 49 ; 50 ;Bearbeitung Pyramide 51 ;Kontur der Pyramide 52 CYCL DEF 14.0 KONTUR 53 CYCL DEF 14.1 KONTURLABEL2 54 CYCL DEF 25 KONTUR-ZUG ~ Q1=-Q88 ;FRAESTIEFE ~ Q3=+0 ;AUFMASS SEITE ~ Q5=+0 ;KOOR. OBERFLAECHE ~ Q7=+Q55 ;SICHERE HOEHE ~ Q10=-Q88 ;ZUSTELL-TIEFE ~ Q11=+Q50 ;VORSCHUB TIEFENZ. ~ Q12=+Q52 ;VORSCHUB RAEUMEN ~ Q15=+1 ;FRAESART 55 L Z+Q55 R0 FMAX ;Auf Sicherheitsabstand vorpositionieren 56 CYCL CALL ;Zyklusaufruf 57 CALL LBL 13 ;Aufruf Aktualisierung der Konturparameter 58 ; 59 ;Pruefung der aktuellen Tiefe 60 FN 12: IF +Q70 LT +Q57 GOTO LBL 12 ;Sprung, wenn Fertigtiefe kleiner aktueller Tiefe 61 FN 9: IF +Q70 EQU +Q57 GOTO LBL 12 ;Sprung, wenn Fertigtiefe gleich aktueller Tiefe 62 ; 63 ;Bearbeitung abgeschlossen 64 FN 9: IF +0 EQU +0 GOTO LBL 99 ;Sprung zum Programmende 65 ; 66 ;Unterprogramme 67 ;Konturen 68 LBL 1 ;Aeussere Begrenzung 69 L X+Q61 Y+Q62 RR ;Konturstart 1. Ecke 70 L X+Q63 Y+Q64 ;2. Ecke 71 L X+Q65 Y+Q66 ;3. Ecke 72 L X+Q67 Y+Q68 ;4. Ecke 73 L X+Q61 Y+Q62 ;Konturende 1. Ecke 74 LBL 0 75 ; 76 LBL 3 ;Zapfen 77 L X+Q84 Y+Q85 RL ;Konturstartpunkt 78 L X+Q43 Y+Q44 ;1. Ecke 79 RND RQ49 ;Eckradius 80 L X+Q45 Y+Q46 ;2. Ecke 81 RND RQ49 ;Eckradius 82 L X+Q47 Y+Q48 ;3. Ecke 83 RND RQ49 ;Eckradius 84 L X+Q41 Y+Q42 ;4. Ecke 85 RND RQ49 ;Eckradius 86 L X+Q84 Y+Q85 ;Konturendpunkt 87 LBL 0 88 ; 89 LBL 2 ;Pyramide 90 L X+Q82 Y+Q83 RL ;Konturstartpunkt 91 L X+Q93 Y+Q94 ;1. Ecke 92 RND RQ99 ;Eckradius 93 L X+Q95 Y+Q96 ;2. Ecke 94 RND RQ99 ;Eckradius 95 L X+Q97 Y+Q98 ;3. Ecke 96 RND RQ99 ;Eckradius 97 L X+Q91 Y+Q92 ;4. Ecke 98 RND RQ99 ;Eckradius 99 L X+Q82 Y+Q83 ;Konturendpunkt 100 LBL 0 101 ; 102 ;Berechnungen 103 LBL 10 ;Startwerte 104 FN 0: Q91 =+Q31 ;X-Koordinate 1. Ecke 105 FN 0: Q92 =+Q32 ;Y-Koordinate 1. Ecke 106 FN 0: Q93 =+Q33 ;X-Koordinate 2. Ecke 107 FN 0: Q94 =+Q34 ;Y-Koordinate 2. Ecke 108 FN 0: Q95 =+Q35 ;X-Koordinate 3. Ecke 109 FN 0: Q96 =+Q36 ;Y-Koordinate 3. Ecke 110 FN 0: Q97 =+Q37 ;X-Koordinate 4. Ecke 111 FN 0: Q98 =+Q38 ;Y-Koordinate 4. Ecke 112 FN 0: Q99 =+Q39 ;Eckradius 113 LBL 0 114 LBL 11 ;Schrittwerte 115 FN 0: Q70 =+0 ;Zaehler der Schritte 116 Q71 = ( Q41 - Q31 ) / Q57 ;Veraenderung X-Koordinate 1. Ecke je Schritt 117 Q72 = ( Q42 - Q32 ) / Q57 ;Veraenderung Y-Koordinate 1. Ecke je Schritt 118 Q73 = ( Q43 - Q33 ) / Q57 ;Veraenderung X-Koordinate 2. Ecke je Schritt 119 Q74 = ( Q44 - Q34 ) / Q57 ;Veraenderung Y-Koordinate 2. Ecke je Schritt 120 Q75 = ( Q45 - Q35 ) / Q57 ;Veraenderung X-Koordinate 3. Ecke je Schritt 121 Q76 = ( Q46 - Q36 ) / Q57 ;Veraenderung Y-Koordinate 3. Ecke je Schritt 122 Q77 = ( Q47 - Q37 ) / Q57 ;Veraenderung X-Koordinate 4. Ecke je Schritt 123 Q78 = ( Q48 - Q38 ) / Q57 ;Veraenderung Y-Koordinate 4. Ecke je Schritt 124 Q79 = ( Q49 - Q39 ) / Q57 ;Veraenderung Eckradius je Schritt 125 Q82 = ( Q33 - Q31 ) / 2 + Q31 ;Konturstartpunkt X fuer Pyramide 126 Q83 = ( Q34 - Q32 ) / 2 + Q32 ;Konturstartpunkt Y fuer Pyramide 127 Q84 = ( Q43 - Q41 ) / 2 + Q41 ;Konturstartpunkt X fuer Zapfen 128 Q85 = ( Q44 - Q42 ) / 2 + Q42 ;Konturstartpunkt Y fuer Zapfen 129 Q86 = ( Q84 - Q82 ) / Q57 ;Veraenderung Konturstartpunkt Pyramide in X je Schritt 130 Q87 = ( Q85 - Q83 ) / Q57 ;Veraenderung Konturstartpunkt Pyramide in Y je Schritt 131 FN 4: Q80 =+Q59 DIV +Q56 ;Zustelltiefe fuer Zapfen 132 Q81 = ( Q58 - Q60 ) / Q57 ;Veraenderung Tiefe Pyramide je Schritt 133 FN 0: Q88 =+0 ;Starttiefe Pyramide 134 LBL 0 135 ; 136 LBL 13 ;Aktualisierung der Konturparameter 137 FN 1: Q70 =+Q70 + +1 ;Schrittzaehler erhoehen 138 FN 1: Q82 =+Q82 + +Q86 ;Neuer Konturstartpunkt in X 139 FN 1: Q83 =+Q83 + +Q87 ;Neuer Konturstartpunkt in Y 140 FN 1: Q88 =+Q88 + +Q81 ;Neue Tiefe 141 FN 1: Q91 =+Q91 + +Q71 ;Neue X-Koordinate 1. Ecke 142 FN 1: Q92 =+Q92 + +Q72 ;Neue Y-Koordinate 1. Ecke 143 FN 1: Q93 =+Q93 + +Q73 ;Neue X-Koordinate 2. Ecke 144 FN 1: Q94 =+Q94 + +Q74 ;Neue Y-Koordinate 2. Ecke 145 FN 1: Q95 =+Q95 + +Q75 ;Neue X-Koordinate 3. Ecke 146 FN 1: Q96 =+Q96 + +Q76 ;Neue Y-Koordinate 3. Ecke 147 FN 1: Q97 =+Q97 + +Q77 ;Neue X-Koordinate 4. Ecke 148 FN 1: Q98 =+Q98 + +Q78 ;Neue Y-Koordinate 4. Ecke 149 FN 1: Q99 =+Q99 + +Q79 ;Neuer Eckradius 150 LBL 0 151 ; 152 LBL 99 ;Sprungmarke Programmende 153 END PGM 30151_DE MM