0 BEGIN PGM 82453_FR MM 
1 ;Programme CN permettant de mesurer des
2 ;points 3D et de documenter le résultat
3 ;de la mesure dans un rapport.
4 ;Pour effectuer une mesure 3D, vous devez
5 ;d'abord étalonner le palpeur avec le
6 ;cycle 3D.
7 ;
8 M140 MB MAX
9 ;
10 ;Appel du palpeur
11 TOOL CALL "TOUCH_PROBE" Z S11
12 ;
13 ;Inclinaison du plan d'usinage
14 PLANE SPATIAL SPA+0 SPB+0 SPC+0 TURN MB MAX FMAX SEQ-
15 ;
16 ;Prépositionnement
17 L  X+0  Y+0 R0 FMAX
18 L  Z+25 R0 FMAX
19 ;Définition des valeurs de mesure du point 1
QL1 = - 3.7059 ;COORDONNEE X DU POINT 1
QL2 = 9 ;COORDONNEE X DU POINT 1
QL3 = - 0.1704 ;COORDONNEE Z DU POINT 1
QL11 = 0.258819 ;NORMALE AXE PRINCIP
QL12 = 0 ;NORMALE AXE AUXILIAIRE
QL13 = 0.9659258 ;NORMALE AXE D'OUTIL
20 ;Appel du sous-programme de mesure
21 CALL LBL "Probe"
22 ;
23 ;Définition des valeurs de mesure du point 2
QL1 = - 2.5 ;COORDONNEE X DU POINT 2
QL2 = 9 ;COORDONNEE X DU POINT 2
QL3 = - 0.6699 ;COORDONNEE Z DU POINT 2
QL11 = 0.5 ;NORMALE AXE PRINCIP
QL12 = 0 ;NORMALE AXE AUXILIAIRE
QL13 = 0.8660254 ;NORMALE AXE D'OUTIL
24 ;Appel du sous-programme de mesure
25 CALL LBL "Probe"
26 ;
27 ;Définition des valeurs de mesure du point 3
QL1 = - 1.4645 ;COORDONNEE X DU POINT 3
QL2 = 9 ;COORDONNEE X DU POINT 3
QL3 = - 1.4645 ;COORDONNEE Z DU POINT 3
QL11 = 0.7071068 ;NORMALE AXE PRINCIP
QL12 = 0 ;NORMALE AXE AUXILIAIRE
QL13 = 0.7071068 ;NORMALE AXE D'OUTIL
28 ;Appel du sous-programme de mesure
29 CALL LBL "Probe"
30 ;
31 ;Définition des valeurs de mesure du point 4
QL1 = - 0.6699 ;COORDONNEE X DU POINT 4
QL2 = 9 ;COORDONNEE X DU POINT 4
QL3 = - 2.5 ;COORDONNEE Z DU POINT 4
QL11 = 0.8660254 ;NORMALE AXE PRINCIP
QL12 = 0 ;NORMALE AXE AUXILIAIRE
QL13 = 0.5 ;NORMALE AXE D'OUTIL
32 ;Appel du sous-programme de mesure
33 CALL LBL "Probe"
34 ;
35 ;Définition des valeurs de mesure du point 5
QL1 = - 0.1704 ;COORDONNEE X DU POINT 5
QL2 = 9 ;COORDONNEE X DU POINT 5
QL3 = - 3.7059 ;COORDONNEE Z DU POINT 5
QL11 = 0.9659258 ;NORMALE AXE PRINCIP
QL12 = 0 ;NORMALE AXE AUXILIAIRE
QL13 = 0.258819 ;NORMALE AXE D'OUTIL
36 ;Appel du sous-programme de mesure
37 CALL LBL "Probe"
38 ;
39 ;Saut à la fin du programme
40 FN 9: IF +0 EQU +0 GOTO LBL "End"
41 ;
42 ;Sous-programme Mesure
43 LBL "Probe"
44 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
45 LBL 0
46 LBL "End"
47 M129 M9
48 END PGM 82453_FR MM