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