0  BEGIN PGM 8190_FR MM 
1  ;Programme CN permettant de déterminer la
2  ;position exacte de plusieurs trous, de
3  ;mémoriser ces positions dans un tableau
4  ;de points et d'exécuter un nouvel usinage
5  ;à ces positions.
6  ;Le cycle de mesure doit être appelé aux
7  ;positions programmées. Il est lui-même
8  ;défini dans un programme distinct,
9  ;appelé avec un cycle 12.
10 ;La CN enregistre les résultats du cycle
11 ;de mesure dans un tableau de points. Le
12 ;programme se sert alors de ce tableau
13 ;comme définition de motif pour la reprise
14 ;d'usinage.
15 ;
16 BLK FORM 0.1 Z X-50 Y-70 Z-40
17 BLK FORM 0.2  X+50  Y+70  Z+0
18 ;
19 ;Appel du palpeur
20 TOOL CALL 500 Z
21 ;
22 Q0 = 0 ;Réinitialisation du compteur
23 ;
24 ;Définition du programme 81902_fr.h qui sera
25 ;utilisé comme cycle pour la mesure du trou.
26 CYCL DEF 12.0 PGM CALL
27 CYCL DEF 12.1 PGM 81902_fr.h
28 ;
29 ;Appel du programme 81901_fr.i avec les
30 ;positions et l'appel du cycle
31 CALL PGM 81901_fr.i
32 ;
33 ;Appel de l'outil pour la reprise d'usinage
34 TOOL CALL 5 Z S1234 F500
35 ;
36 ;Définition du tableau de points 81903_fr.pnt
37 ;comme motif de points
38 SEL PATTERN "81903_fr.pnt"
39 ;
40 ;Définition du programme 81904_fr.h comme
41 ;cycle, pour la reprise d'usinage du trou
42 CYCL DEF 12.0 PGM CALL
43 CYCL DEF 12.1 PGM 81904_fr.h
44 ;
45 ;Appel du cycle aux positions définies dans le
46 ;motif de points
47 CYCL CALL PAT FMAX M3
48 ;
49 ;Dégagement de l'outil
50 L  Z+100 R0 FMAX
51 ;
52 ;Fin du programme
53 M30
54 END PGM 8190_FR MM