0  BEGIN PGM 8205_FR MM 
1  ;Programme CN permettant de mesurer la
2  ;coordonnée Z de plusieurs points et
3  ;d'inscrire les coordonnées du point
4  ;le plus profond dans un marqueur.
5  ;Puis la CN approche la position X/Y du
6  ;point le plus profond et y définit le
7  ;point d'origine en Z.
8  ;Les positions auxquelles la CN doit
9  ;mesurer la coordonnée Z doivent être
10 ;définies dans un tableau. Valeurs à
11 ;saisir.
12 ;
13 BLK FORM 0.1 Z X+0 Y+0 Z-50
14 BLK FORM 0.2  X+100  Y+100  Z+0
15 ;
16 ;Valeurs à renseigner
17 QL1 = 9 ;NOMBRE DE POINTS DE MESURE
18 QL2 = 0 ;POINT DE DEPART DE LA MESURE
19 QL3 = 0.5 ;POINT D'ORIGINE EN Z QUI DOIT
20 ;         ;ETRE DEFINI AU POINT LE PLUS PROFOND
21 QL4 = 5 ;DISTANCE D'APPROCHE
22 QL5 = 0 ;PREMIERE LIGNE DU TABLEAU QUI DOIT
23 ;       ;ETRE LUE
24 ;
25 ;Appel du palpeur
26 TOOL CALL 500 Z
27 ;
28 ;Dégagement de l'outil
29 L  Z+100 R0 FMAX
30 ;
31 ;Calculs
32 QL11 = QL1 - 1 ;Nombre de répétitions
33 QL42 = 999999999 ;Référence pour la première comparaison
34 ;
35 ;Ouverture du tableau dans lequel les positions
36 ;de mesure sont définies
37 FN 26: TABOPEN 82051_fr.tab
38 ;
39 ;Boucle
40 LBL 1
41 ;
42 ;Lecture des coordonnées X et Y dans le tableau
43 FN 28: TABREAD QL30 =QL5 /"X,Y"
44 ;
45 ;Approche du point de mesure
46 L  X+QL30  Y+QL31 R0 FMAX
47 ;
48 ;Mesure de la coordonnée Z
49 TCH PROBE 427 MESURE COORDONNEE ~
    Q263=+QL30 ;1ER POINT 1ER AXE ~
    Q264=+QL31 ;1ER POINT 2EME AXE ~
    Q261=+QL2  ;HAUTEUR DE MESURE ~
    Q320=+QL4  ;DISTANCE D'APPROCHE ~
    Q272=+3    ;AXE DE MESURE ~
    Q267=-1    ;SENS DEPLACEMENT ~
    Q260=+50   ;HAUTEUR DE SECURITE ~
    Q281=+0    ;PROCES-VERBAL MESURE ~
    Q288=+0    ;COTE MAX. ~
    Q289=+0    ;COTE MIN. ~
    Q309=+0    ;ARRET PGM SI ERREUR ~
    Q330=+0    ;OUTIL
50 ;
51 ;Comparaison permettant de vérifier si le
52 ;résultat de la mesure est plus inférieur
53 ;à la valeur la plus élevée jusqu'à présent
54 FN 12: IF +Q160 LT +QL42 GOTO LBL 2
55 ;
56 ;Marque de saut
57 LBL 3
58 ;
59 QL5 = QL5 + 1 ;Poursuite du comptage de la ligne du tableau
60 ;
61 CALL LBL 1 REPQL11 ;Répétition de la boucle
62 ;
63 ;Approche de la position X/Y du point le plus profond
64 L  X+QL40  Y+QL41 R0 FMAX
65 ;
66 ;Définition du point d'origine Z au point le plus profond
67 TCH PROBE 417 PT REF DANS AXE TS ~
    Q263=+QL40 ;1ER POINT 1ER AXE ~
    Q264=+QL41 ;1ER POINT 2EME AXE ~
    Q294=+QL42 ;1ER POINT 3EME AXE ~
    Q320=+QL4  ;DISTANCE D'APPROCHE ~
    Q260=+100  ;HAUTEUR DE SECURITE ~
    Q305=+0    ;NO. DANS TABLEAU ~
    Q333=+QL3  ;POINT ORIGINE ~
    Q303=+1    ;TRANSF. VAL. MESURE
68 ;
69 ;Activer le point d'origine
70 CYCL DEF 247 INIT. PT DE REF. ~
    Q339=+0    ;NUMERO POINT DE REF.
71 ;
72 ;Dégagement et fin de programme
73 L  Z+100 R0 FMAX M30
74 ;
75 LBL 2
76 ;Inscription des coordonnées du point le plus profond
77 ;dans le marqueur
78 QL40 = QL30 ;Coordonnée X du point le plus profond
79 QL41 = QL31 ;Coordonnée Y du point le plus profond
80 QL42 = Q160 ;Coordonnée Z du point le plus profond
81 ;Retour dans la boucle
82 FN 9: IF +0 EQU +0 GOTO LBL 3
83 END PGM 8205_FR MM