0  BEGIN PGM 8200_DE MM 
1  ;NC-Programm, bei dem die Steuerung
2  ;anhand einer gemessenen Koordinate
3  ;automatisch entscheidet, welches
4  ;NC-Programm bei dem gemessenen
5  ;Werkstueck abgearbeitet werden kann.
6  ;Zunaechst definieren Sie die
7  ;Programmpfade der NC-Programme, die
8  ;abgearbeitet werden sollen. Ausserdem
9  ;noch bei welcher gemessenen
10 ;Z-Koordinate das entsprechene NC-Programm
11 ;aufgerufen werden soll.
12 ;Weiterhin koennen Sie eine Toleranz
13 ;definieren, um die das Messergebnis
14 ;von der angegebenen Koordinate ins
15 ;Positive und Negative abweichen darf.
16 ;Zusaetzlich koennen Sie eine
17 ;Anzahl von Programmdurchlaeufen
18 ;definieren.
19 ;
20 ;
21 ;Funktion um im Programmlauf die
22 ;Programmdefinition zu ueberspringen
23 FN 9: IF +0 EQU +0 GOTO LBL 201
24 ;
25 ;Definition der Programme, die je nach
26 ;Messergebnis verwendet werden sollen.
27 LBL 11
28 CALL PGM 82005_de.h ;Programm NR.1
29 LBL 0
30 ;
31 LBL 12
32 CALL PGM 82004_de.h ;Programm NR.2
33 LBL 0
34 ;
35 LBL 13
36 CALL PGM 82003_de.h ;Programm NR.3
37 LBL 0
38 ;
39 LBL 14
40 CALL PGM 82002_de.h ;Programm NR.4
41 LBL 0
42 ;
43 LBL 15
44 CALL PGM 82001_de.h ;Programm NR.5
45 LBL 0
46 ;
47 LBL 201 ;Programmfortsetzung
48 ;Eingabe der zu unterscheidenden
49 ;Z-Koordinaten
50 ;Z-Koordinate fuer Programm 1
51 FN 0: Q81 =+25
52 ;Z-Koordinate fuer Programm 2
53 FN 0: Q82 =+20
54 ;Z-Koordinate fuer Programm 3
55 FN 0: Q83 =+15
56 ;Z-Koordinate fuer Programm 4
57 FN 0: Q84 =+10
58 ;Z-Koordinate fuer Programm 5
59 FN 0: Q85 =+5
60 ;
61 ;Weitere Eingaben
62 FN 0: Q91 =+1 ;TOLERANZ DER Z-KOORDINATE
63 FN 0: Q94 =+10 ;ANZAHL DER PROGRAMMWIEDERHOLUNGEN
64 ;
65 LBL 200 ;Beginn der Wiederholung
66 ;
67 CALL PGM 82006_de.h ;Programmaufruf Palettenwechsel
68 ;
69 ;Bearbeitungsebene schwenken
70 ;zuruecksetzen
71 PLANE RESET TURN FMAX
72 ;
73 ;Werkzeugaufruf Tastsystem
74 TOOL CALL 500 Z
75 ;
76 ;Bezugspunkt aktivieren
77 CYCL DEF 247 BEZUGSPUNKT SETZEN ~
    Q339=+5    ;BEZUGSPUNKT-NUMMER
