0  BEGIN PGM 5005_DE MM 
1  ;Programm, um einen Zapfen oder eine
2  ;Bohrung an einen schraegen 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 gegebenefalls
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 =+50 ;RADIUS
41 FN 0: Q3 =+0 ;STARTWINKEL
42 FN 0: Q4 =+360 ;ENDWINKEL
43 FN 0: Q7 =+50 ;KREISZENTRUM X
44 FN 0: Q8 =+50 ;KREISZENTRUM Y
45 FN 0: Q9 =-20 ;KREISZENTRUM Z
46 FN 0: Q11 =+10 ;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 50051_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 = TAN Q11 ;Anstellwinkel umrechen
83 FN 0: Q46 =+0 ;Zaehler
84 CALL LBL 2 ;Berechnung aufrufen
85 L  X+Q41  Y+Q42 R0 FQ20 M3 ;ersten Punkt in X und Y anfahren
86 L  Z+Q43 R0 FQ20 ;,Ersten Punkt in Z anfahren
87 LBL 1 ;Wiederholungen
88 FN 1: Q36 =+Q36 + +Q35 ;Neuen Winkel berechnen
89 FN 1: Q46 =+Q46 + +1 ;Zaehler takten
90 CALL LBL 2 ;Berechnungen aufrufen
91 L  X+Q41  Y+Q42  Z+Q43 FQ21 ;Neuen Punkt anfahren
92 FN 12: IF +Q46 LT +Q26 GOTO LBL 1 ;Zaehler vergleichen
93 ;Drehung zuruecksetzen
94 CYCL DEF 10.0 DREHUNG
95 CYCL DEF 10.1  ROT+0
96 ;Nullpunktverschiebung zuruecksetzen
97 CYCL DEF 7.0 NULLPUNKT
98 CYCL DEF 7.1  X+0
99 CYCL DEF 7.2  Y+0
100 CYCL DEF 7.3  Z+0
101 LBL 0 ;Ruecksprung
102 ;
103 LBL 2 ;Berechnungen
104 FN 7: Q31 = COS +Q36 ;Neue X-Koordinate berechnen
105 FN 3: Q31 =+Q31 * +Q1 ;Neue X-Koordinate berechnen
106 FN 3: Q41 =+Q31 * +1 ;Neue X-Koordinate berechnen
107 FN 6: Q32 = SIN +Q36 ;Neue Y-Koordinate berechnen
108 FN 3: Q32 =+Q32 * +Q1 ;Neue Y-Koordinate berechnen
109 FN 3: Q42 =+Q32 * +1 ;Neue Y-Koordinate berechen
110 FN 3: Q43 =+Q42 * +Q38 ;Neue Z-Koordinate berechnen
111 FN 1: Q43 =+Q43 + +Q12 ;Neue Z-Koordinate berechnen
112 LBL 0
113 END PGM 5005_DE MM