0  BEGIN PGM 1010-DE MM 
1  ;Programm zur Definition eines Punktemusters
2  ;in Form einer Ellipse.
3  ;Für die Bearbeitung wird an den errechneten
4  ;Positionen ein Bearbeitungszyklus aufgerufen.
5  ;In diesem Programm ein Bohrzyklus, mit dem
6  ;zunaechst anzentriert und dann gebohrt wird.
7  ;Nach der Definition aller benoetigten
8  ;Parameter, des Werkzeuges und des
9  ;Bearbeitungszykluses wird ein Unterprogramm
10 ;aufgerufen. In diesem erfolgt zuerst eine
11 ;Berechnung der gesamten Ellipsenbahn. Diese
12 ;besteht aus einzelnen X und Y Koordinaten.
13 ;Den Abstand der einzelnen Punkte, und damit
14 ;die Genauigkeit der Bahn, bestimmen Sie durch
15 ;den Parameter Q5=Winkelschritt, der den
16 ;Winkel zwischen zwei Punkten festlegt.
17 ;Nachdem die komplette Kontur berechnet wurde
18 ;werden die einzelnen Bearbeitungspositionen
19 ;bestimmt, angefahren und der Zyklus wird
20 ;aufgerufen.
21 ;
22 ;Eingabe Parameter
23 FN 0: Q1 =+46 ;ELLIPSENHALBACHSE IN DER X-ACHSE
24 FN 0: Q2 =+20 ;ELLIPSENHALBACHSE IN DER Y-ACHSE
25 FN 0: Q5 =+0.5 ;WINKELSCHRITT
26 FN 0: Q6 =+15 ;ROTATION DER ELLIPSE
27 FN 0: Q8 =+50 ;MITTE ELLIPSE IN DER X-ACHSE
28 FN 0: Q9 =+40 ;MITTE DER ELLIPSE IN DER Y-ACHSE
29 FN 0: Q12 =+2 ;SICHERHEITSABSTAND
30 FN 0: Q13 =+30 ;ANZAHL DER BEARBEITUNGEN
31 ;Parametereingabe Ende
32 ;
33 BLK FORM 0.1 Z X+0 Y+0 Z-20
34 BLK FORM 0.2  X+100  Y+80  Z+0
35 ;
36 ;Werkzeugaufruf NC-Anbohrer
37 TOOL CALL 201 Z S1000
38 ;
39 ;Definition Bearbeitungszyklus
40 CYCL DEF 1.0 TIEFBOHREN
41 CYCL DEF 1.1 ABSTQ12
42 CYCL DEF 1.2 TIEFE-2.5
43 CYCL DEF 1.3 ZUSTLG10
44 CYCL DEF 1.4 V.ZEIT0
45 CYCL DEF 1.5 F100
46 ;
47 CALL LBL 20 ;Aufruf Unterprogramm Positionen
48 ;
49 ;Werkzeugaufruf Bohrer
50 TOOL CALL 225 Z S1000
51 ;
52 ;Definition  Bearbeitungszyklus
53 CYCL DEF 1.0 TIEFBOHREN
54 CYCL DEF 1.1 ABSTQ12
55 CYCL DEF 1.2 TIEFE-20
56 CYCL DEF 1.3 ZUSTLG10
57 CYCL DEF 1.4 V.ZEIT0
58 CYCL DEF 1.5 F100
59 ;
60 CALL LBL 20 ;Aufruf Unterprogramm Positionen
61 ;
62 ;Freifahren und Programmende
63 L  Z+100 R0 F9998 M30
64 ;
65 ;Unterprogramm zur Bestimmung der Positionen
66 LBL 20
67 ;Nullpunkt ins Zentrum der Ellipse und Rotation setzen
68 CYCL DEF 7.0 NULLPUNKT
69 CYCL DEF 7.1  X+Q8
70 CYCL DEF 7.2  Y+Q9
71 CYCL DEF 10.0 DREHUNG
72 CYCL DEF 10.1  ROT+Q6
73 CALL LBL 10 ;Aufruf der Berechnung der Gesamtellipse
74 FN 4: Q48 =+Q40 DIV +Q13
75 FN 0: Q50 =+Q40
76 FN 0: Q36 =+0 ;Parameter Reset
77 FN 0: Q40 =+0 ;Parameter Reset
78 FN 0: Q46 =+0 ;Parameter Reset
79 FN 0: Q47 =+0 ;Parameter Reset
80 FN 0: Q50 =+1 ;Zaehler
81 CALL LBL 2
82 L  X+Q21  Y+Q22 R0 F9999 M3 ;Fahren auf die erste Position
83 L  Z+Q12 M99 ;Fahren auf sichere Hoehe und Zyklusaufruf
84 LBL 21
85 FN 1: Q46 =+Q46 + +Q48
86 LBL 22
87 FN 1: Q36 =+Q36 + +Q5
88 CALL LBL 2
89 CALL LBL 3
90 FN 12: IF +Q47 LT +Q46 GOTO LBL 22
91 L  X+Q21  Y+Q22 M99 ;Fahren auf Position und Zyklusaufruf
92 FN 1: Q50 =+Q50 + +1 ;Zaehler weitertakten
93 FN 12: IF +Q50 LT +Q13 GOTO LBL 21 ;Zaehler vergleichen
94 ;Rotation und Nullpunkt zuruecksetzen
95 CYCL DEF 10.0 DREHUNG
96 CYCL DEF 10.1  ROT+0
97 CYCL DEF 7.0 NULLPUNKT
98 CYCL DEF 7.1  X+0
99 CYCL DEF 7.2  Y+0
100 LBL 0
101 ;
102 ;Berechnung der Ellipse
103 LBL 10
104 FN 0: Q40 =+0
105 FN 0: Q36 =+0 ;Startwinkel
106 FN 0: Q4 =+360 ;Endwinkel
107 CALL LBL 2
108 LBL 1
109 FN 1: Q36 =+Q36 + +Q5 ;Winkel weiterrechnen
110 CALL LBL 2
111 CALL LBL 3
112 FN 12: IF +Q36 LT +Q4 GOTO LBL 1 ;Vergleich aktueller Winkel  zu Endwinkel
113 FN 0: Q36 =+Q4
114 CALL LBL 2
115 LBL 0
116 LBL 2 ;Koordinaten Berechnung
117 FN 7: Q21 = COS +Q36
118 FN 3: Q21 =+Q21 * +Q1
119 FN 6: Q22 = SIN +Q36
120 FN 3: Q22 =+Q22 * +Q2
121 LBL 0
122 LBL 3 ;Winkel und Koordinaten berechnen
123 FN 1: Q37 =+Q36 + +Q5
124 FN 7: Q31 = COS +Q37
125 FN 3: Q31 =+Q31 * +Q1
126 FN 6: Q32 = SIN +Q37
127 FN 3: Q32 =+Q32 * +Q2
128 FN 2: Q34 =+Q31 - +Q21
129 FN 2: Q35 =+Q32 - +Q22
130 FN 8: Q39 =+Q35 LEN +Q34
131 FN 1: Q40 =+Q40 + +Q39
132 FN 1: Q47 =+Q40 + +0
133 LBL 0
134 END PGM 1010-DE MM