78 ;Mitte Bauteil, Unterkante Werkstueck
79 ;
80 L  X+0  Y+0 R0 F5000 ;Vorpositionieren
81 L  Z+300 ;Auf sichere Hoehe fahren
82 ;
83 ;Definition des Messzyklus
84 ;!Hier muessen Sie die Koordinaten
85 ;anpassen!
/ 86 TCH PROBE 0.0 BEZUGSEBENE Q90 Z-
87 TCH PROBE 0.1  X+0  Y+0  Z+300
88 ;
89 ;Fuer den Programmtest wird hier das
90 ;Messergebnis als Wert vorgegeben.
91 ;!WICHTIG! Dieser NC-Satz muss im
92 ;Programmlauf geloescht werden, da er
93 ;das tatsaechliche Messergebnis
94 ;ueberschreibt!
95 FN 0: Q90 =+15.1
96 ; 
97 ;Automatische Auswahl, welches NC-Programm
98 ;zu dem Messergebnis passt.
99 ;Programm NR.1
100 FN 2: Q31 =+Q81 - +Q91 ;Z-Koordinate - Toleranz
101 FN 11: IF +Q90 GT +Q31 GOTO LBL "PROG_01" ;Wenn gemessene Hoehe groesser Koordinate Sprung zu "PROG_01"
102 ;
103 ;Programm NR 2
104 FN 2: Q32 =+Q82 - +Q91 ;Z-Koordinate - Toleranz
105 FN 11: IF +Q90 GT +Q32 GOTO LBL "PROG_02" ;Wenn gemessene Hoehe groesser Koordinate Sprung zu "PROG_02"
106 ;
107 ;Programm NR 3
108 FN 2: Q33 =+Q83 - +Q91 ;Z-Koordinate - Toleranz
109 FN 11: IF +Q90 GT +Q33 GOTO LBL "PROG_03" ;Wenn gemessene Hoehe groesser Koordinate Sprung zu "PROG_03"
110 ;
111 ;Programm NR 4
112 FN 2: Q34 =+Q84 - +Q91 ;Z-Koordinate - Toleranz
113 FN 11: IF +Q90 GT +Q34 GOTO LBL "PROG_04" ;Wenn gemessene Hoehe groesser Koordinate Sprung zu "PROG_04"
114 ;
115 ;Programm NR 5
116 FN 2: Q35 =+Q85 - +Q91 ;Z-Koordinate - Toleranz
117 FN 11: IF +Q90 GT +Q35 GOTO LBL "PROG_05" ;Wenn gemessene Hoehe groesser Koordinate Sprung zu "PROG_05"
118 ;
119 ;Wenn keine Auswahl getroffen werden
120 ;konnte Sprung zum Programmende
121 FN 9: IF +0 EQU +0 GOTO LBL "end"
122 ;
123 ;
124 LBL "PROG_01"
125 CALL LBL 1 ;Sprung zur Kontrolle der maximalen Koordinate
126 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Sprung zum Programmende
127 ;
128 LBL "PROG_02"
129 CALL LBL 2 ;Sprung zur Kontrolle der maximalen Koordinate
130 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Sprung zum Programmende
131 ;
132 LBL "PROG_03"
133 CALL LBL 3 ;Sprung zur Kontrolle der maximalen Koordinate
134 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Sprung zum Programmende
135 ;
136 LBL "PROG_04"
137 CALL LBL 4 ;Sprung zur Kontrolle der maximalen Koordinate
138 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Sprung zum Programmende
139 ;
140 LBL "PROG_05"
141 CALL LBL 5 ;Sprung zur Kontrolle der maximalen Koordinate
142 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Sprung zum Programmende
143 ;
144 ;Programmende
145 LBL "end"
146 ;
147 LBL 0
148 ;Aufruf der Wiederholung
149 CALL LBL 200 REPQ94
150 ;Wenn Anzahl der Wiederholungen
151 ;erreicht ist Programmende
152 M30
153 ;
154 ;
155 ;Kontrolle, ob das Messergebnis auch
156 ;im positiven Bereich innerhalb der
157 ;Toleranz liegt.
158 LBL 1 ;Programm Nr.1
159 FN 1: Q41 =+Q81 + +Q91 ;Z-Koordinate + Toleranz
160 FN 11: IF +Q90 GT +Q41 GOTO LBL "end" ;Wenn gemessene Koordinate groesser Maximum Sprung zum Programmende
161 CALL LBL 11 ;Sprung zur Programmdefinition
162 LBL 0
163 ;
164 LBL 2 ;Programm Nr.2
165 FN 1: Q42 =+Q82 + +Q91 ;Z-Koordinate + Toleranz
166 FN 11: IF +Q90 GT +Q42 GOTO LBL "end" ;Wenn gemessene Koordinate groesser Maximum Sprung zum Programmende
167 CALL LBL 12 ;Sprung zur Programmdefinition
168 LBL 0
169 ;
170 LBL 3 ;Programm Nr.3
171 FN 1: Q43 =+Q83 + +Q91 ;Z-Koordinate + Toleranz
172 FN 11: IF +Q90 GT +Q43 GOTO LBL "end" ;Wenn gemessene Koordinate groesser Maximum Sprung zum Programmende
173 CALL LBL 13 ;Sprung zur Programmdefinition
174 LBL 0
175 ;
176 LBL 4 ;Programm Nr.4
177 FN 1: Q44 =+Q84 + +Q91 ;Z-Koordinate + Toleranz
178 FN 11: IF +Q90 GT +Q44 GOTO LBL "end" ;Wenn gemessene Koordinate groesser Maximum Sprung zum Programmende
179 CALL LBL 14 ;Sprung zur Programmdefinition
180 LBL 0
181 ;
182 LBL 5 ;Programm Nr.5
183 FN 1: Q45 =+Q85 + +Q91 ;Z-Koordinate + Toleranz
184 FN 11: IF +Q90 GT +Q45 GOTO LBL "end" ;Wenn gemessene Koordinate groesser Maximum Sprung zum Programmende
185 CALL LBL 15 ;Sprung zur Programmdefinition
186 LBL 0
187 ;
188 END PGM 8200_DE MM