0 BEGIN PGM 2080_FR MM 
1 ;Programme permettant de réaliser des rayons dont la valeur
2 ;est supérieure à la valeur maximale définie dans la séquence
3 ;CN.
4 ;Le rayon est décomposé en plusieurs éléments linéaires
5 ;individuels. Le nombre d'éléments linéaires décomposés
6 ;se définit dans DIVISION. La corde de l'arc part du point de
7 ;départ dans le sens Y positif et peut être tournée, par une
8 ;rotation, dans le sens de votre choix.
9 ;Vous définissez le rayon à l'aide d'un paramètre (Q6) et
10 ;d'un facteur de multiplication (Q8). Par multiplication, vous
11 ;obtenez le rayon avec lequel la CN calcule la trajectoire
12 ;circulaire linéarisée.
13 ;
14 ;Définition des paramètres
15 FN 0: Q16 =+100 ;COORDONNEE DE DEPART X
16 FN 0: Q17 =+0 ;COORDONNEE DE DEPART Y
17 FN 0: Q7 =+1000 ;LONGUEUR DE CORDE Y
18 FN 0: Q3 =-30 ;PROFONDEUR FRAISAGE
19 FN 0: Q5 =+1000 ;DIVISION
20 FN 0: Q6 =+5 ;RAYON
21 FN 0: Q8 =+1000 ;FACTEUR DE RAYON
22 FN 0: Q10 =+2 ;DISTANCE D'APPROCHE
23 FN 0: Q11 =+500 ;AVANCE DE LA PASSE EN PROFONDEUR
24 FN 0: Q12 =+2000 ;AVANCE FRAISAGE
25 FN 0: Q15 =+40 ;COMPENSATION DE RAYON
26 ;              ;+40=PAS DE COMPENSATION
27 ;              ;+41=COMPENSATION DE RAYON A GAUCHE
28 ;              ;+42=COMPENSATION DE RAYON A DROITE
29 FN 0: Q18 =+0 ;ROTATION
30 ;Fin de la programmation des paramètres
31 ;
32 BLK FORM 0.1 Z X+0 Y+0 Z-100
33 BLK FORM 0.2  X+400  Y+1000  Z+0
34 ;
35 ;Appel d'outil
36 TOOL CALL 51 Z S5000
37 ;
38 ;Prépositionnement
39 L  Z+20 R0 F9999 M3
40 ;
41 ;Décalage du point zéro au point de départ
42 CYCL DEF 7.0 POINT ZERO
43 CYCL DEF 7.1  X+Q16
44 CYCL DEF 7.2  Y+Q17
45 ;Activation de la rotation
46 CYCL DEF 10.0 ROTATION
47 CYCL DEF 10.1  ROT+Q18
48 ;
49 ;Appel de l'usinage
50 CALL LBL 1
51 ;
52 ;Réinitialisation de la conversion des coordonnées
53 CYCL DEF 10.0 ROTATION
54 CYCL DEF 10.1  ROT+0
55 CYCL DEF 7.0 POINT ZERO
56 CYCL DEF 7.1  X+0
57 CYCL DEF 7.2  Y+0
58 ;
59 ;Dégagement et fin de programme
60 L  Z+20 R0 F9999 M2
61 ;
62 ;Usinage
63 LBL 1
64 ;Calculs
65 FN 0: Q1 =+0 ;Point de départ X du décalage du point zéro
66 FN 0: Q2 =+0 ;Point de départ Y du décalage du point zéro
67 FN 0: Q31 =-Q7 ;Section d'axe actuelle
68 FN 1: Q32 =+Q2 + +Q7 ;Fin Y
69 FN 0: Q33 =+0 ;Longueur actuelle
70 FN 3: Q35 =+Q6 * +Q8 ;Conversion du rayon
71 FN 3: Q36 =+Q35 * +Q35 ;Rayon au carré
72 FN 4: Q37 =+Q7 DIV +2 ;Dédoublement de la corde
73 FN 4: Q38 =+Q7 DIV +Q5 ;Incrément en Y
74 FN 3: Q30 =+Q38 * +2 ;Incrément en axe
75 CALL LBL 10
76 FN 0: Q34 =+Q25 ;Modification de X
77 FN 2: Q34 =+Q1 - +Q34 ;Décalage du point zéro
78 FN 0: Q22 =+Q2 ;Point de départ Y
79 ;
80 ;Compensation de rayon choisie et approche du point de
81 ;départ
82 FN 10: IF +Q15 NE +0 GOTO LBL Q15
83 LBL 40 ;Pas de compensation de rayon
84 L  X+Q1  Y+Q2 R0 FMAX M3 ;Position de départ
85 FN 9: IF +0 EQU +0 GOTO LBL 43
86 LBL 41 ;Correction de rayon à gauche
87 L  X+Q1  Y+Q2 RL FMAX M3 ;Position de départ
88 FN 9: IF +0 EQU +0 GOTO LBL 43
89 LBL 42 ;Compensation de rayon à droite
90 L  X+Q1  Y+Q2 RR FMAX M3 ;Position de départ
91 LBL 43
92 L  Z+Q10 FMAX ;Déplacement à la distance d'approche
93 L  Z+Q3 FQ11 ;Approche de Z en profondeur
94 ;
95 LBL 5
96 FN 1: Q22 =+Q22 + +Q38 ;Actualisation de Y
97 FN 1: Q33 =+Q33 + +Q38 ;Actualisation de la longueur
98 FN 11: IF +Q22 GT +Q32 GOTO LBL 99 ;Fin de Y atteinte ?
99 FN 9: IF +Q22 EQU +Q32 GOTO LBL 99 ;Fin de Y atteinte ?
100 FN 1: Q31 =+Q31 + +Q30 ;Actualisation de la section de l'axe
101 CALL LBL 10
102 FN 1: Q21 =+Q34 + +Q25 ;Nouvelle coordonnée X
103 L  X+Q21  Y+Q22 FQ12 ;Approche de la nouvelle coordonnée en X et Y
104 FN 12: IF +Q33 LT +Q32 GOTO LBL 5 ;Fin non atteinte ?
105 FN 9: IF +Q33 EQU +Q32 GOTO LBL 5
106 ;
107 LBL 99
108 L  X+Q1  Y+Q32 FMAX ;Approche de la dernière position
109 L  Z+Q10 FMAX ;Déplacement jusqu'à la distance d'approche en Z
110 L IX+Q108 IY+Q108 R0 ;Désactivation de la correction de rayon
111 LBL 0
112 ;
113 LBL 10 ;Calcul de l'incrément en X
114 FN 4: Q25 =+Q31 DIV +2
115 FN 3: Q25 =+Q25 * +Q25
116 FN 2: Q25 =+Q36 - +Q25
117 FN 5: Q25 = SQRT +Q25
118 FN 2: Q25 =+Q35 - +Q25 ;Modification de l'axe X
119 LBL 0
120 END PGM 2080_FR MM