0  BEGIN PGM 3085_DE MM 
1  ;NC-Programm, um ein konkaves Bogensegment zu
2  ;fertigen. Es besteht die Moeglichkeit am
3  ;Bogenanfang und am Bogenende unterschiedliche
4  ;Radien fuer das Profil zu definieren. 
5  ;Desweiteren sind der Start- und
6  ;Endwinkel im Profil, wie auch in der Ebene
7  ;X/Y variabel definierbar.
8  ;In diesem NC-Programm definieren Sie das
9  ;Werkzeug und alle fuer die Bearbeitung
10 ;noetigen Parameter. Danach ruft die
11 ;Steuerung ein weiteres NC-Programm. In diesem
12 ;fuehrt sie alle Berechnungen und
13 ;Bahnbewegungen durch. An dem gerufenen
14 ;NC-Programm brauchen Sie keine Veraenderungen
15 ;vornehmen.
16 ;In diesem Beispiel ist die Bearbeitung in
17 ;zwei Schritten programmiert. Dazu sind nach
18 ;dem ersten Programmaufruf die Parameter, die
19 ;fuers Schlichten veraendert werden sollen,
20 ;erneut definiert, und das NC-Programm
21 ;fuer die Bearbeitung wird ein zweites Mal
22 ;aufgerufen.
23 ;
24 BLK FORM 0.1 Z X+0 Y+0 Z-40
25 BLK FORM 0.2  X+200  Y+100  Z+0
26 ;
27 TOOL CALL "BALL_MILL_D10" Z S2800
28 TOOL CALL  Z DL-Q108
29 L  Z+20 R0 F9998 M3
30 ;Parametereingabe
31 ;Allgemeine Parameter
32 FN 0: Q1 =+100 ;BOGENMITTELPUNKT X
33 FN 0: Q2 =+0 ;BOGENMITTELPUNKT Y
34 FN 0: Q3 =+0 ;BOGENMITTELPUNKT Z
35 FN 0: Q6 =+25 ;STARTRADIUS DER KONTUR IN DER EBENE X/Z
36 FN 0: Q16 =+10 ;ENDRADIUS DER KONTUR IN DER EBENE X/Z
37 FN 0: Q7 =+90 ;STARTWINKEL DER KONTUR IN DER EBENE X/Z
38 FN 0: Q17 =+270 ;ENDWINKEL DER KONTUR IN DER EBENE X/Z
39 FN 0: Q8 =+0 ;STARTWINKEL DER KONTUR IN DER EBENE X/Y
40 FN 0: Q18 =+180 ;ENDWINKEL DER KONTUR IN DER EBENE X/Y
41 FN 0: Q10 =+60 ;RADIUS AM MITTELPUNKT DER KONTUR IN DER EBENE X/Y
42 FN 0: Q25 =+10 ;SICHERHEITSABSTAND
43 FN 0: Q26 =+100 ;ANZAHL DER SCHNITTE
44 FN 0: Q27 =+50 ;ANZAHL DER LINEARELEMENTE JE SCHNITT
45 ;
46 ;Parameter Schruppbearbeitung
47 FN 0: Q20 =+100 ;VORSCHUB TIEFENZUSTELLUNG
48 FN 0: Q21 =+300 ;VORSCHUB FRAESEN
49 FN 0: Q22 =+300 ;VORSCHUB VORPOSITIONIERUNG
50 FN 0: Q23 =+8 ;AUFMASS IN DER Z-ACHSE
51 FN 0: Q29 =+2 ;SCHRUPPFAKTOR
52 ;Parametereingabe Ende
53 ;
54 ;Berechnung Radiuskorrektur
55 FN 2: Q6 =+Q6 - +Q108
56 FN 2: Q16 =+Q16 - +Q108
57 ;
58 ;Werkzeug vorpositionieren
59 L  X+Q1  Y+Q2 R0 F9999
60 ;
61 ;Programmaufruf fuer die Bearbeitung
62 CALL PGM 30851_de
63 ;
64 ;Parameter Schlichtbearbeitung
65 FN 0: Q20 =+200 ;VORSCHUB TIEFENZUSTELLUNG
66 FN 0: Q21 =+500 ;VORSCHUB FRAESEN
67 FN 0: Q22 =+1000 ;VORSCHUB VORPOSITIONIERUNG
68 FN 0: Q23 =+0 ;AUFMASS IN DER Z-ACHSE
69 FN 0: Q29 =+1 ;SCHRUPPFAKTOR
70 ;Parametereingabe Ende
71 ;
72 ;Werkzeug vorpositionieren
73 L  X+Q1  Y+Q2 R0 F9999
74 ;
75 ;Programmaufruf fuer die Bearbeitung
76 CALL PGM 30851_de
77 ;
78 ;Freifahren und Programmende
79 L  Z+50 R0 F9998 M2
80 END PGM 3085_DE MM