0  BEGIN PGM 82601_FR MM 
1  ;Programme CN permettant de déterminer les
2  ;valeurs de tolérance d'un ajustement La CN
3  ;exécute ensuite un cycle de mesure. Puis
4  ;elle analyse le résultat de la mesure et
5  ;détermine ainsi si l’ajustement mesuré
6  ;respecte la tolérance. Elle affiche ensuite
7  ;l’état, le résultat de la mesure et les cotes
8  ;Au début du programme, la CN affiche à l'écran
9  ;le nombre de pièces qui a été jusqu'à présent
10 ;usiné.
11 ;L’ensemble des paramètres nécessaires doivent
12 ;être définis dans le programme CN 8255_fr.h.
13 ;Si vous avez enregistré tous les fichiers requis
14 ;dans le même répertoire, vous n'avez rien à
15 ;adapter dans ce programme CN.
16 ;Si les fichiers se trouvent enregistrés dans
17 ;des répertoires différents, il vous faudra
18 ;adapter les chemins des fichiers en conséquence.
19 ;
20 QS2 = "a" ;Définition de la minuscule de contrôle
21 ;
22 ;Contrôle permettant de vérifier s'il s'agit d'un Trou standard ou d'un Arbre standard
23 Q2 = STRCOMP( SRC_QS1 SEA_QS2 )
24 ;
25 ;Ouverture du tableau pour le Trou standard
26 FN 26: TABOPEN Hole_82603.TAB
27 ;
28 ;Si trou, alors saut au LBL1
29 FN 9: IF +Q2 EQU -1 GOTO LBL 1
30 ;
31 ;Ouverture du tableau pour l'Arbre standard
32 FN 26: TABOPEN Shaft_82603.TAB
33 ;
34 ;Marque de saut LBL1
35 LBL 1
36 ;
37 Q22 = 0 ;Compteur de numéro de ligne
38 ;
39 ;Lecture de la valeur qui se trouve à la ligne 0, colonne "BEREICH" du tableau
40 FN 28: TABREAD Q3 =Q22 /"BEREICH"
41 ;
42 ;Marque de saut LBL11
43 LBL 11
44 ;
45 ;Contrôle permettant de vérifier si l'ajustement défini se trouve dans la plage
46 FN 11: IF +Q1 GT +Q3 GOTO LBL 12
47 ;
48 ;Lecture de la cote supérieure du tableau
49 FN 28: TABREAD Q4 =Q22 / QS1
50 ;
51 ;Incrémentation du numéro de ligne de un
52 Q22 = Q22 + 1
53 ;
54 ;Lecture de la cote inférieure du tableau
55 FN 28: TABREAD Q5 =Q22 / QS1
56 ;
57 ;Saut au LBL99
58 FN 9: IF +1 EQU +1 GOTO LBL 99
59 ;
60 ;Marque de saut LBL12
61 LBL 12
62 ;Incrémentation du numéro de ligne de deux
63 Q22 = Q22 + 2
64 ;
65 ;Lecture de la valeur qui se trouve à la ligne Q2, colonne "BEREICH" du tableau
66 FN 28: TABREAD Q3 =Q22 /"BEREICH"
67 ;
68 ;Saut au LBL11
69 FN 9: IF +1 EQU +1 GOTO LBL 11
70 ;
71 ;Marque de saut LBL99
72 LBL 99
73 ;
74 ;Calcul de la cote maximale, en mm
75 Q23 = Q1 + ( Q4 / 1000 )
76 ;
77 ;Calcul de la cote minimale, en mm
78 Q33 = Q1 + ( Q5 / 1000 )
79 ;
80 ;Appel d’outil : palpeur 3D
81 TOOL CALL "TOUCH_PROBE" Z S50
82 ;Prépositionnement
83 L  Z+100 R0 FMAX
84 L  X+Q11  Y+Q21 R0 FMAX
85 ;
86 ;Saut à la mesure
87 ;Si trou, alors saut au LBL 14
88 FN 9: IF +Q2 EQU -1 GOTO LBL 14
89 ;Si arbre, alors saut au LBL 15
90 FN 11: IF +Q2 GT -1 GOTO LBL 15
91 ;
92 ;Mesure de trou
93 LBL 14
94 TCH PROBE 421 MESURE TROU ~
    Q273=+Q11  ;CENTRE 1ER AXE ~
    Q274=+Q21  ;CENTRE 2EME AXE ~
    Q262=+Q1   ;DIAMETRE NOMINAL ~
    Q325=+Q41  ;ANGLE INITIAL ~
    Q247=+90   ;INCREMENT ANGULAIRE ~
    Q261=+Q31  ;HAUTEUR DE MESURE ~
    Q320=+Q51  ;DISTANCE D'APPROCHE ~
    Q260=+100  ;HAUTEUR DE SECURITE ~
    Q301=+1    ;DEPLAC. HAUT. SECU. ~
    Q275=+Q23  ;COTE MAX. ~
    Q276=+Q33  ;COTE MIN. ~
    Q279=+0    ;TOLERANCE 1ER CENTRE ~
    Q280=+0    ;TOLERANCE 2ND CENTRE ~
    Q281=+0    ;PROCES-VERBAL MESURE ~
    Q309=+0    ;ARRET PGM SI ERREUR ~
    Q330=+0    ;OUTIL ~
    Q423=+4    ;NOMBRE DE PALPAGES ~
    Q365=+1    ;TYPE DEPLACEMENT
