0  BEGIN PGM 5010_DE MM 
1  ;Programm um eine Bohrung in einem liegenden
2  ;Zylinder, auf der Aussenflaeche, mit einem
3  ;Kugelfraeser zu entgraten
4  ;Die Zylinderachse liegt parallel zur Y-Achse
5  ;Bezugspunkt X und Z im Zylinderzentrum
6  ;
7  BLK FORM 0.1 Z X-13 Y+0 Z+0
8  BLK FORM 0.2  X+0  Y+10  Z+13
9  ;
10 ;Parametereingabe
11 FN 0: Q1 =-8 ;BOHRUNGSMITTE IN X-ACHSE
12 FN 0: Q2 =+5 ;BOHRUNGSMITTE IN Y-ACHSE
13 FN 0: Q3 =+0.5 ;TIEFENVERSATZ WERKZEUG
14 FN 0: Q4 =+0.5 ;SEITLICHERVERSATZ WERKZEUG
15 FN 0: Q5 =+100 ;TEILUNG DER KREISBAHN
16 FN 0: Q6 =+13 ;ZYLINDERRADIUS
17 FN 0: Q7 =+180 ;STARTWINKEL IN DER EBENE
18 FN 0: Q8 =+20 ;LAENGE ZYLINDER
19 FN 0: Q9 =+3 ;BOHRUNGSRADIUS
20 FN 0: Q10 =+15 ;Z HOEHE ZUM VORPOSITIONIEREN
21 FN 0: Q11 =+200 ;VORSCHUB TIEFENZUSTELLUNG
22 FN 0: Q12 =+500 ;VORSCHUB FRAESEN
23 ;
24 ;Vorfraessen des Zylinders
25 ;Werkzeugaufruf Kugelfraeser
26 TOOL CALL 157 Z S5000
27 TOOL CALL  DL-Q108 ;Laengenkorrektur um Kugelradius
28 ;Aufruf Programm 50101_de.h
29 CALL PGM 50101_de.h
30 L  Z+50 R0 FMAX M5
31 ;Vorfraesen Zylinder abgeschlossen
32 ;
33 ;Bohren
34 ;Werkzeugaufruf Bohrer
35 TOOL CALL 226 Z S1000
36 L  Z+100 R0 FMAX M3
37 ;Definiton Bohrzyklus
38 CYCL DEF 1.0 TIEFBOHREN
39 CYCL DEF 1.1 ABST2
40 CYCL DEF 1.2 TIEFE-20
41 CYCL DEF 1.3 ZUSTLG5
42 CYCL DEF 1.4 V.ZEIT0
43 CYCL DEF 1.5 F300
44 L  X+Q1  Y+Q2 R0 FMAX
45 L  Z+15 R0 FMAX
46 CYCL CALL
47 L  Z+50 R0 FMAX M5
48 ;Bohren abgeschlossen
49 ;
50 ;Werkzeugaufruf Kugelfraeser zum entgraten
51 TOOL CALL 152 Z S10000
52 TOOL CALL  DL-Q108 ;Laengenkorrektur um Kugelradius
53 ;Aufruf Unterprogramm
54 CALL LBL 1
55 ;
56 ;Programmende
57 L  Z+50 R0 F5000 M2
58 ;
59 ;Unterprogramme
60 LBL 1
61 FN 0: Q25 =+0 ;Zaehler
62 FN 1: Q26 =+Q6 + +Q3 ;eff. Rohrradius
63 FN 0: Q27 =+Q7 ;Aktueller Eb.-Winkel
64 FN 4: Q37 =+360 DIV +Q5 ;Winkelschritt Ebene
65 FN 1: Q29 =+Q9 + +Q4 ;eff. Bohrradius
66 CC  X+Q1  Y+Q2 ;Kreismittelpunkt
67 L  Z+100 R0 FMAX M3 ;Vorpositionieren
68 LP  PR+Q29  PA+Q27 RL F9999 ;
69 L  Z+Q10 F9999
70 CALL LBL 11 ;Aufruf Berechnung neuer Z-Wert
71 L  Z+Q23 FQ11 ;Z eintauchen
72 LBL 10
73 FN 1: Q27 =+Q27 + +Q37 ;Berechnung neuer Winkel
74 Q25 = Q25 + 1 ;Zaehler takten
75 CALL LBL 11 ;Aufruf Berechnung neuer Z-Wert
76 CP  PA+Q27  Z+Q23 DR+ ;Neuen Winkel und neuen Z-Wert anfahren
77 FN 12: IF +Q25 LT +Q5 GOTO LBL 10
78 LBL 0
79 LBL 11 ;Berechnung neuer Z-Wert
80 Q21 = Q1 + Q29 * COS Q27
81 Q23 = SQRT ( SQ Q26 - SQ Q21 )
82 LBL 0
83 END PGM 5010_DE MM