0  BEGIN PGM 8200_FR MM 
1  ;Programme CN permettant à la commande
2  ;numérique de s'appuyer sur une coordonnée
3  ;mesurée pour décider automatiquement du
4  ;programme CN qu'elle peut exécuter sur la
5  ;pièce mesurée.
6  ;Il vous faut commencer par définir le
7  ;chemin des programmes CN à exécuter, ainsi
8  ;que la coordonnée Z mesurée pour laquelle
9  ;le programme correspondant doit être
10 ;appelé.
11 ;Vous pouvez également définir une tolérance
12 ;autour de laquelle le résultat de la mesure
13 ;peut dévier de la coordonnée indiquée, que
14 ;ce soit dans le sens positif ou négatif.
15 ;Il est aussi possible de définir le nombre
16 ;d'exécutions du programme.
17 ;
18 ;
19 ;Fonction permettant de sauter la définition
20 ;du programme lors de l'exécution du
21 ;programme
22 FN 9: IF +0 EQU +0 GOTO LBL 201
23 ;
24 ;Définition des programmes à usiner selon le
25 ;résultat de la mesure.
26 LBL 11
27 CALL PGM 82005_fr.h ;Programme n°1
28 LBL 0
29 ;
30 LBL 12
31 CALL PGM 82004_fr.h ;Programme n°2
32 LBL 0
33 ;
34 LBL 13
35 CALL PGM 82003_fr.h ;Programme n°3
36 LBL 0
37 ;
38 LBL 14
39 CALL PGM 82002_fr.h ;Programme n°4
40 LBL 0
41 ;
42 LBL 15
43 CALL PGM 82001_fr.h ;Programme n°5
44 LBL 0
45 ;
46 LBL 201 ;Poursuite du programme
47 ;Programmation des différentes
48 ;coordonnées Z
49 ;Coordonnée Z du programme 1
50 FN 0: Q81 =+25
51 ;Coordonnée Z du programme 2
52 FN 0: Q82 =+20
53 ;Coordonnée Z du programme 3
54 FN 0: Q83 =+15
55 ;Coordonnée Z du programme 4
56 FN 0: Q84 =+10
57 ;Coordonnée Z du programme 5
58 FN 0: Q85 =+5
59 ;
60 ;Autres données
61 FN 0: Q91 =+1 ;TOLERANCE DE LA COORDONNEE Z
62 FN 0: Q94 =+10 ;NOMBRE DE REPETITIONS DU PROGRAMME
63 ;
64 LBL 200 ;Début de la répétition
65 ;
66 CALL PGM 82006_fr.h ;Appel du programme de changement de palette
67 ;
68 ;Réinitialisation de l'inclinaison du
69 ;plan d'usinage
70 PLANE RESET TURN FMAX
71 ;
72 ;Appel du palpeur
73 TOOL CALL 500 Z
74 ;
75 ;Activation du point d'origine
76 CYCL DEF 247 INIT. PT DE REF. ~
    Q339=+5    ;NUMERO POINT DE REF.
