0  BEGIN PGM 3200_DE MM 
1  ;NC-Programm zum Erstellen einer
2  ;Kabeldurchfuehrung. Diese besteht aus einer
3  ;Bohrung und einer Nut, die als
4  ;Knickschutz mit einem Radius verrundet
5  ;werden. Die Bearbeitung erfolgt mit nur einem
6  ;Werkzeug.
7  ;Am Programmanfang definieren Sie alle fuer
8  ;die Bearbeitung noetigen Parameter und das
9  ;Werkzeug. Bei diesem ist zu beachten, dass
10 ;es senkrecht eintauchen kann und die
11 ;Schneidenlaenge in der Werkzeugachse laenger
12 ;ist als der zu erzeugende Rundungsradius.
13 ;Im Anschluss positioniert die Steuerung das
14 ;Werkzeug zunaechst an der Bohrposition und
15 ;dann auf den Sicherheitsabstand. Danach
16 ;faehrt die Steuerung das Werkzeug, im
17 ;definierten Bohrvorschub, auf die Bohrtiefe.
18 ;Wenn diese erreicht ist, zieht sie das
19 ;Werkzeug zurueck auf die Tiefe der Nut
20 ;und verfaehrt dann, im Fraesvorschub, um die
21 ;Nutlaenge. Bitte beachten Sie, dass diese
22 ;Bewegung immer in X+ Richtung gefahren wird.
23 ;Die Richtung der Nut definieren Sie mit dem
24 ;Parameter Rotation.
25 ;Wenn der Endpunkt der Nut erreicht ist, dann
26 ;faehrt die Steuerung das Werkzeug auf den
27 ;Sicherheitsabstand und danach wieder auf das
28 ;Bohrungszentrum. Dort faehrt sie das
29 ;Werkzeug in der Z-Achse auf den Startpunkt
30 ;des Radius.
31 ;Den Radius teilt die Steuerung in einzelne
32 ;lineare Abschnitte und faehrt diese in einer
33 ;Programmteilwiederholung. Die Anzahl der
34 ;Bahnen legen Sie im Parameter Q12 fest.
35 ;
36 ;
37 ;
38 BLK FORM 0.1 Z X-10 Y-10 Z-30
39 BLK FORM 0.2  X+30  Y+10  Z+0
40 ;
41 ;EINGABE
42 FN 0: Q1 =+0 ;X POSITION BOHRUNG
43 FN 0: Q2 =+0 ;Y POSITION BOHRUNG
44 FN 0: Q3 =+10 ;DREHLAGE
45 FN 0: Q4 =+2 ;SICHERHEITSABSTAND
46 FN 0: Q5 =-30 ;BOHRTIEFE
47 FN 0: Q6 =+300 ;VORSCHUB TIEFENZUSTELLUNG
48 FN 0: Q7 =-5 ;TIEFE NUT
49 FN 0: Q8 =+6000 ;VORSCHUB RUECKZUG
50 FN 0: Q9 =+20 ;LAENGE NUT
51 FN 0: Q10 =+1000 ;VORSCHUB FRAESEN
52 FN 0: Q11 =+10 ;RUNDUNGSRADIUS
53 FN 0: Q12 =+45 ;ANZAHL DER SCHRITTE IM RADIUS
54 ;EINGABE ENDE
55 ;
56 ;Werkzeugaufruf Fraeser
57 TOOL CALL 5 Z S9000
58 L  Z+100 R0 FMAX M3 ;Freifahren
59 ;
60 ;Berechnungen
61 FN 2: Q21 =+Q7 - +Q11 ;Kreismittelpunkt Z
62 FN 4: Q22 =+90 DIV +Q12 ;Winkelschritt
63 FN 2: Q23 =+Q12 - +1 ;Anzahl der Wiederholungen
64 ;Berechnungen Ende
65 ;
66 ;Nullpunkt auf das Bohrungszentrum verschieben
67 CYCL DEF 7.0 NULLPUNKT
68 CYCL DEF 7.1  X+Q1
69 CYCL DEF 7.2  Y+Q2
70 ;Rotation
71 CYCL DEF 10.0 DREHUNG
72 CYCL DEF 10.1  ROT+Q3
73 ;
74 L  X+0  Y+0 R0 FMAX ;Vorpositionieren auf Bohrungsmitte
75 L  Z+Q4 F9999 ;Auf Sicherheitsabstand fahren
76 L  Z+Q5 FQ6 ;Bohren
77 L  Z+Q7 FQ8 ;Rueckzug auf Nuttiefe
78 L  X+Q9 FQ10 ;Fraesen Nut
79 L  Z+Q4 FQ8 ;Rueckzug auf Sicherheitsabstand
80 L  X+0  Y+0 R0 FMAX ;Vorpositionieren auf Bohrungsmitte
81 CC  Z+Q21  X+Q11 ;Zentrum Radius
82 LP  PR+Q11  PA-90 R0 FQ6 ;Radiusstartpunkt anfahren
83 LBL 2 ;Schleife
84 LP IPA+Q22 FQ10 ;Winkelschritt fahren
85 CALL LBL 2 REPQ23 ;Wiederholung Schleife
86 L  Z+Q4 R0 FMAX ;Auf Sicherheitsabstand fahren
87 L  Z+100 R0 FMAX M5 ;Freifahren
88 ;
89 ;Nullpunktverschiebung und Rotation zuruecksetzen
90 CYCL DEF 10.0 DREHUNG
91 CYCL DEF 10.1  ROT+0
92 CYCL DEF 7.0 NULLPUNKT
93 CYCL DEF 7.1  X+0
94 CYCL DEF 7.2  Y+0
95 CYCL DEF 7.3  Z+0
96 M30 ;Programmende
97 END PGM 3200_DE MM