0  BEGIN PGM 3175_DE MM 
1  ;Programm, um einen Koerper in Form
2  ;einer konischen Passfeder zu fraesen.
3  ;Die Bearbeitung erfolgt mit einem
4  ;Schaftfraeser in Hoehenlinien.
5  ;Hierzu definieren Sie zuerst alle
6  ;noetigen Parameter. Danach errechnet
7  ;die Steuerung die Aenderung in
8  ;der Tiefe und der Seite. Dann
9  ;bearbeitet sie den Koerper von unten
10 ;nach oben. Dazu wird der Zyklus 25
11 ;verwendet, wobei die Aenderungen der
12 ;Kontur durch das seitliche Aufmass
13 ;programmiert sind. Nach jedem
14 ;Zyklusaufruf werden die neue Tiefe
15 ;und das neue seitliche Aufmass
16 ;berechnet, und es erfolgt eine
17 ;Wiederholung, bis der Koerper
18 ;fertiggestellt ist.
19 ;Mit der Teilung definieren Sie wie
20 ;viele Hoehenlinien gefertigt werden
21 ;und bestimmen damit indirekt die
22 ;Oberflaechenqualitaet und die
23 ;Genauigkeit.
24 ;
25 BLK FORM 0.1 Z X-15 Y-7 Z-12
26 BLK FORM 0.2  X+15  Y+7  Z+0
27 ;
28 ;Werkzeugaufruf Schaftfraeser
29 TOOL CALL 8 Z S3000
30 ;
31 ;Eingabe Parameter
32 FN 0: Q10 =+8 ;RUNDUNGSDURCHMESSER OBEN
33 FN 0: Q20 =+14 ;RUNDUNGSDURCHMESSER UNTEN
34 FN 0: Q40 =+10 ;TIEFE
35 FN 0: Q50 =+16 ;LAENGE DER GERADEN
36 FN 0: Q30 =+50 ;TEILUNG
37 FN 0: Q70 =+300 ;VORSCHUB TIEFENZUSTELLUNG
38 FN 0: Q71 =+600 ;VORSCHUB FRAESEN
39 FN 0: Q72 =+10 ;MAXIMALE ZUSTELLTIEFE
40 ;Eingabe Ende
41 ;
42 ;Berechnungen
43 FN 4: Q61 =+Q10 DIV +2 ;Kreisradius oben
44 FN 4: Q51 =+Q50 DIV +2 ;Laenge der Geraden vom Mittelpunkt
45 FN 2: Q21 =+Q20 - +Q10 ;Durchmesserdifferenz
46 FN 4: Q22 =+Q21 DIV +2 ;Radiusdifferenz
47 FN 2: Q31 =+Q30 - +1 ;Anzahl der Programmteilwiederholungen
48 FN 4: Q23 =+Q22 DIV +Q30 ;Seitliche Aenderung je Schnitt
49 FN 4: Q41 =+Q40 DIV +Q30 ;Tiefenaenderung je Schnitt
50 ;Berechnungen Ende
51 ;
52 LBL 10
53 CYCL DEF 14.0 KONTUR
54 CYCL DEF 14.1 KONTURLABEL1
55 CYCL DEF 25 KONTUR-ZUG ~
    Q1=-Q40  ;FRAESTIEFE ~
    Q3=+Q22  ;AUFMASS SEITE ~
    Q5=+0    ;KOOR. OBERFLAECHE ~
    Q7=+50   ;SICHERE HOEHE ~
    Q10=-Q72  ;ZUSTELL-TIEFE ~
    Q11=+Q70  ;VORSCHUB TIEFENZ. ~
    Q12=+Q71  ;VORSCHUB RAEUMEN ~
    Q15=+1    ;FRAESART
56 CYCL CALL M13
57 ;Berechnung neue Tiefe und Aufmass
58 FN 2: Q40 =+Q40 - +Q41
59 FN 2: Q22 =+Q22 - +Q23
60 CALL LBL 10 REPQ31 ;Wiederholung der Bearbeitung
61 ;Freifahren und Programmende
62 L  Z+100 R0 FMAX M30
63 ;
64 ;Unterprogramm Konturbeschreibung
65 LBL 1
66 L  X+0  Y+Q61 RL
67 L  X+Q51
68 CR  X+Q51  Y-Q61 R+Q61 DR-
69 L  X-Q51
70 CR  X-Q51  Y+Q61 R+Q61 DR-
71 L  X+0
72 LBL 0
73 END PGM 3175_DE MM