0  BEGIN PGM 2115_DE MM 
1  ;Programm zum fraesen von einem Vieleck.
2  ;Die groesse wird durch die Schluesselweite
3  ;definiert. Diese wird intern in den Eckradius
4  ;umgerechnet, welcher dann als Linear-polar
5  ;Satz angefahren wird. Das Werkzeug wird
6  ;um seine Durchmesser versetzt zur ersten Ecke
7  ;Vorpositioniert, und faehrt dann in einem
8  ;Radius an die Kontur.
9  ;Alle noetigen Parameter defienieren sie am
10 ;Programmanfang.
11 ;
12 ; Eingabe Parameter
13 FN 0: Q1 =+50 ;MITTE KONTUR IN DER X-ACHSE
14 FN 0: Q2 =+50 ;MITTE DER KONTUR IN DER Y-ACHSE
15 FN 0: Q3 =-10 ;TIEFE
16 FN 0: Q4 =-1 ;UMLAUFSINN
17 ;            ;-1=IM UHRZEIGERSINN
18 ;            ;+1=GEGEN UHRZEIGERSINN
19 FN 0: Q5 =+6 ;ANZAHL DER ECKEN
20 FN 0: Q9 =+80 ;SCHLUESSELWEITE
21 FN 0: Q7 =+30 ;WINKELLAGE DER ERSTEN ECKE
22 FN 0: Q10 =+2 ;SICHERHEITSABSTAND
23 FN 0: Q11 =+500 ;VORSCHUB TIEFENZUSTELLUNG
24 FN 0: Q12 =+250 ;VORSCHUB FRAESEN
25 FN 0: Q14 =+0 ;SEITLICHES AUFMASS
26 FN 0: Q15 =+1 ;RADIUSKORREKTUR
27 ;             ;0=KEINE RADIUSKORREKTUR
28 ;             ;1=RADIUSKORREKTUR LINKS
29 ;             ;2=RADIUSKORREKTUR RECHTS
30 ;Parametereingabe Ende
31 ;
32 BLK FORM 0.1 Z X+0 Y+0 Z-22
33 BLK FORM 0.2  X+100  Y+100  Z+0
34 ;
35 ;Werkzeugaufruf Fräser
36 TOOL CALL 16 Z S4000
37 ;
38 CALL LBL 1
39 ;
40 ;Freifahren und Programmende
41 L  Z+100 R0 FMAX M2
42 ;
43 ;Konturberechnung
44 LBL 1
45 FN 4: Q20 =+Q9 DIV +2
46 ;Schluesselweite halbieren
47 FN 1: Q21 =+Q20 + +Q14 ;Aufmass addieren
48 Q22 = 360 / Q5 / 2 ;Halben Winkelschritt bestimmen
49 Q6 = Q21 / COS Q22 ;Echradius berechnen
50 ;
51 CC  X+Q1  Y+Q2 ;Mittelpunkt definieren
52 FN 0: Q27 =+Q7 ;Aktueller Winkel=Winkel erste Ecke
53 FN 4: Q28 =+Q108 DIV +2 ;An- und Abfahrradius
54 FN 3: Q29 =+Q108 * +2 ;Werkzeugdurchmesser
55 FN 1: Q29 =+Q6 + +Q29 ;Radius fuer Vorpositionierung
56 FN 0: Q35 =+1 ;Zaehler
57 FN 4: Q37 =+360 DIV +Q5 ;Winkelschritt
58 FN 3: Q37 =+Q37 * +Q4 ;Winkelschritt im Umlaufsinn
59 LP  PR+Q29  PA+Q7 R0 FMAX M3 ;Vorpositionieren
60 L  Z+Q10 FMAX ;Z vorpositionieren
61 L  Z+Q3 FQ11 ;Tiefenzustellung
62 ;Auswahl der Radiuskorregierten Bahn
63 FN 9: IF +Q15 EQU +1 GOTO LBL 11
64 FN 9: IF +Q15 EQU +2 GOTO LBL 12
65 LP  PR+Q6  PA+Q7 R0 FQ12 ;Erste Ecke anfahren
66 RND RQ28 FQ12
67 FN 9: IF +0 EQU +0 GOTO LBL 2
68 ;
69 LBL 11
70 LP  PR+Q6  PA+Q7 RL FQ12 ;Erste Ecke anfahren
71 RND RQ28 FQ12
72 FN 9: IF +0 EQU +0 GOTO LBL 2
73 ;
74 LBL 12
75 LP  PR+Q6  PA+Q7 RR FQ12 ;Erste Ecke anfahren
76 RND RQ28 FQ12
77 LBL 2
78 FN 1: Q35 =+Q35 + +1 ;Zaehler weiterrechnen
79 FN 1: Q27 =+Q27 + +Q37 ;Winkel weiterrechnen
80 LP  PR+Q6  PA+Q27 FQ12 ;Naechste Ecke anfahren
81 FN 12: IF +Q35 LT +Q5 GOTO LBL 2
82 LP  PR+Q6  PA+Q7 FQ12 ;Erste-/Letzte Ecke anfahren
83 RND RQ28
84 LP  PR+Q29  PA+Q7 R0 FQ12 ;Kontur verlassen
85 L  Z+Q10 R0 FMAX ;Z auf Sicherheitsabstand fahren
86 LBL 0
87 END PGM 2115_DE MM