95 M140 MB MAX F9999
96 ;Saut à la détermination de l’état
97 FN 9: IF +1 EQU +1 GOTO LBL 16
98 ;
99 ;Mesure d'arbre
100 LBL 15
101 TCH PROBE 422 MESURE EXT. CERCLE ~
    Q273=+Q11  ;CENTRE 1ER AXE ~
    Q274=+Q21  ;CENTRE 2EME AXE ~
    Q262=+Q1   ;DIAMETRE NOMINAL ~
    Q325=+Q41  ;ANGLE INITIAL ~
    Q247=+90   ;INCREMENT ANGULAIRE ~
    Q261=+Q31  ;HAUTEUR DE MESURE ~
    Q320=+Q51  ;DISTANCE D'APPROCHE ~
    Q260=+100  ;HAUTEUR DE SECURITE ~
    Q301=+1    ;DEPLAC. HAUT. SECU. ~
    Q277=+Q23  ;COTE MAX. ~
    Q278=+Q33  ;COTE MIN. ~
    Q279=+0    ;TOLERANCE 1ER CENTRE ~
    Q280=+0    ;TOLERANCE 2ND CENTRE ~
    Q281=+0    ;PROCES-VERBAL MESURE ~
    Q309=+0    ;ARRET PGM SI ERREUR ~
    Q330=+0    ;OUTIL ~
    Q423=+4    ;NOMBRE DE PALPAGES ~
    Q365=+1    ;TYPE DEPLACEMENT
102 M140 MB MAX F9999
103 ;Saut à la détermination de l’état
104 FN 9: IF +1 EQU +1 GOTO LBL 16
105 ;
106 LBL 16
107 ;Détermination de l’état
108 FN 9: IF +Q180 EQU +1 GOTO LBL 20
109 FN 9: IF +Q181 EQU +1 GOTO LBL 21
110 FN 9: IF +Q182 EQU +1 GOTO LBL 22
111 ;
112 LBL 20
113 QS3 = "BON"
114 FN 9: IF +1 EQU +1 GOTO LBL 23
115 ;
116 LBL 21
117 ERROR = QS3 = "REPRISE D’USINAGE"
118 FN 9: IF +1 EQU +1 GOTO LBL 23
119 ;
120 LBL 22
121 QS3 = "REBUT"
122 FN 9: IF +1 EQU +1 GOTO LBL 23
123 ;
124 LBL 23
125 ;Compilation du texte pour l'ajustement
126 QS2 = TOCHAR( DAT+Q1 DECIMALS0 ) || QS1
127 ;
128 ;Affichage du contenu du fichier de masque 82552_fr.a à l'écran
129 FN 16: F-PRINT 82602_fr.A / SCREEN:
130 ;
131 ;Fin du programme
132 END PGM 82601_FR MM