0  BEGIN PGM 2150_DE MM 
1  ;NC-Programm, um eine Kreistasche zu fertigen
2  ;bei der Taschengrund und Mantelflaeche
3  ;miteinander verrundet werden.
4  ;Die Bearbeitung erfolgt mit mit einem
5  ;Torusfraeser.
6  ;Nachdem Sie die notwendigen Parameter und
7  ;das Werkzeug definiert haben fuehrt die
8  ;Steuerung einige Berechnungen durch.
9  ;Im Anschluss fraest sie die Kontur mit
10 ;Kreistaschen vor. Danach erfolgt ein erneuter
11 ;Werkzeugaufruf allerdings mit einer
12 ;Laengenkorrektur um den Schneidenradius
13 ;R2, damit die berechnete Werkzeuglaenge im
14 ;Zentrum der Schneide definiert ist.
15 ;Anschliessend berechnet die Steuerung in
16 ;einer Schleife die Werkzeugbahn in
17 ;Hoehenlinien um den Radius zu fertigen und
18 ;arbeitet diese ab.
19 ;!Hinweis! Die Taschenmitte liegt bei X/Y 0
20 ;und die Oberkante der Tasche ist Z0.
21 ;Sie muessen bei Bedarf den Nullpunkt auf
22 ;das Zentrum und die Hoehe der Tasche
23 ;verschieben.
24 ;
25 ;Parametereingabe
26 Q1600 = 100 ;DURCHMESSER
27 Q1601 = 50 ;TIEFE
28 Q1602 = 15 ;VERRUNDUNGSRADIUS
29 Q1603 = 5 ;SICHERHEITSABSTAND
30 Q1604 = 50 ;2. SICHERHEITSABSTAND
31 Q1605 = 1 ;WINKELSCHRITT IM RADIUS
32 Q1606 = 12.5 ;WERKZEUGRADIUS
33 Q1607 = 5 ;WERKZEUGSCHNEIDENRADIUS R2
34 Q1608 = 3000 ;FRAESVORSCHUB
35 Q1609 = 5 ;ZUSTELLTIEFE BEIM VORFRAESEN
36 ;Parametereingabe Ende
37 ;
38 BLK FORM 0.1 Z X-60 Y-60 Z-70
39 BLK FORM 0.2  X+60  Y+60  Z+0
40 ;
41 ;Werkzeugaufruf zum Fraesen der Taschen
42 TOOL CALL "TORUS_MILL_D25_5" Z S14000
43 ;
44 ;Berechnungen
45 FN 2: Q1610 =+Q1601 - +Q1602 ;Tiefe 1.Tasche
46 Q1611 = Q1600 - ( 2 * Q1602 ) ;Durchmesser 2.Tasche
47 Q1612 = Q1610 + Q1605 ;2. Sicherheitsabstand 2. Tasche
48 ;Berechnungen Ende
49 ;
50 ;Freifahren
51 L  Z+100 R0 FMAX M3
52 ;
53 ;1.Tasche fraesen
54 CYCL DEF 252 KREISTASCHE ~
    Q215=+1    ;BEARBEITUNGS-UMFANG ~
    Q223=+Q1600 ;KREISDURCHMESSER ~
    Q368=+0    ;AUFMASS SEITE ~
    Q207=+Q1608 ;VORSCHUB FRAESEN ~
    Q351=+1    ;FRAESART ~
    Q201=-Q1610 ;TIEFE ~
    Q202=+Q1609 ;ZUSTELL-TIEFE ~
    Q369=+0    ;AUFMASS TIEFE ~
    Q206=+Q1608 ;VORSCHUB TIEFENZ. ~
    Q338=+0    ;ZUST. SCHLICHTEN ~
    Q200=+Q1603 ;SICHERHEITS-ABST. ~
    Q203=+0    ;KOOR. OBERFLAECHE ~
    Q204=+50   ;2. SICHERHEITS-ABST. ~
    Q370=+0.4  ;BAHN-UEBERLAPPUNG ~
    Q366=+1    ;EINTAUCHEN ~
    Q385=+Q1608 ;VORSCHUB SCHLICHTEN
