0  BEGIN PGM 5025_DE MM 
1  ;Programm, um eine Bohrung, die im
2  ;im rechten Winkel zu der
3  ;Zylinderachse gebohrt ist, auf
4  ;der Zylindermantelflaeche
5  ;mit einem Formfraeser zu entgraten.
6  ;Die Bearbeitung erfolgt in den drei
7  ;Linearachsen, ohne die
8  ;Bearbeitungsebene zu schwenken.
9  ;Als erstes muessen Sie alle
10 ;notwendigen Parameter definieren.
11 ;Danach erfolgt in diesem Programm ein
12 ;Programmteil aus Werkzeugaufruf,
13 ;Positionierung und Bearbeitungs-
14 ;zyklus um die Bohrung zu erstellen.
15 ;Auch in diesem Programmteil muessen
16 ;Sie alle  Parameter defienieren,
17 ;da die zuvor beschriebenen Parameter
18 ;nur fuer das Entgraten wirksam sind.
19 ;Nach dem Bearbeiten der Bohrung
20 ;definieren Sie das Werkzeug mit dem
21 ;das Entgraten abgearbeitet werden
22 ;soll. Im Anschluss errechnet
23 ;die Steuerung die
24 ;Koordinaten fuer die einzelnen Achsen
25 ;und faehrt diese dann an.
26 ;Danach berechnet die Steuerung
27 ;den jeweils naechsten Punkt mit seiner
28 ;X, Y und Z Koordinate und faehrt
29 ;diesen an. Dies wird so oft
30 ;wiederholt, bis der Startpunkt wieder
31 ;erreicht ist.
32 ;In wie viele Punkte die Bearbeitung
33 ;aufgeteilt wird definieren Sie mit
34 ;dem Parameter TEILUNG.
35 ;!Wichtig! Die Steuerung berechnet die
36 ;Bahnbewegung fuer das Werkzeugzentrum.
37 ;Mit dem Parameter VERSATZ
38 ;WERKZEUGMITTE ZU RADIUS (Q7)
39 ;definieren Sie wie weit das
40 ;Werkzeugzentrum vom Bohrungsrand
41 ;entfernt gefuehrt wird. Dabei muessen
42 ;Sie das Vorzeichen beruecksichtigen,
43 ;bei einem positiven Wert wird die
44 ;Mittelpunktsbahn groesser dem Radius,
45 ;bei negativem kleiner.
46 ;
47 ;Parametereingabe
48 FN 0: Q3 =+100 ;RADIUS ZYLINDER
49 FN 0: Q4 =+100 ;TEILUNG
50 FN 0: Q5 =+3 ;TIEFE POSITIV ANGEBEN
51 FN 0: Q1 =+0 ;MITTE BOHRUNG IN X
52 FN 0: Q6 =+60 ;RADIUS BOHRUNG
53 FN 0: Q7 =-0.5 ;VERSATZ WERKZEUGMITTE ZU RADIUS
54 FN 0: Q10 =+20 ;SICHERHEITSABSTAND
55 FN 0: Q11 =+1000 ;VORSCHUB TIEFENZUSTELLUNG
56 FN 0: Q12 =+2000 ;VORSCHUB FRAESEN
57 ;Parametereingabe Ende
58 ;
59 BLK FORM CYLINDER X RQ3 L200 DIST+100
60 ;
61 ;Nullpunkt auf Bohrungsmitte und
62 ;Zylinderoberflaeche verschieben
63 CYCL DEF 7.0 NULLPUNKT
64 CYCL DEF 7.1  X+Q1
65 CYCL DEF 7.2  Z+Q3
66 ;
67 ;Werkzeugaufruf fuer die Bohrung
68 TOOL CALL 8 Z S3000 F800
69 ;
70 L  Z+100 R0 FMAX M3 ;Auf sichere Hoehe fahren
71 L  X+0  Y+0 R0 FMAX ;Bohrungsmitte anfahren
72 L  Z+Q10 R0 FMAX ;Auf Sicherheitsabstand fahren
73 FN 3: Q80 =+Q6 * +2 ;Berechnung Durchmesser Bohrung
74 ;Zyklus fuer die Bohrung
75 CYCL DEF 252 KREISTASCHE ~
    Q215=+0    ;BEARBEITUNGS-UMFANG ~
    Q223=+Q80  ;KREISDURCHMESSER ~
    Q368=+0    ;AUFMASS SEITE ~
    Q207= AUTO ;VORSCHUB FRAESEN ~
    Q351=+1    ;FRAESART ~
    Q201=-100  ;TIEFE ~
    Q202=+10   ;ZUSTELL-TIEFE ~
    Q369=+0    ;AUFMASS TIEFE ~
    Q206=+300  ;VORSCHUB TIEFENZ. ~
    Q338=+0    ;ZUST. SCHLICHTEN ~
    Q200=+2    ;SICHERHEITS-ABST. ~
    Q203=+0    ;KOOR. OBERFLAECHE ~
    Q204=+50   ;2. SICHERHEITS-ABST. ~
    Q370=+1    ;BAHN-UEBERLAPPUNG ~
    Q366=+1    ;EINTAUCHEN ~
    Q385=+500  ;VORSCHUB SCHLICHTEN
76 M99
77 L  Z+100 R0 FMAX ;Freifahren
78 ;
79 ;Werkzeugaufruf fuer das Entgraten
80 TOOL CALL 170 Z S12000
81 ;
82 L  Z+100 R0 FMAX M3 ;Auf sichere Hoehe fahren
83 CALL LBL 1 ;Beartbeitung aufrufen
84 ;
85 ;Freifahren und Programmende
86 L  Z+100 R0 FMAX M30
87 ;
88 ;Unterprogramme fuer die Bearbeitung
89 LBL 1
90 FN 0: Q23 =+Q5 ;erste Tiefe gleich Solltiefe
91 FN 0: Q24 =+0 ;Zaehler
92 FN 1: Q26 =+Q6 + +Q7 ;Verrechnung Fraeserversatz
93 FN 0: Q27 =+0 ;Startwinkel
94 FN 4: Q37 =+360 DIV +Q4 ;Winkelschritt
95 CALL LBL 10 ;Aufruf Berechnungen
96 L  X+Q21  Y+Q22 FMAX ;Erste Position anfahren
97 L  Z+Q10 R0 FMAX ;Auf Sicherheitsabstand fahren
98 L  Z-Q23 FQ11 ;Auf Tiefe fahren
99 LBL 2 ;Wiederholungen
100 FN 1: Q24 =+Q24 + +1 ;Zaehler aktualisieren
101 FN 1: Q27 =+Q27 + +Q37 ;Winkel aktualisieren
102 CALL LBL 10 ;Aufruf Berechnungen
103 L  X+Q21  Y+Q22  Z-Q23 FQ12 ;Neue Position anfahren
104 FN 12: IF +Q24 LT +Q4 GOTO LBL 2 ;Vergleich, ob Anzahl der Wiederholungen erreicht
105 LBL 0
106 LBL 10 ;Berechnungen
107 Q21 = Q26 * COS Q27 ;Neue X-Position
108 Q22 = Q26 * SIN Q27 ;Neue Y-Position
109 Q23 = Q3 - ( SQRT ( Q3 * Q3 - Q22 * Q22 ) ) + Q5 ;Neue Z-Position
110 LBL 0
111 END PGM 5025_DE MM