0 BEGIN PGM 2035_FR MM 
1 ;Programme permettant de fraiser une spirale dans le
2 ;plan X/Y.
3 ;La CN s'appuie sur ces paramètres pour calculer la
4 ;trajectoire de l'outil, qui se décompose elle-même en
5 ;plusieurs mouvements linéaires individuels. Pour chacun
6 ;de ces mouvements linéaires, les points finaux en X et
7 ;en Y sont définis. Au paramètre "Division", vous devez
8 ;définir en combien de séquences linéaires se décompose
9 ;une trajectoire de 360°. La CN calcule également la pente
10 ;indiquée sur une trajectoire à 360°. L'outil se déplace à
11 ;la verticale le long de l'axe Z.
12 ;
13 BLK FORM 0.1 Z X+0 Y+0 Z-20
14 BLK FORM 0.2  X+100  Y+100  Z+0
15 ;
16 ;Appel d'outil
17 TOOL CALL 5 Z S4000
18 ;
19 ;Définition des paramètres
20 FN 0: Q1 =+50 ;CENTRE AXE X
21 FN 0: Q2 =+50 ;CENTRE AXE Y
22 FN 0: Q3 =-15 ;PROFONDEUR
23 FN 0: Q4 =+1 ;SENS
24 ;            ;+1=SENS ANTI-HORAIRE
25 ;            ;-1=SENS HORAIRE
26 FN 0: Q5 =+180 ;DIVISION (NOMBRE DE SEQUENCES LINEAIRES
27 ;              ;SUR 360 DEGRES)
28 FN 0: Q6 =+10 ;RAYON DE DEPART
29 FN 0: Q16 =+47 ;RAYON FINAL
30 FN 0: Q7 =+90 ;ANGLE DE DEPART
31 FN 0: Q8 =+10 ;PENTE EN MM SUR 360 DEGRES
32 FN 0: Q10 =+2 ;DISTANCE D'APPROCHE
33 FN 0: Q11 =+100 ;AVANCE DE LA PASSE EN PROFONDEUR
34 FN 0: Q12 =+300 ;AVANCE FRAISAGE
35 FN 0: Q14 =+0 ;SUREPAISSEUR LATERALE
36 FN 0: Q15 =+0 ;CORRECTION DE RAYON
37 ;             ; 0=PAS DE CORRECTION DE RAYON
38 ;             ;+1=DEPLACEMENT DE L'OUTIL EN DEHORS DU CONTOUR
39 ;             ;-1=DEPLACEMENT DE L'OUTIL A L'INTERIEUR DU CONTOUR
40 ;Fin de la définition des paramètres
41 ;
42 L  X+Q1  Y+Q2 R0 FMAX M3 ;Prépositionnement
43 L  Z+Q10 R0 FMAX
44 CALL LBL 1
45 ;Fin du programme
46 L  Z+100 R0 FMAX M5 M2
47 ;
48 ;
49 LBL 1 ;Calculs
50 CC  X+Q1  Y+Q2 ;Définition du centre
51 FN 3: Q38 =+Q108 * +Q15 ;Recalcul de la correction de rayon
52 FN 3: Q39 =+Q14 * +Q15 ;Recalcul de la surépaisseur
53 FN 1: Q26 =+Q6 + +Q38 ;Rayon de départ avec rayon corrigé
54 FN 1: Q26 =+Q26 + +Q39 ;Rayon de départ effectif (avec surépaisseur)
55 FN 0: Q27 =+Q7 ;Angle actuel=angle de départ
56 FN 4: Q36 =+Q8 DIV +Q5 ;Définition du pas du rayon
57 FN 8: Q36 =+Q36 LEN +0 ;Indication que le calcul se fait avec des valeurs positives
58 FN 4: Q37 =+360 DIV +Q5 ;Définition du pas angulaire
59 FN 3: Q37 =+Q37 * +Q4 ;Calcul du pas angulaire dans le sens défini
60 ;
61 ;
62 LP  PR+Q26  PA+Q7 R0 F9999 M3 ;Déplacement à la position de départ
63 L  Z+Q3 FQ11 ;Plongée
64 ;
65 LBL 2 ;Répétition
66 FN 1: Q26 =+Q26 + +Q36 ;Nouveau calcul du rayon
67 FN 1: Q27 =+Q27 + +Q37 ;Nouveau calcul de l'angle
68 ;Calcul des coordonnées X et Y
69 FN 7: Q21 = COS +Q27
70 FN 3: Q21 =+Q21 * +Q26
71 FN 1: Q21 =+Q21 + +Q1
72 FN 6: Q22 = SIN +Q27
73 FN 3: Q22 =+Q22 * +Q26
74 FN 1: Q22 =+Q22 + +Q2
75 ;Vérification si le rayon final est atteint
76 FN 11: IF +Q26 GT +Q16 GOTO LBL 99 ;
77 ;Approche de la nouvelle position en X et en Y
78 L  X+Q21  Y+Q22  Z+Q3 FQ12
79 ;Si le rayon final n'est pas atteint, retour à la Répétition
80 FN 12: IF +Q26 LT +Q16 GOTO LBL 2
81 ;
82 LBL 99 ;Spirale terminée
83 L  Z+Q10 F9999 ;Déplacement à la distance d'approche
84 LBL 0
85 END PGM 2035_FR MM