0  BEGIN PGM 3230_DE MM 
1  ;Programm, um an einen Bohrungsrand einen
2  ;Radius zu fraesen.
3  ;Die Bearbeitung wird mit einem Schaftfraeser
4  ;ausgeführt. Die Fraesbahn wird in einer
5  ;linearisierten Kreisbahn in X/Z Ebene
6  ;gefahren. Die Anzahl der linearen Schritte
7  ;je Viertelkreis bestimmen Sie durch den
8  ;Parameter Q6.
9  ;Ebenso definieren Sie wie haeufig diese
10 ;Fraesbahn wiederholt werden soll, um den
11 ;Radius umlaufend zu fraesen (Q4)
12 ;
13 BLK FORM 0.1 Z X+0 Y+0 Z-30
14 BLK FORM 0.2  X+30  Y+30  Z+0
15 ;
16 ;Bohren
17 ;Werkzeugaufruf Bohrer
18 TOOL CALL 237 Z S3000 F200
19 L  Z+100 R0 FMAX M3
20 L  X+15  Y+15 R0 FMAX
21 L  Z+2 R0 FMAX
22 L  Z-20 R0 F AUTO
23 L  Z+100 R0 FMAX
24 ;
25 ;Radien fraesen
26 ;Parametereingabe
27 FN 0: Q1 =+15 ;MITTE 1.ACHSE
28 FN 0: Q2 =+15 ;MITTE 2.ACHSE
29 FN 0: Q3 =+10 ;BOHRUNGSRADIUS
30 FN 0: Q4 =+100 ;ANZAHL DER FRAESBAHNEN
31 FN 0: Q5 =+5 ;ZU FERTIGENDER RADIUS
32 FN 0: Q6 =+30 ;TEILUNG DER FRAESBAHNEN
33 FN 0: Q7 =+2 ;SICHERHEITSABSTAND
34 FN 0: Q8 =+300 ;VORSCHUB TIEFENZUSTELLUNG
35 FN 0: Q9 =+1200 ;VORSCHUB FRAESEN
36 ;Parametereingabe Ende
37 ;
38 ;Werkzeugaufruf Schaftfraeser
39 TOOL CALL 6 Z S8000
40 ;
41 ;Berechnungen
42 FN 4: Q10 =+360 DIV +Q4 ;Winkelschritt Ebene
43 FN 2: Q11 =+Q4 - +1 ;Anzahl der Wiederholungen in der Ebene
44 FN 4: Q12 =+90 DIV +Q6 ;Winkelschritt Fraesbahn
45 FN 2: Q13 =+Q6 - +1 ;Anzahl der Wiederholungen je Fraesbahn
46 FN 1: Q14 =+Q3 + +Q5 ;Radiuszentrum
47 FN 2: Q15 =+Q14 - +Q108 ;Radiuskompensation
48 ;Berechnungen Ende
49 ;
50 L  X+Q1  Y+Q2 R0 F9999 M3 ;Vorpositionieren
51 L  Z+Q7 ;Auf sichere Hoehe fahren
52 L  Z-Q5 FQ8 ;Eintauchen
53 ;Nullpunkt ins Zentrum schieben
54 CYCL DEF 7.0 NULLPUNKT
55 CYCL DEF 7.1  X+Q1
56 CYCL DEF 7.2  Y+Q2
57 LBL 1
58 CC  X-Q15  Z-Q5 ;CC fuer Radius definieren
59 LP  PR+Q5  PA+90 R0 FQ9 ;Kontur anfahren
60 LBL 2
61 LP IPA-Q12 ;Lineares Radiussegment fahren
62 CALL LBL 2 REPQ13 ;Wiederholung aufrufen
63 L  Z+Q7 ;Auf Sichere Hoehe fahren
64 L  X+0  Y+0 ;Neu vorpositionieren
65 ;Drehung in der Ebene
66 CYCL DEF 10.0 DREHUNG
67 CYCL DEF 10.1 IROT+Q10
68 CALL LBL 1 REPQ11 ;Wiederholung Fraesbahn
69 ;
70 ;Drehung zuruecksetzen
71 CYCL DEF 10.0 DREHUNG
72 CYCL DEF 10.1  ROT+0
73 ;Nullpunkt zuruecksetzen
74 CYCL DEF 7.0 NULLPUNKT
75 CYCL DEF 7.1  X+0
76 CYCL DEF 7.2  Y+0
77 CYCL DEF 7.3  Z+0
78 ;Freifahren und Programmende
79 L  Z+20 R0 FMAX M2
80 END PGM 3230_DE MM