0 BEGIN PGM 82453_NL MM 
1 ;NC-programma om punten 3D te meten
2 ;en het meetresultaat in een protocol
3 ;te documenteren.
4 ;Om een 3D-meting uit te voeren, moet
5 ;u het tastsysteem met de cyclus
6 ;3D kalibreren.
7 ;
8 M140 MB MAX
9 ;
10 ;Gereedschapsoproep taster
11 TOOL CALL "TOUCH_PROBE" Z S11
12 ;
13 ;Bewerkingsvlak zwenken
14 PLANE SPATIAL SPA+0 SPB+0 SPC+0 TURN MB MAX FMAX SEQ-
15 ;
16 ;Voorpositioneren
17 L  X+0  Y+0 R0 FMAX M7
18 L  Z+25 R0 FMAX
19 ;Definitie van meetwaarden punt 1
QL1 = - 3.7059 ;X-COÖRDINAAT PUNT 1
QL2 = 9 ;Y-COÖRDINAAT PUNT 1
QL3 = - 0.1704 ;Z-COÖRDINAAT PUNT 1
QL11 = 0.258819 ;NORMALEN HOOFDAS
QL12 = 0 ;NORMALEN NEVENAS
QL13 = 0.9659258 ;NORMALEN GEREEDSCHAPSAS
20 ;Subprogramma voor meting oproepen 
21 CALL LBL "Probe"
22 ;
23 ;Definitie van meetwaarden punt 2
QL1 = - 2.5 ;X-COÖRDINAAT PUNT 2
QL2 = 9 ;Y-COÖRDINAAT PUNT 2
QL3 = - 0.6699 ;Z-COÖRDINAAT PUNT 2
QL11 = 0.5 ;NORMALEN HOOFDAS
QL12 = 0 ;NORMALEN NEVENAS
QL13 = 0.8660254 ;NORMALEN GEREEDSCHAPSAS
24 ;Subprogramma voor meting oproepen
25 CALL LBL "Probe"
26 ;
27 ;Definitie van meetwaarden punt 3
QL1 = - 1.4645 ;X-COÖRDINAAT PUNT 3
QL2 = 9 ;Y-COÖRDINAAT PUNT 3
QL3 = - 1.4645 ;Z-COÖRDINAAT PUNT 3
QL11 = 0.7071068 ;NORMALEN HOOFDAS
QL12 = 0 ;NORMALEN NEVENAS
QL13 = 0.7071068 ;NORMALEN GEREEDSCHAPSAS
28 ;Subprogramma voor meting oproepen
29 CALL LBL "Probe"
30 ;
31 ;Definitie van meetwaarden punt 4
QL1 = - 0.6699 ;X-COÖRDINAAT PUNT 4
QL2 = 9 ;Y-COÖRDINAAT PUNT 4
QL3 = - 2.5 ;Z-COÖRDINAAT PUNT 4
QL11 = 0.8660254 ;NORMALEN HOOFDAS
QL12 = 0 ;NORMALEN NEVENAS
QL13 = 0.5 ;NORMALEN GEREEDSCHAPSAS
32 ;Subprogramma voor meting oproepen
33 CALL LBL "Probe"
34 ;
35 ;Definitie van meetwaarden punt 5
QL1 = - 0.1704 ;X-COÖRDINAAT PUNT 5
QL2 = 9 ;Y-COÖRDINAAT PUNT 5
QL3 = - 3.7059 ;Z-COÖRDINAAT PUNT 5
QL11 = 0.9659258 ;NORMALEN HOOFDAS
QL12 = 0 ;NORMALEN NEVENAS
QL13 = 0.258819 ;NORMALEN GEREEDSCHAPSAS
36 ;Subprogramma voor meting oproepen
37 CALL LBL "Probe"
38 ;
39 ;Sprong naar programma-einde
40 FN 9: IF +0 EQU +0 GOTO LBL "End"
41 ;
42 ;Subprogramma meten
43 LBL "Probe"
44 TCH PROBE 444 TASTEN 3D ~
   Q263=+QL1  ;1E PUNT 1E AS ~
    Q264=+QL2  ;1E PUNT IN 2E AS ~
    Q294=+QL3  ;1E MEETPUNT 3E AS ~
    Q581=+QL11 ;NORMALEN HOOFDAS ~
    Q582=+QL12 ;NORMALEN NEVENAS ~
    Q583=+QL13 ;NORMALEN GS-AS ~
    Q320=+2    ;VEILIGHEIDSAFSTAND ~
    Q260=+25   ;VEILIGE HOOGTE ~
    QS400="0.015-0.015" ;TOLERANTIE ~
    Q309=+0    ;FOUTREACTIE
45 LBL 0
46 LBL "End"
47 M129 M9
48 END PGM 82453_NL MM