0 BEGIN PGM 1075_FR MM 
1 ;Programme permettant de fraiser un cône avec une
2 ;trajectoire hélicoïdale. L'usinage s'effectue selon les
3 ;paramètres que vous aurez définis :
4 ;-  Intérieur ou extérieur
5 ;-  De haut en bas, ou l'inverse
6 ;-  Dans le sens horaire ou anti-horaire
7 ;-  Du grande au petit diamètre, ou l'inverse
8 ;
9 ;Pour cela, la CN divise la trajectoire nécessaire en plusieurs
10 ;étapes linéaires. Avec cette division, vous définissez le
11 ;nombre d'éléments linéaires qui composent une trajectoire
12 ;sur 360°. Pour chacune de ces passes linéaires, la CN calcule
13 ;des coordonnées X, Y et Z qui doivent être approchées.
14 ;
15 ;
16 BLK FORM 0.1 Z X+0 Y+0 Z-32
17 BLK FORM 0.2  X+100  Y+100  Z+0
18 ;
19 ;Appel de la fraise deux tailles
20 TOOL CALL 15 Z S5000
21 ;
22 ;Saisie des paramètres
23 FN 0: Q1 =+50 ;CENTRE X
24 FN 0: Q2 =+50 ;CENTRE Y
25 FN 0: Q4 =-1 ;SENS
26 ;            ;-1= DANS LE SENS HORAIRE
27 ;            ;+1= DANS LE SENS ANTI-HORAIRE
28 FN 0: Q5 =+180 ;DIVISION
29 FN 0: Q6 =+40 ;RAYON DEPART
30 FN 0: Q7 =+0 ;ANGLE INITIAL
31 FN 0: Q8 =+15 ;ANGLE CONE
32 FN 0: Q9 =+0.2 ;MODIFICATION DE LA PROFONDEUR A CHAQUE ROTATION
33 FN 0: Q10 =+2 ;HAUTEUR DE SECURITE
34 FN 0: Q11 =+300 ;AVANCE DE LA PASSE EN PROFONDEUR
35 FN 0: Q12 =+1000 ;AVANCE FRAISAGE
36 FN 0: Q3 =+0 ;COORDONNEE Z DE DEPART
37 FN 0: Q13 =-30 ;FIN DE LA COORDONNEE Z
38 FN 0: Q14 =+0 ;SUREPAISSEUR LATERALE
39 FN 0: Q15 =+1 ;COMPENSATION DE RAYON
40 ;             ;-1= INTERIEUR
41 ;             ;+1= EXTERIEUR
42 FN 0: Q16 =+2 ;DISTANCE D'APPROCHE LATERALE
43 ;Fin de la programmation des paramètres
44 ;
45 ;Appel de l'usinage
46 CALL LBL 1
47 ;
48 ;Dégagement et fin de programme
49 L  Z+100 R0 FMAX M30
50 ;
51 ;Usinage
52 LBL 1
53 FN 3: Q31 =+Q16 * +Q15 ;Calcul de la distance d'approche latérale
54 FN 3: Q38 =+Q108 * +Q15 ;Compensation du rayon d'outil
55 FN 3: Q39 =+Q14 * +Q15 ;Calcul de la surépaisseur latérale
56 FN 0: Q23 =+Q3 ;Coordonnée Z actuelle
57 FN 0: Q25 =+0 ;Compteur
58 FN 1: Q26 =+Q6 + +Q38 ;Correction du rayon d'outil
59 FN 1: Q26 =+Q26 + +Q39 ;Compensation de surépaisseur
60 FN 1: Q28 =+Q26 + +Q31 ;Rayon de pré-positionnement
61 FN 0: Q27 =+Q7 ;Angle actuel
Q36 = TAN Q8 * Q9 ;Modification du rayon à chaque 360°
62 FN 4: Q36 =+Q36 DIV +Q5 ;Taille du pas du rayon
63 FN 4: Q37 =+360 DIV +Q5 ;Taille du pas angulaire
64 FN 3: Q37 =+Q37 * +Q4 ;Pas angulaire dans le sens défini
65 FN 2: Q35 =+Q13 - +Q3 ;Plage Z
Q33 = Q9 / Q5 * SGN Q35 ;Taille du pas en Z
Q35 = ( Q13 - Q3 ) / Q33 ;Nombre de pas en Z
Q35 = ABS Q35 ;Valeur de comptage positive
66 ;
67 CC  X+Q1  Y+Q2 ;Définition du centre
68 LP  PR+Q28  PA+Q7 R0 FMAX M3 ;Prépositionnement
69 L  Z+Q10 R0 FMAX ;Déplacement à la distance d'approche
70 L  Z+Q3 R0 FQ11 ;Approche de la coordonnée de départ Z
71 LP  PR+Q26  PA+Q7 R0 FQ12 ;Déplacement à la position initiale
72 ;
73 ;Répétitions
74 LBL 2
75 FN 1: Q26 =+Q26 + +Q36 ;Actualisation du rayon
76 FN 1: Q27 =+Q27 + +Q37 ;Actualisation de l'angle
77 FN 7: Q21 = COS +Q27 ;Calcul de la coordonnée X
78 FN 3: Q21 =+Q21 * +Q26 ;Calcul de la coordonnée X
79 FN 1: Q21 =+Q21 + +Q1 ;Nouvelle coordonnée X
80 FN 6: Q22 = SIN +Q27 ;Calcul de la coordonnée Y
81 FN 3: Q22 =+Q26 * +Q22 ;Calcul de la coordonnée Y
82 FN 1: Q22 =+Q22 + +Q2 ;Nouvelle coordonnée Y
83 FN 1: Q23 =+Q23 + +Q33 ;Nouvelle coordonnée Z
84 FN 1: Q25 =+Q25 + +1 ;Mise à jour du compteur
85 L  X+Q21  Y+Q22  Z+Q23 FQ12 ;Approche des nouvelles coordonnées
86 FN 12: IF +Q25 LT +Q35 GOTO LBL 2 ;Comparaison pour savoir si le nombre d'étapes est atteint
87 LP IPR+Q31 ;Dégagement latéral
88 L  Z+Q10 R0 FMAX ;Déplacement à la distance d'approche
89 LBL 0
90 END PGM 1075_FR MM