0  BEGIN PGM 82453_DE MM 
1  ;NC-Programm, um Punkte 3D zu messen und
2  ;das Messergebnis in einem Protokoll zu
3  ;dokumentieren.
4  ;Um eine 3D-Messung duchzufuehren, muessen Sie
5  ;das Tastsystem mit dem Zyklus 3D kalibrieren.
6  ;
7  M140 MB MAX
8  ;
9  ;Werkzeugaufruf Taster
10 TOOL CALL "TOUCH_PROBE" Z S11
11 ;
12 ;Bearbeitungsebene einschwenken
13 PLANE SPATIAL SPA+0 SPB+0 SPC+0 TURN MB MAX FMAX SEQ-
14 ;
15 ;Vorpositionieren
16 L  X+0  Y+0 R0 FMAX
17 L  Z+25 R0 FMAX
18 ;Definition Messwerte Punkt 1
19 QL1 = - 3.7059 ;X-KOORDINATE PUNKT 1
20 QL2 = 9 ;Y-KOORDINATE PUNKT 1
21 QL3 = - 0.1704 ;Z-KOORDINATE PUNKT 1
22 QL11 = 0.258819 ;NORMALE HAUPTACHSE
23 QL12 = 0 ;NORMALE NEBENACHSE
24 QL13 = 0.9659258 ;NORMALE WERKZEUGACHSE
25 ;Unterprogramm fuer Messung aufrufen 
26 CALL LBL "Probe"
27 ;
28 ;Definition Messwerte Punkt 2
29 QL1 = - 2.5 ;X-KOORDINATE PUNKT 2
30 QL2 = 9 ;Y-KOORDINATE PUNKT 2
31 QL3 = - 0.6699 ;Z-KOORDINATE PUNKT 2
32 QL11 = 0.5 ;NORMALE HAUPTACHSE
33 QL12 = 0 ;NORMALE NEBENACHSE
34 QL13 = 0.8660254 ;NORMALE WERKZEUGACHSE
35 ;Unterprogramm fuer Messung aufrufen 
36 CALL LBL "Probe"
37 ;
38 ;Definition Messwerte Punkt 3
39 QL1 = - 1.4645 ;X-KOORDINATE PUNKT 3
40 QL2 = 9 ;Y-KOORDINATE PUNKT 3
41 QL3 = - 1.4645 ;Z-KOORDINATE PUNKT 3
42 QL11 = 0.7071068 ;NORMALE HAUPTACHSE
43 QL12 = 0 ;NORMALE NEBENACHSE
44 QL13 = 0.7071068 ;NORMALE WERKZEUGACHSE
45 ;Unterprogramm fuer Messung aufrufen 
46 CALL LBL "Probe"
47 ;
48 ;Definition Messwerte Punkt 4
49 QL1 = - 0.6699 ;X-KOORDINATE PUNKT 4
50 QL2 = 9 ;Y-KOORDINATE PUNKT 4
51 QL3 = - 2.5 ;Z-KOORDINATE PUNKT 4 
52 QL11 = 0.8660254 ;NORMALE HAUPTACHSE
53 QL12 = 0 ;NORMALE NEBENACHSE
54 QL13 = 0.5 ;NORMALE WERKZEUGACHSE
55 ;Unterprogramm fuer Messung aufrufen 
56 CALL LBL "Probe"
57 ;
58 ;Definition Messwerte Punkt 5
59 QL1 = - 0.1704 ;X-KOORDINATE PUNKT 5
60 QL2 = 9 ;Y-KOORDINATE PUNKT 5
61 QL3 = - 3.7059 ;Z-KOORDINATE PUNKT 5
62 QL11 = 0.9659258 ;NORMALE HAUPTACHSE
63 QL12 = 0 ;NORMALE NEBENACHSE
64 QL13 = 0.258819 ;NORMALE WERKZEUGACHSE
65 ;Unterprogramm fuer Messung aufrufen 
66 CALL LBL "Probe"
67 ;
68 ;Sprung zum Programmende
69 FN 9: IF +0 EQU +0 GOTO LBL "End"
70 ;
71 ;Unterprogramm Messen
72 LBL "Probe"
73 TCH PROBE 444 ANTASTEN 3D ~
    Q263=+QL1  ;1. PUNKT 1. ACHSE ~
    Q264=+QL2  ;1. PUNKT 2. ACHSE ~
    Q294=+QL3  ;1. PUNKT 3. ACHSE ~
    Q581=+QL11 ;NORMALE HAUPTACHSE ~
    Q582=+QL12 ;NORMALE NEBENACHSE ~
    Q583=+QL13 ;NORMALE WKZ-ACHSE ~
    Q320=+2    ;SICHERHEITS-ABST. ~
    Q260=+25   ;SICHERE HOEHE ~
    QS400="0.015-0.015" ;TOLERANZ ~
    Q309=+0    ;FEHLERREAKTION
74 LBL 0
75 LBL "End"
76 M129 M9
77 END PGM 82453_DE MM