0  BEGIN PGM 81902_FR MM 
1  ;Programme CN avec lequel un cycle de mesure
2  ;est exécuté à la position actuelle de l'outil.
3  ;Cela peut s'avérer utile si le cycle doit
4  ;être exécuté à certaines positions avec un
5  ;appel de cycle. Pour cela, le programme peut
6  ;être défini dans un cycle 12, puis appelé
7  ;avec un CYCL CALL ou une fonction M99.
8  ;
9  ;
10 ;Attente de la synchronisation entre la CN et
11 ;le PLC pour ne pas que le programme ne se
12 ;poursuive avant que la position ne soit
13 ;définitivement atteinte.
14 FN 20: WAIT FOR  SYNC
15 ;
16 ;Lecture de la position actuelle de l'axe X et
17 ;mémorisation de la valeur à Q1
18 FN 18: SYSREAD Q1 = ID270 NR1 IDX1
19 ;
20 ;Lecture de la position actuelle de l'axe Y et
21 ;mémorisation de la valeur à Q2
22 FN 18: SYSREAD Q2 = ID270 NR1 IDX2
23 ;
24 ;Définition du cycle de mesure à la position
25 ;actuelle
26 TCH PROBE 421 MESURE TROU ~
    Q273=+Q1   ;CENTRE 1ER AXE ~
    Q274=+Q2   ;CENTRE 2EME AXE ~
    Q262=+25.2 ;DIAMETRE NOMINAL ~
    Q325=+0    ;ANGLE INITIAL ~
    Q247=+90   ;INCREMENT ANGULAIRE ~
    Q261=-5    ;HAUTEUR DE MESURE ~
    Q320=+0    ;DISTANCE D'APPROCHE ~
    Q260=+20   ;HAUTEUR DE SECURITE ~
    Q301=+0    ;DEPLAC. HAUT. SECU. ~
    Q275=+0    ;COTE MAX. ~
    Q276=+0    ;COTE MIN. ~
    Q279=+0    ;TOLERANCE 1ER CENTRE ~
    Q280=+0    ;TOLERANCE 2ND CENTRE ~
    Q281=+1    ;PROCES-VERBAL MESURE ~
    Q309=+0    ;ARRET PGM SI ERREUR ~
    Q330=+0    ;OUTIL ~
    Q423=+4    ;NOMBRE DE PALPAGES ~
    Q365=+1    ;TYPE DEPLACEMENT
27 ;
28 ;Ouverture du tableau dans lequel les valeurs
29 ;doivent être inscrites
30 FN 26: TABOPEN 81903_fr.pnt
31 ;
32 ;Enregistrement des résultats de la mesure dans le
33 ;tableau
34 FN 27: TABWRITE Q0 /"X" = Q151
35 FN 27: TABWRITE Q0 /"Y" = Q152
36 ;
37 ;Nouveau calcul du compteur
38 Q0 = Q0 + 1
39 END PGM 81902_FR MM