55 L  X+0  Y+0 R0 FMAX M99
56 ;
57 ;Fraesen 2.Tasche
58 CYCL DEF 252 KREISTASCHE ~
    Q215=+1    ;BEARBEITUNGS-UMFANG ~
    Q223=+Q1611 ;KREISDURCHMESSER ~
    Q368=+0    ;AUFMASS SEITE ~
    Q207=+Q1608 ;VORSCHUB FRAESEN ~
    Q351=+1    ;FRAESART ~
    Q201=-Q1602 ;TIEFE ~
    Q202=+Q1609 ;ZUSTELL-TIEFE ~
    Q369=+0    ;AUFMASS TIEFE ~
    Q206=+Q1608 ;VORSCHUB TIEFENZ. ~
    Q338=+0    ;ZUST. SCHLICHTEN ~
    Q200=+Q1603 ;SICHERHEITS-ABST. ~
    Q203=-Q1610 ;KOOR. OBERFLAECHE ~
    Q204=+Q1612 ;2. SICHERHEITS-ABST. ~
    Q370=+0.4  ;BAHN-UEBERLAPPUNG ~
    Q366=+1    ;EINTAUCHEN ~
    Q385=+Q1608 ;VORSCHUB SCHLICHTEN
59 L  X+0  Y+0 R0 FMAX M99
60 ;
61 ;Werkzeugaufruf zum Fraesen des Radius
62 ;inklusive einem DL zum Zentrum des R2
63 TOOL CALL  Z DL-Q1607
64 ;
65 L  Z+100 R0 FMAX ;Fahren auf sichere Hoehe
66 L  X+0  Y+0 R0 FMAX ;Fahren ins Kreiszentrum
67 ;
68 ;
69 L  Z+Q1603 R0 FMAX ;Sicherheitsabstand anfahren
70 Q1609 = Q1600 / 2 - Q1602 ;Radius D2
71 Q1610 = Q1606 - Q1607 ;R1 Werkzeug
72 Q1611 = Q1601 - Q1602 ;Konturanfang Z
73 L  Z-Q1611 R0 F3000 ;Vorpositionierung in Z
74 Q1612 = Q1600 / 2 - ( Q1606 - Q1607 ) - Q1607 * COS 0 ;Anfahrposition X
75 L  X+Q1612  Y+0 R0 FQ1608 ;Anfahren Konturanfang in X
76 CC  X+0  Y+0 ;Kreismittelpunkt
77 C DR+ ;Kreisbahn fahren
78 Q1613 = 90 ;Endwinkel
79 Q1614 = 0 ;aktueller Winkel
80 LBL 10 ;Schleife
81 Q1614 = Q1614 + Q1605 ;aktuellen Winkel mit Winkelschritt addieren
82 Q1615 = Q1609 + Q1602 * COS Q1614 ;Konturpunkt in X berechnen
83 Q1616 = Q1611 + Q1602 * SIN Q1614 ;Konturpunkt in Z berechnen
84 ;
85 Q1617 = Q1615 - Q1610 - Q1607 * COS Q1614 ;Bahnposition X
86 Q1618 = Q1616 - Q1607 * SIN Q1614 ;Bahnposition Z
87 ;
88 L  X+Q1617  Z-Q1618 ;berechneten X- und Z-Wert anfahren
89 C DR+ ;Kreisbahn fahren
90 ;
91 FN 12: IF +Q1614 LT +Q1613 GOTO LBL 10 ;Wenn aktueller Winkel kleiner Endwinkel wiederhole Schleife
92 ;
93 L  Z+Q1604 R0 FMAX ;2. Sicherheitsabstand anfahren
94 ;
95 ;Freifahren und Programmende
96 L  Z+100 R0 FMAX M30
97 END PGM 2150_DE MM