0  BEGIN PGM 3250_DE MM 
1  ;NC-Programm um eine Kontur mit dem Zyklus 25
2  ;zu bearbeiten und anschliessend die 
3  ;Oberkante mit einem Radius abzurunden.
4  ;Den Radius 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 etwas 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 Radiusfraesen
28 TOOL CALL "TORUS_MILL_D16_3" Z S6000 F2000
29 ;
30 L  Z+100 R0 FMAX M3 ;Freifahren
31 ;
32 ;Parametereingabe fuer Rundung
33 Q50 = 6 ;KANTENRADIUS
34 Q51 = 3 ;ZUSTELLUNG IN GRAD
35 CALL LBL "RADIUS" ;Aufruf Unterprogramm fuers Radiusfraesen
36 ;
37 L  Z+100 R0 FMAX ;Freifahren
38 M30 ;Programmende
39 ;
40 ;Unterprogramme
41 LBL 10 ;Kontur
42 L  X+10  Y+10
43 L  Y+90
44 CR  X+90  Y+90 R+100 DR+
45 L  Y+10
46 CR  X+10  Y+10 R+100 DR-
47 LBL 0
48 ;
49 ;Unterprogramm fuer den Radius
50 LBL "RADIUS"
51 CYCL DEF 14.0 KONTUR
52 CYCL DEF 14.1 KONTURLABEL10
53 CYCL DEF 270 KONTURZUG-DATEN ~
    Q390=+2    ;ANFAHRART ~
    Q391=+1    ;RADIUS-KORREKTUR ~
    Q392=+0    ;RADIUS ~
    Q393=+0    ;MITTELPUNKTSWINKEL ~
    Q394=+0    ;ABSTAND
54 FN 18: SYSREAD Q65 = ID50 NR3 ;R2 vom aktiven Werkzeug auslesen
55 Q61 = 0 ;Startwinkel
56 LBL 1 ;Sprungmarke
57 Q61 = Q61 + Q51 ;Winkel weiter takten
58 FN 11: IF +Q61 GT +90 GOTO LBL "ENDE1" ;Pruefen, ob Winkel groesser 90 Grad
59 FN 9: IF +Q61 EQU +90 GOTO LBL "ENDE1" ;Pruefen, ob Winkel gleich 90 Grad
60 Q62 = ( Q50 - COS Q61 * Q50 ) + ( Q65 - COS Q61 * Q65 ) ;Fraestiefe fuer Hoehenlinie berechnen
61 Q63 = ( Q50 - SIN Q61 * Q50 ) + ( Q65 - SIN Q61 * Q65 ) ;Aufmass fuer Hoehenlinie berechnen
62 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
63 M99 ;Zyklusaufruf
64 FN 9: IF +0 EQU +0 GOTO LBL 1 ;Sprung
65 ;
66 ;Unterprogramm fuer die letzte Hoehenlinie
67 LBL "ENDE1"
68 Q61 = 90 ;Endwinkel
69 Q62 = ( Q50 - COS Q61 * Q50 ) + ( Q65 - COS Q61 * Q65 ) ;Tiefe der letzten Hoehenlinie
70 Q63 = ( Q50 - SIN Q61 * Q50 ) + ( Q65 - SIN Q61 * Q65 ) ;Aufmass fuer die letzte Hoehenlinie
71 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
72 M99 ;Zyklusaufruf
73 L  Z+20 R0 FMAX ;Freifahren
74 LBL 0
75 END PGM 3250_DE MM