0  BEGIN PGM 3255_DE MM 
1  ;NC-Programm um eine Kontur mit dem Zyklus 25
2  ;zu bearbeiten und anschliessend an der 
3  ;Oberkante eine Fase abzuzeilen.
4  ;Die Fase zeilt die Steuerung in
5  ;Hoehenlinien ab. Fuer die Berechnung der
6  ;Hoehenlinien liest die Steuerung den
7  ;Werkzeug-Radius 2 aus der Werkzeugtabelle.
8  ;So kann die Bearbeitung mit einem
9  ;Schaftfraeser, einem Kugelfraeser oder einem
10 ;Torusfraeser durchgefuehrt werden, ohne das
11 ;Sie am NC-Programm etwas veraendern. 
12 ;
13 BLK FORM 0.1 Z X+0 Y+0 Z-20
14 BLK FORM 0.2  X+100  Y+100  Z+0
15 ;
16 ;Werkzeugaufruf fuers Konturfraesen
17 TOOL CALL "MILL_D24_ROUGH" Z S6000 F2000
18 ;
19 L  Z+100 R0 FMAX M3 ;Freifahren
20 ;
21 CYCL DEF 14.0 KONTUR
22 CYCL DEF 14.1 KONTURLABEL10
23 CYCL DEF 270 KONTURZUG-DATEN ~
    Q390=+2    ;ANFAHRART ~
    Q391=+1    ;RADIUS-KORREKTUR ~
    Q392=+10   ;RADIUS ~
    Q393=+90   ;MITTELPUNKTSWINKEL ~
    Q394=+0    ;ABSTAND
24 CYCL DEF 25 KONTUR-ZUG ~
    Q1=-15   ;FRAESTIEFE ~
    Q3=+0    ;AUFMASS SEITE ~
    Q5=+0    ;KOOR. OBERFLAECHE ~
    Q7=+50   ;SICHERE HOEHE ~
    Q10=-5    ;ZUSTELL-TIEFE ~
    Q11=+150  ;VORSCHUB TIEFENZ. ~
    Q12=+500  ;VORSCHUB RAEUMEN ~
    Q15=+1    ;FRAESART ~
    Q18=+0    ;VORRAEUM-WERKZEUG ~
    Q446=+0.01 ;RESTMATERIAL ~
    Q447=+10   ;VERBINDUNGSABSTAND ~
    Q448=+2    ;BAHNVERLAENGERUNG
25 M99 ;Zyklusaufruf
26 ;
27 ;Werkzeugaufruf fuers Fase fraesen
28 TOOL CALL "BALL_MILL_D10" Z S6000 F2000
29 ;
30 L  Z+100 R0 FMAX M3
31 ;
32 ;Parametereingabe fuer Fase
33 Q50 = 30 ;FASENWINKEL
34 Q51 = 0.2 ;ABSTAND DER HOEHENLINIEN
35 Q52 = 2.5 ;FASENLAENGE OBEN
36 CALL LBL "FASE" ;Aufruf Unterprogramm fuers Fase fraesen
37 ;
38 L  Z+100 R0 FMAX ;Freifahren
39 M30 ;Programmende
40 ;
41 ;Unterprogramme
42 LBL 10 ;Kontur
43 L  X+10  Y+10
44 L  Y+90
45 CR  X+90  Y+90 R+100 DR+
46 L  Y+10
47 CR  X+10  Y+10 R+100 DR-
48 LBL 0
49 ;
50 ;Unterprogramm fuer die Fase
51 LBL "FASE"
52 CYCL DEF 14.0 KONTUR
53 CYCL DEF 14.1 KONTURLABEL10
54 Q49 = Q108 + 2 ;Radius fuer weiches Anfahren
55 CYCL DEF 270 KONTURZUG-DATEN ~
    Q390=+2    ;ANFAHRART ~
    Q391=+1    ;RADIUS-KORREKTUR ~
    Q392=+Q49  ;RADIUS ~
    Q393=+90   ;MITTELPUNKTSWINKEL ~
    Q394=+0    ;ABSTAND
56 FN 18: SYSREAD Q65 = ID50 NR3 ;R2 vom aktiven Werkzeug auslesen
57 Q61 = 0 ;Z Beginn
58 LBL 1
59 Q60 = Q52 / ( TAN Q50 ) ;Z Gesamttiefe
60 Q61 = Q61 + Q51 ;Z-Koordinate der neuen Hoehenlinie berechnen
61 FN 11: IF +Q61 GT +Q60 GOTO LBL "ENDE1" ;Pruefen ob neue Tiefe groesser Gesamttiefe
62 FN 9: IF +Q61 EQU +Q60 GOTO LBL "ENDE1" ;Pruefen ob neue Tiefe gleich Gesamttiefe
63 Q62 = Q61 + ( Q65 - SIN Q50 * Q65 ) ;Berechnen der neuen Z-Koordinate unter Beruecksichtigung des Werkzeugradius R2  
64 Q63 = ( Q52 - TAN Q50 * Q61 ) + ( Q65 - COS Q50 * Q65 ) ;Aufmass fuer Hoehenlinie berechnen
65 CYCL DEF 25 KONTUR-ZUG ~
    Q1=-Q62  ;FRAESTIEFE ~
    Q3=-Q63  ;AUFMASS SEITE ~
    Q5=+0    ;KOOR. OBERFLAECHE ~
    Q7=+2    ;SICHERE HOEHE ~
    Q10=-Q62  ;ZUSTELL-TIEFE ~
    Q11= AUTO ;VORSCHUB TIEFENZ. ~
    Q12= AUTO ;VORSCHUB RAEUMEN ~
    Q15=+1    ;FRAESART ~
    Q18=+0    ;VORRAEUM-WERKZEUG ~
    Q446=+0.01 ;RESTMATERIAL ~
    Q447=+10   ;VERBINDUNGSABSTAND ~
    Q448=+2    ;BAHNVERLAENGERUNG
66 M99 ;Zyklusaufruf
67 FN 9: IF +0 EQU +0 GOTO LBL 1 ;Sprung
68 ;
69 ;Unterprogramm fuer die letzte Hoehenlinie
70 LBL "ENDE1"
71 Q61 = Q60 ;Endtiefe
72 Q62 = Q61 + ( Q65 - SIN Q50 * Q65 ) ;Z-Koordinate unter Beruecksichtigung des Werkzeugradius R2 
73 Q63 = ( Q52 - TAN Q50 * Q61 ) + ( Q65 - COS Q50 * Q65 ) ;Aufmass fuer Hoehenlinie berechnen
74 CYCL DEF 25 KONTUR-ZUG ~
    Q1=-Q62  ;FRAESTIEFE ~
    Q3=-Q63  ;AUFMASS SEITE ~
    Q5=+0    ;KOOR. OBERFLAECHE ~
    Q7=+2    ;SICHERE HOEHE ~
    Q10=-Q62  ;ZUSTELL-TIEFE ~
    Q11= AUTO ;VORSCHUB TIEFENZ. ~
    Q12= AUTO ;VORSCHUB RAEUMEN ~
    Q15=+1    ;FRAESART ~
    Q18=+0    ;VORRAEUM-WERKZEUG ~
    Q446=+0.01 ;RESTMATERIAL ~
    Q447=+10   ;VERBINDUNGSABSTAND ~
    Q448=+2    ;BAHNVERLAENGERUNG
75 M99 ;Zyklusaufruf
76 L  Z+20 R0 FMAX ;Freifahren
77 LBL 0
78 END PGM 3255_DE MM