0  BEGIN PGM 5100_DE MM 
1  ;Programm, um  eine angestelle
2  ;Bohrung an einer ebenen Oberflaeche
3  ;mit einem Formfraeser zu entgraten.
4  ;Die Bearbeitung erfolgt in den drei
5  ;Linearachsen, ohne die
6  ;Bearbeitungsebene zu schwenken.
7  ;Als erstes muessen Sie alle
8  ;notwendigen Parameter definieren.
9  ;Danach erfolgt in diesem Programm ein
10 ;Programmaufruf um das Werkstueck
11 ;vorzufraesen. In dem gerufenen
12 ;Programm muessen Sie gegebenenfalls
13 ;auch Aenderungen vornehmen.
14 ;Nach dem Programmaufruf definieren
15 ;Sie das Werkzeug mit dem das
16 ;Entgraten abgearbeitet werden soll.
17 ;Die Steuerung positioniert dieses
18 ;dann an der Startposition. Im
19 ;Anschluss errechnet sie die
20 ;Koordinaten fuer die einzelnen Achsen
21 ;und faehrt diese dann an.
22 ;Danach berechnet die Steuerung
23 ;den jeweils naechsten Punkt mit seiner
24 ;X, Y und Z Koordinate und faehrt
25 ;diesen an. Dies wird so oft
26 ;wiederholt, bis der Endwinkel erreicht
27 ;ist.
28 ;In wie viele Punkte die Bearbeitung
29 ;aufgeteilt wird definieren Sie mit
30 ;dem Parameter TEILUNG.
31 ;!Wichtig! Die Steuerung berechnet die
32 ;Werkzeugbahn so, dass das
33 ;Werkzeugzentrum den definierten
34 ;Radius faehrt.
35 ;
36 BLK FORM 0.1 Z X+0 Y+0 Z-60
37 BLK FORM 0.2  X+100  Y+100  Z+0
38 ;
39 ;Eingabe Parameter
40 FN 0: Q1 =+20 ;BOHRUNGSRADIUS
41 FN 0: Q3 =+0 ;STARTWINKEL
42 FN 0: Q4 =+360 ;ENDWINKEL
43 FN 0: Q7 =+50 ;BOHRUNGSZENTRUM X
44 FN 0: Q8 =+50 ;BOHRUNGSZENTRUM Y
45 FN 0: Q9 =+0 ;KOORDINATEN OBERFLAECHE
46 FN 0: Q11 =+35 ;ANSTELLWINKEL UM A
47 FN 0: Q12 =-2 ;FRAESTIEFE
48 FN 0: Q13 =+0 ;ROTATION
49 FN 0: Q20 =+50 ;VORSCHUB TIEFENZUSTELLUNG
50 FN 0: Q21 =+500 ;VORSCHUB FRAESEN
51 FN 0: Q25 =+5 ;SICHERE POSITION Z
52 FN 0: Q26 =+360 ;TEILUNG
53 ;Parametereingabe Ende
54 ;
55 ;Rohteil fraesen
56 CALL PGM 51001_de.h
57 ;
58 ;Werkzeugaufruf Entgratwerkzeug
59 TOOL CALL 170 Z S3000
60 ;
61 L  Z+100 R0 F9998 M3 ;Auf Sichere Hoehe fahren
62 CC  X+Q7  Y+Q8 ;Kreismitte definieren
63 LP  PR+Q1  PA+Q3 ;Auf Startpunkt fahren
64 L  Z+Q25 ;Vorpositionieren in Z
65 CALL LBL 10 ;Aufruf der Bearbeitung
66 ;
67 L  Z+100 R0 F9998 M2 ;Freifahren und Programmende
68 ;
69 ;Unterprogramme zur Bearbeitung
70 LBL 10
71 ;Nullpunkt ins Zentrum der Bearbeitung verschieben
72 CYCL DEF 7.0 NULLPUNKT
73 CYCL DEF 7.1  X+Q7
74 CYCL DEF 7.2  Y+Q8
75 CYCL DEF 7.3  Z+Q9
76 ;Definierte Rotation aktivieren
77 CYCL DEF 10.0 DREHUNG
78 CYCL DEF 10.1  ROT+Q13
79 FN 0: Q36 =+Q3 ;Aktueller Winkel gleich Startwinkel
80 FN 2: Q35 =+Q4 - +Q3 ;Oeffnungswinkel
81 FN 4: Q35 =+Q35 DIV +Q26 ;Winkelschritt
82 Q38 = COS Q11 ;Anstellwinkel umrechnen
83 FN 4: Q2 =+Q1 DIV +Q38 ;Halbachse Y
84 FN 0: Q46 =+0 ;Zaehler
85 CALL LBL 2 ;Berechnung aufrufen
86 L  X+Q41  Y+Q42 R0 FQ20 M3 ;Ersten Punkt in X und Y anfahren
87 L  Z+Q43 R0 FQ20 ;,Ersten Punkt in Z anfahren
88 LBL 1 ;Wiederholungen
89 FN 1: Q36 =+Q36 + +Q35 ;Neuen Winkel berechnen
90 FN 1: Q46 =+Q46 + +1 ;Zaehler takten
91 CALL LBL 2 ;Berechnungen aufrufen
92 L  X+Q41  Y+Q42  Z+Q43 FQ21 ;Neuen Punkt anfahren
93 FN 12: IF +Q46 LT +Q26 GOTO LBL 1 ;Zaehler vergleichen
94 ;Drehung zuruecksetzen
95 CYCL DEF 10.0 DREHUNG
96 CYCL DEF 10.1  ROT+0
97 ;Nullpunktverschiebung zuruecksetzen
98 CYCL DEF 7.0 NULLPUNKT
99 CYCL DEF 7.1  X+0
100 CYCL DEF 7.2  Y+0
101 CYCL DEF 7.3  Z+0
102 LBL 0 ;Ruecksprung
103 ;
104 LBL 2 ;Berechnungen
105 FN 7: Q31 = COS +Q36 ;Neue X-Koordinate berechnen
106 FN 3: Q31 =+Q31 * +Q1 ;Neue X-Koordinate berechnen
107 FN 3: Q41 =+Q31 * +1 ;Neue X-Koordinate berechnen
108 FN 6: Q32 = SIN +Q36 ;Neue Y-Koordinate berechnen
109 FN 3: Q32 =+Q32 * +Q2 ;Neue Y-Koordinate berechnen
110 FN 3: Q42 =+Q32 * +1 ;Neue Y-Koordinate berechen
111 FN 0: Q43 =+Q12 ;Z Koordinate
112 LBL 0
113 END PGM 5100_DE MM