77 ;Centre de la pièce, arête inférieure de la pièce
78 ;
79 L  X+0  Y+0 R0 F5000 ;Prépositionnement
80 L  Z+300 ;Déplacement à la hauteur de sécurité
81 ;
82 ;Définition du cycle de mesure
83 ;!Il vous faut adapter les coordonnées ici !
/ 84 TCH PROBE 0.0 PLAN DE REFERENCE Q90 Z-
85 TCH PROBE 0.1  X+0  Y+0  Z+300
86 ;
87 ;Pour le test du programme, le résultat
88 ;de mesure est prédéfini comme valeur.
89 ;!IMPORTANT! La séquence CN doit être supprimée
90 ;de l'exécution du programme, car le résultat
91 ;effectif de la mesure a été écrasé !
92 FN 0: Q90 =+5.01
93 ; 
94 ;Sélection automatique du programme adapté au
95 ;résultat de la mesure.
96 ;Programme n°1
97 FN 2: Q31 =+Q81 - +Q91 ;Coordonnée Z - Tolérance
98 FN 11: IF +Q90 GT +Q31 GOTO LBL "PROG_01" ;Si la hauteur mesurée est supérieure à la coordonnée, alors saut à "PROG_01".
99 ;
100 ;Programme n°2
101 FN 2: Q32 =+Q82 - +Q91 ;Coordonnée Z - Tolérance
102 FN 11: IF +Q90 GT +Q32 GOTO LBL "PROG_02" ;Si la hauteur mesurée est supérieure à la coordonnée, alors saut à "PROG_02".
103 ;
104 ;Programme n°3
105 FN 2: Q33 =+Q83 - +Q91 ;Coordonnée Z - Tolérance
106 FN 11: IF +Q90 GT +Q33 GOTO LBL "PROG_03" ;Si la hauteur mesurée est supérieure à la coordonnée, alors saut à "PROG_03".
107 ;
108 ;Programme n°4
109 FN 2: Q34 =+Q84 - +Q91 ;Coordonnée Z - Tolérance
110 FN 11: IF +Q90 GT +Q34 GOTO LBL "PROG_04" ;Si la hauteur mesurée est supérieure à la coordonnée, alors saut à "PROG_04".
111 ;
112 ;Programme n°5
113 FN 2: Q35 =+Q85 - +Q91 ;Coordonnée Z - Tolérance
114 FN 11: IF +Q90 GT +Q35 GOTO LBL "PROG_05" ;Si la hauteur mesurée est supérieure à la coordonnée, alors saut à "PROG_05".
115 ;
116 ;Si impossible d'effectuer une sélection, saut à
117 ;la fin du programme
118 FN 9: IF +0 EQU +0 GOTO LBL "end"
119 ;
120 ;
121 LBL "PROG_01"
122 CALL LBL 1 ;Saut pour contrôler la coordonnée maximale
123 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Saut à la fin du programme
124 ;
125 LBL "PROG_02"
126 CALL LBL 2 ;Saut pour contrôler la coordonnée maximale
127 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Saut à la fin du programme
128 ;
129 LBL "PROG_03"
130 CALL LBL 3 ;Saut pour contrôler la coordonnée maximale
131 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Saut à la fin du programme
132 ;
133 LBL "PROG_04"
134 CALL LBL 4 ;Saut pour contrôler la coordonnée maximale
135 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Saut à la fin du programme
136 ;
137 LBL "PROG_05"
138 CALL LBL 5 ;Saut pour contrôler la coordonnée maximale
139 FN 9: IF +0 EQU +0 GOTO LBL "end" ;Saut à la fin du programme
140 ;
141 ;Fin du programme
142 LBL "end"
143 ;
144 LBL 0
145 ;Appel de la répétition
146 CALL LBL 200 REPQ94
147 ;Si nombre de répétitions atteint, alors fin
148 ;du programme.
149 M30
150 ;
151 ;
152 ;Vérification si le résultat de la mesure respecte
153 ;la tolérance, y compris dans la plage positive
154 LBL 1 ;Programme n°1
155 FN 1: Q41 =+Q81 + +Q91 ;Coordonnée Z + Tolérance
156 FN 11: IF +Q90 GT +Q41 GOTO LBL "end" ;Si coordonnée mesurée supérieure au maximum, alors saut à la fin du programme
157 CALL LBL 11 ;Saut à la définition du programme
158 LBL 0
159 ;
160 LBL 2 ;Programme n°2
161 FN 1: Q42 =+Q82 + +Q91 ;Coordonnée Z + Tolérance
162 FN 11: IF +Q90 GT +Q42 GOTO LBL "end" ;Si coordonnée mesurée supérieure au maximum, alors saut à la fin du programme
163 CALL LBL 12 ;Saut à la définition du programme
164 LBL 0
165 ;
166 LBL 3 ;Programme n°3
167 FN 1: Q43 =+Q83 + +Q91 ;Coordonnée Z + Tolérance
168 FN 11: IF +Q90 GT +Q43 GOTO LBL "end" ;Si coordonnée mesurée supérieure au maximum, alors saut à la fin du programme
169 CALL LBL 13 ;Saut à la définition du programme
170 LBL 0
171 ;
172 LBL 4 ;Programme n°4
173 FN 1: Q44 =+Q84 + +Q91 ;Coordonnée Z + Tolérance
174 FN 11: IF +Q90 GT +Q44 GOTO LBL "end" ;Si coordonnée mesurée supérieure au maximum, alors saut à la fin du programme
175 CALL LBL 14 ;Saut à la définition du programme
176 LBL 0
177 ;
178 LBL 5 ;Programme n°5
179 FN 1: Q45 =+Q85 + +Q91 ;Coordonnée Z + Tolérance
180 FN 11: IF +Q90 GT +Q45 GOTO LBL "end" ;Si coordonnée mesurée supérieure au maximum, alors saut à la fin du programme
181 CALL LBL 15 ;Saut à la définition du programme
182 LBL 0
183 ;
184 END PGM 8200_FR MM