0  BEGIN PGM 8260_DE MM 
1  ;NC-Programm um eine Normtoleranz,
2  ;im System Einheitswelle und Einheitsbohrung,
3  ;zu messen und zu pruefen, ob das Messergebnis
4  ;innerhalb der Toleranz liegt. Anschliessend
5  ;zeigt die Steuerung den Werkstueckstatus,
6  ;das Messergebnis und die Abmasse der Toleranz
7  ;in einem Fenster auf dem Bildschirm
8  ;an.
9  ;In diesem NC-Programm definieren Sie alle fuer
10 ;den Programmablauf benoetigten Parameter.
11 ;Die Steuerung ruft anschliessend ein weiteres
12 ;NC-Programm, in dem sie die Abmasse berechnet,
13 ;das Messen ausfuehrt und die Ergebnisse
14 ;auf dem Bildschirm anzeigt.
15 ;Den Inhalt diese NC-Programms koennen Sie
16 ;zum Beispiel in ein Bearbeitungsprogramm
17 ;an die Stelle kopieren, bei der das Messen
18 ;erfolgen soll.
19 ;
20 ;
21 ;
22 ;Parametereingabe
23 Q1 = 50 ;PASSMASS
24 QS1 = "H7" ;TOLERANZ
25 Q11 = 0 ;MESSZENTRUM IN X
26 Q21 = 0 ;MESSZENTRUM IN Y
27 Q31 = - 5 ;MESSHOEHE IN Z
28 Q41 = 45 ;WINKEL ERSTE MESSUNG
29 Q51 = 2 ;SEITLICHER SICHERHEITSABSTAND
30 ;Parametereingabe Ende
31 ;
32 ;Programmaufruf zum Messen und
33 ;zum Anzeigen der Werte auf dem Bildschirm.
34 CALL PGM 82601_de.H
35 ;
36 ;
37 STOP
38 ;Programmende
39 END PGM 8260_DE MM