0  BEGIN PGM 8260_FR MM 
1  ;Programme CN permettant de mesurer une
2  ;tolérance normée dans le système Arbre
3  ;standard ou Trou standard, et de
4  ;vérifier si le résultat de la mesure se
5  ;trouve dans la limite de tolérance. La
6  ;CN affiche ensuite l’état de la pièce,
7  ;le résultat de la mesure et les cotes de
8  ;tolérance dans une fenêtre à l’écran.
9  ;Dans ce programme CN, vous définissez
10 ;l’ensemble des paramètres qui seront
11 ;utiles à l’exécution du programme. La
12 ;CN appelle ensuite un autre programme
13 ;CN qui lui permet de calculer les cotes,
14 ;d’effectuer la mesure et d'afficher les
15 ;résultats à l’écran.
16 ;Le contenu de ce programme CN peut par
17 ;exemple être copié dans un programme
18 ;d'usinage, à l'endroit où la mesure doit
19 ;avoir lieu.
20 ;
21 ;
22 ;
23 ;Introduction des paramètres
24 Q1 = 50 ;COTE D'AJUSTEMENT
25 QS1 = "H7" ;TOLERANCE
26 Q11 = 0 ;CENTRE DE LA MESURE EN X
27 Q21 = 0 ;CENTRE DE LA MESURE EN Y
28 Q31 = - 5 ;HAUTEUR DE LA MESURE EN Z
29 Q41 = 45 ;ANGLE DE LA PREMIERE MESURE
30 Q51 = 2 ;DISTANCE D'APPROCHE LATERALE
31 ;Fin de la programmation des paramètres
32 ;
33 ;Appel de programme permettant d’effectuer
34 ;la mesure et d'afficher les valeurs à l'écran.
35 CALL PGM 82601_fr.H
36 ;
37 ;
38 STOP
39 ;Fin du programme
40 END PGM 8260_FR MM