0  BEGIN PGM 3235_DE MM 
1  ;Programm um an ein Werkstueck, in der
2  ;X-Achse, einen konvexen Radius zu fraesen.
3  ;Die Bearbeitung ist mit einem Kugel- oder
4  ;Schaftraeser möglich.
5  ;Das Zentrum und der Radius sind ueber
6  ;Parameter zu bestimmen.
7  ;Der Bezugspunkt  muss in der X- und Y-Achse
8  ;am negativsten Punkt sein. In der Z-Achse
9  ;wird der Radius von der definierten Hoehe der
10 ;Bearbeitung bis zur Z0 Ebene gefraest.
11 ;
12 BLK FORM 0.1 Z X+0 Y+0 Z-20
13 BLK FORM 0.2  X+100  Y+100  Z+20
14 ;
15 ;Werkzeugaufruf Kugel- oder Schaftfraeser
16 TOOL CALL 159 Z S5000
17 ;
18 L  Z+100 R0 FMAX M3
19 ;
20 ;Eingabe Parameter
21 FN 0: Q30 =+20 ;KREISZENTRUM IN Y
22 FN 0: Q31 =+0 ;KREISZENTRUM IN Z
23 FN 0: Q32 =+20 ;RADIUS
24 FN 0: Q34 =+20 ;TEILUNG
25 FN 0: Q35 =+0 ;AUFMASS
26 FN 0: Q36 =+20 ;HOEHE DER BEARBEITUNG
27 FN 0: Q37 =+100 ;LAENGE DES WERKSTUECKS
28 FN 0: Q38 =+2 ;SEITLICHER SICHERHEITSABSTAND
29 FN 0: Q39 =+1000 ;VORSCHUB FRAESEN
30 FN 0: Q40 =+0 ;FORM DER WERKZEUGS:
31 ;             ;KUGELFRAESER  = 1
32 ;             ;SCHAFTFRAESER = 0
33 FN 0: Q33 =+10 ;RADIUS KUGELFRAESER
34 ;Eingabe Ende
35 ;
36 ;Berechnungen
37 Q50 = ACOS ( ( - Q31 + Q36 ) / Q32 ) ;Anfangswinkel
38 Q51 = ACOS ( - Q31 / Q32 ) ;Endwinkel
39 FN 2: Q52 =+Q50 - +Q51 ;Winkeldifferenz
40 Q53 = Q52 / ( Q34 + 2 ) ;Winkelschritt
41 Q54 = Q32 + Q33 + Q35 ;Wirksamer Radius
42 FN 4: Q55 =+Q34 DIV +2 ;Anzahl der Wiederholungen
43 FN 1: Q56 =+Q108 + +Q38 ;Position X minimum
44 Q57 = Q37 + Q38 + Q108 ;Position X maximum
45 FN 0: Q58 =+0 ;Radiuskorrektur Kugelfraeser
46 FN 9: IF +Q40 EQU +0 GOTO LBL 2 ;Sprung auf Berechnung fuer Schaftfraeser
47 LBL 3
48 ;
49 ;Bearbeitung
50 FN 0: Q70 =+Q50 ;Aktueller Winkel = Anfangswinkel
51 LBL 1 ;Wiederholung der Bearbeitung
52 FN 2: Q70 =+Q70 - +Q53 ;Winkelschritt
53 CYCL DEF 7.0 NULLPUNKT
54 CYCL DEF 7.1  Y+Q30
55 CYCL DEF 7.2  Z+Q31
56 Q72 = - ( COS ( Q70 ) * Q54 ) - Q58 ;Berechnung neue Z-Position
57 Q71 = SIN ( Q70 ) * Q54 - Q33 ;Berechnung neue Y-Position
58 L  X-Q56  Y+Q72 R0 FMAX ;X und Y Position anfahren
59 L  Z+Q71 FMAX ;Z Position anfahren
60 L  X+Q57 FQ39 ;X Bahn fraesen
61 ;
62 Q70 = Q70 - Q53 ;Winkelschritt
63 Q72 = - ( COS ( Q70 ) * Q54 ) - Q58 ;Berechnung Z Position
64 Q71 = SIN ( Q70 ) * Q54 - Q33 ;Berechnung Y Position
65 L  Y+Q72  Z+Q71 R0 FMAX ;Y und Z Position anfahren
66 L  X-Q56 FQ39 ;X Bahn fraesen
67 CALL LBL 1 REPQ55 ;Bearbeitung wiederholen
68 STOP
69 ;
70 CYCL DEF 7.0 NULLPUNKT
71 CYCL DEF 7.1  X+0
72 CYCL DEF 7.2  Y+0
73 CYCL DEF 7.3  Z+0
74 L  Z+Q36 FMAX ;Z auf Startposition fahren
75 L IZ+50 FMAX ;Z freifahren
76 ;
77 ;Programmende
78 M30
79 ;
80 LBL 2 ;Berechnung für Schaftfraeser
81 FN 0: Q33 =+0 ;Wert für Radius Kugelfraeser gleich Null setzen
82 FN 0: Q58 =+Q108 ;Korrektur um Werkzeugradius
83 FN 1: Q54 =+Q32 + +Q35 ;Wirksamer Radius
84 FN 9: IF +0 EQU +0 GOTO LBL 3 ;Ruecksprung
85 LBL 0
86 END PGM 3235_DE MM