0  BEGIN PGM 8210_FR MM 
1  ;Programme CN permettent de mesurer la coordonnée
2  ;Z de plusieurs points de mesure et d'inscrire
3  ;les coordonnées du point le plus élevé dans un
4  ;marqueur. Puis la CN approche la position X/Y
5  ;du point le plus élevé et y définit le point
6  ;d'origine en Z.
7  ;Les positions auxquelles la CN doit mesurer la
8  ;coordonnée Z doivent être définies dans un
9  ;tableau. Valeurs à saisir.
10 ;
11 BLK FORM 0.1 Z X+0 Y+0 Z-50
12 BLK FORM 0.2  X+100  Y+100  Z+0
13 ;
14 ;Données
15 QL1 = 9 ;NOMBRE DE POINTS DE MESURE
16 QL2 = 0 ;POINT DE DEPART EN Z DE LA MESURE
17 QL3 = 0.5 ;POINT D'ORIGINE EN Z DEFINI QUI DOIT ETRE
18 ;         ;DEFINI AU POINT LE PLUS HAUT
19 QL4 = 5 ;DISTANCE D'APPROCHE
20 QL5 = 0 ;PREMIERE LIGNE DU TABLEAU QUI DOIT ETRE LUE
21 ;
22 ;Appel du palpeur
23 TOOL CALL 500 Z
24 ;
25 ;Dégagement de l'outil
26 L  Z+100 R0 FMAX
27 ;
28 ;Calculs
29 QL11 = QL1 - 1 ;Nombre de répétitions
30 QL42 = - 999999999 ;Référence pour la première comparaison
31 ;
32 ;Ouverture du tableau dans lequel les positions
33 ;de mesure sont définies
34 FN 26: TABOPEN 82101_fr.tab
35 ;
36 ;Boucle
37 LBL 1
38 ;
39 ;Lecture des coordonnées X et Y dans le tableau
40 FN 28: TABREAD QL30 =QL5 /"X,Y"
41 ;
42 ;Approche du point de mesure
43 L  X+QL30  Y+QL31 R0 FMAX
44 ;
45 ;Mesure de la coordonnée Z
46 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
47 ;
48 ;Comparaison permettant de vérifier si le résultat
49 ;de la mesure est plus élevé que la valeur la plus
50 ;élevée jusqu'à présente
51 FN 11: IF +Q160 GT +QL42 GOTO LBL 2
52 ;
53 ;Marque de saut
54 LBL 3
55 ;
56 QL5 = QL5 + 1 ;Poursuite du comptage de la ligne du tableau
57 ;
58 CALL LBL 1 REPQL11 ;Répétition de la boucle
59 ;
60 ;Approche de la position X/Y du point le plus haut
61 L  X+QL40  Y+QL41 R0 FMAX
62 ;
63 ;Définition du point d'origine Z au point le plus élevé
64 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
65 ;
66 ;Activation du point d'origine
67 CYCL DEF 247 INIT. PT DE REF. ~
    Q339=+0    ;NUMERO POINT DE REF.
68 ;
69 ;Dégagement et fin de programme
70 L  Z+100 R0 FMAX M30
71 ;
72 LBL 2
73 ;Inscription des coordonnées du point le plus élevé
74 ;dans le marqueur
75 QL40 = QL30 ;Coordonnée X du point le plus élevé
76 QL41 = QL31 ;Coordonnée Y du point le plus élevé
77 QL42 = Q160 ;Coordonnée Z du point le plus élevé
78 ;Retour dans la boucle
79 FN 9: IF +0 EQU +0 GOTO LBL 3
80 END PGM 8210_FR MM