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