0  BEGIN PGM 81902_DE MM 
1  ;NC-Programm, mit dem ein Messzyklus an der
2  ;aktuellen Werkzeugposition ausgefuehrt wird.
3  ;Dies kann eventuell notwendig sein, wenn
4  ;der Zyklus an bestimmten Positionen mit einem
5  ;Zyklusaufruf durchgefuehrt werden soll. Dazu
6  ;koennte man dieses Programm in einen
7  ;Zyklus12 definieren und dann mit einem
8  ;CYCL CALL oder M99 aufrufen.
9  ;
10 ;Warten auf die Synchronisierung von NC und
11 ;PLC, damit die Position endgueltig erreicht
12 ;ist, bevor das Programm weiter arbeitet.
13 FN 20: WAIT FOR  SYNC
14 ;
15 ;Auslesen der aktuellen Position der X-Achse
16 ;und speichern des Wertes im Q1
17 FN 18: SYSREAD Q1 = ID270 NR1 IDX1
18 ;
19 ;Auslesen der aktuellen Position der Y-Achse
20 ;und speichern des Wertes im Q2
21 FN 18: SYSREAD Q2 = ID270 NR1 IDX2
22 ;
23 ;Definition des Messzyklus an der aktuellen
24 ;Position.
25 TCH PROBE 421 MESSEN BOHRUNG ~
    Q273=+Q1   ;MITTE 1. ACHSE ~
    Q274=+Q2   ;MITTE 2. ACHSE ~
    Q262=+25.2 ;SOLL-DURCHMESSER ~
    Q325=+0    ;STARTWINKEL ~
    Q247=+90   ;WINKELSCHRITT ~
    Q261=-5    ;MESSHOEHE ~
    Q320=+0    ;SICHERHEITS-ABST. ~
    Q260=+20   ;SICHERE HOEHE ~
    Q301=+0    ;FAHREN AUF S. HOEHE ~
    Q275=+0    ;GROESSTMASS ~
    Q276=+0    ;KLEINSTMASS ~
    Q279=+0    ;TOLERANZ 1. MITTE ~
    Q280=+0    ;TOLERANZ 2. MITTE ~
    Q281=+1    ;MESSPROTOKOLL ~
    Q309=+0    ;PGM-STOP BEI FEHLER ~
    Q330=+0    ;WERKZEUG ~
    Q423=+4    ;ANZAHL ANTASTUNGEN ~
    Q365=+1    ;VERFAHRART
26 ;
27 ;Oeffnen der Tabelle in welche geschrieben
28 ;werden soll
29 FN 26: TABOPEN 81903_de.pnt
30 ;
31 ;Schreiben der Messergebnisse in die Tabelle
32 FN 27: TABWRITE Q0 /"X" = Q151
33 FN 27: TABWRITE Q0 /"Y" = Q152
34 ;
35 ;Zaehler weiterrechnen
36 Q0 = Q0 + 1
37 END PGM 81902_DE MM