0 BEGIN PGM 8245_FR MM 
1 ;Programme CN permettant de déterminer des valeurs
2 ;de correction pour l'option
3 ;3D-ToolComp (option 92) avec le palpeur et de les
4 ;écrire dans le tableau 3DTC.
5 ;Avant d'exécuter le programme, vous devez créer le
6 ;tableau et y insérer le nombre de lignes
7 ;nécessaires. Dans la colonne "Angle", vous
8 ;définissez les valeurs des angles au niveau
9 ;desquels la commande mesurera le rayon.
10 ;Vous devez aussi définir le chemin du tableau dans
11 ;la fonction FN 26.
12 ;Au début du programme, la commande appelle un
13 ;programme CN qui permettra de fraiser un rayon de
14 ;5 mm au niveau de l'arête d'une pièce.
15 ;La commande se sert ensuite du cycle 444 pour
16 ;mesurer des points du rayon.
17 ;Pour cela, la commande commence par lire l'angle
18 ;défini, puis elle se sert de cet angle pour calculer
19 ;les coordonnées et les normales des points de mesure.
20 ;Avant d'effectuer la mesure avec le cycle 444,
21 ;assurez-vous que le palpeur a été étalonné en 3D avec
22 ;le cycle 460 !
23 ;La commande inscrit la valeur de correction mesurée
24 ;dans le tableau.
25 ;Dans le Block Scan et dans le Test de programme, la
26 ;commande ignore la partie de programme dédiée à la
27 ;mesure et à l'écriture des valeurs pour éviter que des
28 ;valeurs erronées ne soient inscrites.
29 ;Une fois tous les points mesurés et les valeurs
30 ;inscrites dans le tableau, la commande passe directement
31 ;à la fin du programme. Dans l'exemple de programme, deux
32 ;autres programmes CN sont appelés. Dans le premier, la
33 ;commande se charge de la finition d'une autre partie de
34 ;rayon de 5 mm sur l'arête de la pièce. Il faut noter ici
35 ;que le tableau de correction est affecté à l'outil de
36 ;finition.
37 ;Dans le programme CN qui suit, la commande mesure
38 ;de nouveau les points du rayon de manière à ce que vous
39 ;puissiez vous servir du rapport de mesure pour vérifier
40 ;si la correction est appliquée.
41 ;
42 BLK FORM 0.1 Z X-50 Y+0 Z-50
43 BLK FORM 0.2  X+0  Y+50  Z+0
44 ;
45 ;PAppel du programme permettant de fraiser le rayon
46 CALL PGM 82451_fr.h
47 ;
48 ;Ouverture du tableau dans lequel les résultats de mesure
49 ;doivent être inscrits
50 FN 26: TABOPEN TNC:\system\3D-ToolComp\TAB_8245.3DTC
51 ;
52 ;Paramètres
QL20 = 0 ;PREMIERE LIGNE DU TABLEAU
QL21 = 8 ;NOMBRE DE LIGNES DU TABLEAU
QL22 = 5 ;RAYON A MESURER
QL2 = 3 ;POSITION DE MESURE SUR L'AXE Y
53 ;Fin de la programmation des paramètres
54 ;
55 ;Calculs
QL23 = QL21 - 1 ;Nombre de répétitions
56 ;Fin des calculs
57 ;
58 ;Réinitialisation de l'inclinaison du plan d'usinage
59 PLANE RESET STAY
60 ;Dégagement
61 M140 MB MAX
62 ;
63 ;Appel de l'outil Palpeur
64 TOOL CALL "TOUCH_PROBE" Z S11
65 ;
66 ;Inclinaison du plan d'usinage
67 PLANE SPATIAL SPA+0 SPB+0 SPC+0 TURN MB MAX FMAX SEQ-
68 ;
69 ;Prépositionnement
70 L  X+0  Y+0 R0 FMAX
71 L  Z+25 R0 FMAX
72 ;
73 ;Répétition
74 LBL "REPETITION"
75 ;Appel du sous-programme CALC
76 CALL LBL "CALC"
77 ;Appel du sous-programme PROBE
78 CALL LBL "PROBE"
79 ;Appel de la répétition
80 CALL LBL "REPETITION" REPQL23
81 ;
82 ;Saut à la fin du programme
83 FN 9: IF +0 EQU +0 GOTO LBL "End"
84 ;
85 ;Sous-programme Mesure
86 LBL "PROBE"
87 FN 18: SYSREAD QL40 = ID992 NR10 ;Vérification que l'amorce de séquence est active
88 FN 9: IF +QL40 EQU +1 GOTO LBL "JUMP" ;Si l'amorce de séquence est active, exécution du saut
89 FN 18: SYSREAD QL41 = ID992 NR16 ;Vérification que la simulation est active
90 FN 9: IF +QL41 EQU +0 GOTO LBL "JUMP" ;Si la simulation est active, exécution du saut
91 TCH PROBE 444 PALPAGE 3D ~
    Q263=+QL1  ;1ER POINT 1ER AXE ~
    Q264=+QL2  ;1ER POINT 2EME AXE ~
    Q294=+QL3  ;1ER POINT 3EME AXE ~
    Q581=+QL11 ;NORMALE AXE PRINCIP. ~
    Q582=+QL12 ;NORMALE AXE AUXIL. ~
    Q583=+QL13 ;NORMALE AXE D'OUTIL ~
    Q320=+2    ;DISTANCE D'APPROCHE ~
    Q260=+25   ;HAUTEUR DE SECURITE ~
    QS400="0.015-0.015" ;TOLERANCE ~
    Q309=+0    ;REACTION A L'ERREUR
QL50 = - Q164 ;Transformation du résultat de mesure en valeur de correction
92 FN 27: TABWRITE QL20 /"DR2" = QL50 ;Ecriture de la valeur de correction dans le tableau
QL20 = QL20 + 1 ;Incrémentation du numéro de ligne
93 ;Marque de saut permettant d'ignorer la mesure
94 LBL "JUMP"
95 LBL 0
96 ;Calcul du sous-programme
97 LBL "CALC"
98 FN 28: TABREAD QL60 =QL20 /"ANGLE" ;Lecture de l'angle à partir du tableau
QL61 = ( SIN QL60 ) * QL22 ;Calcul de la coordonnée X du point
QL1 = - QL22 + QL61 ;Calcul de la coordonnée X du point
QL62 = COS QL60 * QL22 ;Calcul de la coordonnée Z du point
QL3 = - QL22 + QL62 ;Calcul de la coordonnée Z du point
QL11 = SIN QL60 * 1 ;Calcul de la normale de l'axe principal
QL12 = 0 ;Définition de la normale de l'axe auxiliaire
QL13 = COS QL60 * 1 ;Calcul de la normale de l'axe d'outil
99 LBL 0
100 ;
101 ;Fin du programme
102 LBL "End"
103 ;Appel du programme CN pour les surfaces corrigées
104 CALL PGM 82452_fr.h
105 ;Appel du programme CN pour la mesure
106 CALL PGM 82453_fr.h
107 M129 M9
108 M30
109 END PGM 8245_FR MM