0  BEGIN PGM 8205_DE MM 
1  ;NC-Programm, um an mehreren Punkten die
2  ;Z-Koordinate zu messen und die Koordinaten
3  ;des tiefsten Punktes in einen Merker
4  ;zu schreiben. Anschliessend faehrt die
5  ;Steuerung die X/Y-Position des tiefsten
6  ;Punktes an, und setzt dort den Z-Bezugspunkt.
7  ;Die Positionen, an denen die Steuerung die
8  ;Z-Koordinate messen soll, definieren Sie
9  ;in einer Tabelle. Zusaetzlich muessen Sie
10 ;am Programmbeginn einige Parameter
11 ;definieren.
12 ;
13 BLK FORM 0.1 Z X+0 Y+0 Z-50
14 BLK FORM 0.2  X+100  Y+100  Z+0
15 ;
16 ;Eingaben
17 QL1 = 9 ;ANZAHL DER MESSPUNKTE
18 QL2 = 0 ;Z-STARTPUNKT FUER MESSUNG
19 QL3 = 0.5 ;Z-BEZUGSPUNKT DER AN DER TIEFSTEN
20 ;         ;STELLE GESETZT WERDEN SOLL
21 QL4 = 5 ;SICHERHEITSABSTAND
22 QL5 = 0 ;ERSTE ZEILE DER TABELLE AUS DER
23 ;       ;GELESEN WIRD
24 ;
25 ;Werkzeugaufruf Taster
26 TOOL CALL 500 Z
27 ;
28 ;Freifahren
29 L  Z+100 R0 FMAX
30 ;
31 ;Berechnungen
32 QL11 = QL1 - 1 ;Anzahl der Wiederholungen
33 QL42 = 999999999 ;Referenz fuer den ersten Vergleich
34 ;
35 ;Tabelle oeffnen in der die Messpositionen
36 ;definiert sind
37 FN 26: TABOPEN 82051_de.tab
38 ;
39 ;Schleife
40 LBL 1
41 ;
42 ;Koordinaten X und Y aus der Tabelle lesen
43 FN 28: TABREAD QL30 =QL5 /"X,Y"
44 ;
45 ;Messpunkt anfahren
46 L  X+QL30  Y+QL31 R0 FMAX
47 ;
48 ;Z-Koordinate messen
49 TCH PROBE 427 MESSEN KOORDINATE ~
    Q263=+QL30 ;1. PUNKT 1. ACHSE ~
    Q264=+QL31 ;1. PUNKT 2. ACHSE ~
    Q261=+QL2  ;MESSHOEHE ~
    Q320=+QL4  ;SICHERHEITS-ABST. ~
    Q272=+3    ;MESSACHSE ~
    Q267=-1    ;VERFAHRRICHTUNG ~
    Q260=+50   ;SICHERE HOEHE ~
    Q281=+0    ;MESSPROTOKOLL ~
    Q288=+0    ;GROESSTMASS ~
    Q289=+0    ;KLEINSTMASS ~
    Q309=+0    ;PGM-STOP BEI FEHLER ~
    Q330=+0    ;WERKZEUG
50 ;
51 ;Vergleich, ob das Messergebnis kleiner dem
52 ;bislang kleinsten Wert ist
53 FN 12: IF +Q160 LT +QL42 GOTO LBL 2
54 ;
55 ;Sprungmarke
56 LBL 3
57 ;
58 QL5 = QL5 + 1 ;Tabellenzeile weiterzaehlen
59 ;
60 CALL LBL 1 REPQL11 ;Schleife wiederholen
61 ;
62 ;X/Y-Position vom tiefsten Punkt anfahren
63 L  X+QL40  Y+QL41 R0 FMAX
64 ;
65 ;Am tiefsten Punkt Z-Bezugspunkt setzen
66 TCH PROBE 417 BZPKT TS.-ACHSE ~
    Q263=+QL40 ;1. PUNKT 1. ACHSE ~
    Q264=+QL41 ;1. PUNKT 2. ACHSE ~
    Q294=+QL42 ;1. PUNKT 3. ACHSE ~
    Q320=+QL4  ;SICHERHEITS-ABST. ~
    Q260=+100  ;SICHERE HOEHE ~
    Q305=+0    ;NR. IN TABELLE ~
    Q333=+QL3  ;BEZUGSPUNKT ~
    Q303=+1    ;MESSWERT-UEBERGABE
67 ;
68 ;Bezugspunkt aktivieren
69 CYCL DEF 247 BEZUGSPUNKT SETZEN ~
    Q339=+0    ;BEZUGSPUNKT-NUMMER
70 ;
71 ;Freifahren und Programmende
72 L  Z+100 R0 FMAX M30
73 ;
74 LBL 2
75 ;Koordinaten fuer tiefsten Punkt in Merker
76 ;schreiben
77 QL40 = QL30 ;X Koordinate am tiefsten Punkt
78 QL41 = QL31 ;Y Koordinate am tiefsten Punkt
79 QL42 = Q160 ;Z Koordinate am tiefsten Punkt
80 ;Ruecksprung in die Schleife
81 FN 9: IF +0 EQU +0 GOTO LBL 3
82 END PGM 8205_DE MM