0 BEGIN PGM Lochkreis MM 1 BLK FORM 0.1 Z X-76 Y-76 Z-132.7 2 BLK FORM 0.2 X+76 Y+76 Z+0 3 ; 4 ; Variablen fuer Bohren definieren 5 ; 6 Q10 = 38 ; Werkzeug 7 Q11 = 40 ; Vc 8 Q12 = 67.5 ; Tiefe 9 Q13 = 1.5 ; Spanbruch / Zustellung 10 ; 11 ; Variablen fuer Lochkreis definieren 12 ; 13 Q1 = 0 ; X Mittelpunkt 14 Q2 = 0 ; Y Mittelpunkt 15 Q3 = 96 ; Durchmesser 16 Q5 = 6 ; Anzahl 17 Q7 = 30 ; Startwinkel 18 ; 19 ; Ab hier nichts mehr aendern!! 20 ; 21 Q4 = Q3 / 2 ; Berechnung Radius 22 Q6 = 360 / Q5 ; Berechnung Winkel 23 Q8 = Q7 - Q6 ; Berechnung Startwinkel 24 L Y+0 Z+0 FMAX M91 25 TOOL CALL Q10 Z S( VC = Q11 ) 26 CYCL DEF 301 ~ Q1998=+1 27 CYCL DEF 205 UNIVERSAL-TIEFBOHREN ~ Q200=+5 ;SICHERHEITS-ABST. ~ Q201=-Q12 ;TIEFE ~ Q206= FU+0.1 ;VORSCHUB TIEFENZ. ~ Q202=+Q13 ;ZUSTELL-TIEFE ~ Q203=+0 ;KOOR. OBERFLAECHE ~ Q204=+50 ;2. SICHERHEITS-ABST. ~ Q212=+0 ;ABNAHMEBETRAG ~ Q205=+Q13 ;MIN. ZUSTELL-TIEFE ~ Q258=+0.5 ;VORHALTEABSTAND OBEN ~ Q259=+0.5 ;VORHALTEABST. UNTEN ~ Q257=+Q13 ;BOHRTIEFE SPANBRUCH ~ Q256=+0.5 ;RZ BEI SPANBRUCH ~ Q211=+0 ;VERWEILZEIT UNTEN ~ Q379=+0 ;STARTPUNKT ~ Q253=+1000 ;VORSCHUB VORPOS. 28 CC X+Q1 Y+Q2 29 Q9 = 1 ; ZAEHLER 30 LP PR+Q4 PA+Q8 FMAX 31 LBL "REPLAY" 32 M3 M55 33 FN 11: IF +Q9 GT +Q5 GOTO LBL "ENDE" 34 LP PR+Q4 IPA+Q6 FMAX M99 35 Q9 = Q9 + 1 36 M140 MB MAX 37 STOP M5 M9 38 FN 9: IF +0 EQU +0 GOTO LBL "REPLAY" 39 LBL "ENDE" 40 L Y+0 Z+0 FMAX M91 41 TOOL CALL 32 Z S100 42 CYCL DEF 301 ~ Q1998=+1 43 L Y+0 Z+0 FMAX M91 M30 44 END PGM Lochkreis MM