0 BEGIN PGM 3170_FR MM 
1 ;Programme permettant de fraiser un filetage intérieur
2 ;conique. La trajectoire de l'outil est décomposée en
3 ;plusieurs passes linéaires. Avec cette division, vous
4 ;définissez le nombre d'éléments linéaires qui composent
5 ;une trajectoire sur 360°. Pour chacune de ces passes
6 ;linéaires, la CN calcule des coordonnées X, Y et Z qui
7 ;doivent être approchées. L'usinage s'effectue de bas en
8 ;haut. Le sens de rotation vous permet de définir s'il s'agit
9 ;d'un filetage à droite ou à gauche.
10 ;
11 BLK FORM 0.1 Z X+0 Y+0 Z-32
12 BLK FORM 0.2  X+100  Y+100  Z+0
13 ;
14 ;Appel du programme de pré-fraisage de l'intérieur du cône
15 ;! Il est nécessaire d'adapter les données (numéro
16 ;d'outil, données de coupe et paramètres) que contient le
17 ;programme appelé !
18 CALL PGM 31701_fr.h
19 ;
20 ;Appel de la fraise à fileter
21 TOOL CALL 10 Z S5000
22 ;
23 ;Définition des paramètres
24 FN 0: Q1 =+50 ;CENTRE X
25 FN 0: Q2 =+50 ;CENTRE Y
26 FN 0: Q4 =+1 ;SENS +/-1
27 ;            ;-1=SENS HORAIRE
28 ;            ;+1=SENS ANTI-HORAIRE
29 FN 0: Q5 =+30 ;DIVISION
30 FN 0: Q6 =+40 ;RAYON EXTERIEUR EN BAS
31 FN 0: Q7 =+0 ;ANGLE INITIAL
32 FN 0: Q8 =+15 ;ANGLE CONE
33 FN 0: Q9 =+3 ;PAS VIS
34 FN 0: Q10 =+2 ;HAUTEUR DE SECURITE
35 FN 0: Q11 =+300 ;AVANCE DE PRE-POSITIONNEMENT
36 FN 0: Q12 =+1000 ;AVANCE FRAISAGE
37 FN 0: Q3 =-30 ;DEPART COORDONNEE Z (BAS)
38 FN 0: Q13 =+0 ;FIN DE LA COORDONNEE Z (HAUT)
39 FN 0: Q14 =+1 ;SUREPAISSEUR DANS LE PLAN X/Y
40 FN 0: Q16 =+2 ;DISTANCE D'APPROCHE LATERALE
41 ;Fin de la programmation des paramètres
42 ;
43 ;Appel de l'usinage
44 CALL LBL 1
45 STOP
46 ;
47 ;Saisie des paramètres de finition
48 FN 0: Q5 =+360 ;DIVISION
49 FN 0: Q12 =+500 ;AVANCE FRAISAGE
50 FN 0: Q14 =+0 ;SUREPAISSEUR DANS LE PLAN X/Y
51 ;
52 ;Appel de l'usinage
53 CALL LBL 1
54 ;
55 ;Dégagement et fin de programme
56 L  Z+100 R0 FMAX M30
57 ;
58 ;Usinage
59 LBL 1
60 ;Calculs
61 FN 3: Q31 =+Q16 * -1 ;Calcul de la distance d'approche latérale
62 FN 3: Q38 =+Q108 * -1 ;Compensation du rayon d'outil
63 FN 3: Q39 =+Q14 * -1 ;Calcul de la surépaisseur
64 FN 0: Q23 =+Q3 ;Coordonnée Z actuelle
65 FN 0: Q25 =+0 ;Compteur
66 FN 1: Q26 =+Q6 + +Q38 ;Correction du rayon d'outil
67 FN 1: Q26 =+Q26 + +Q39 ;Compensation de surépaisseur
68 FN 1: Q28 =+Q26 + +Q31 ;Rayon de pré-positionnement
69 FN 0: Q27 =+Q7 ;Angle actuel
Q36 = TAN Q8 * Q9 ;Modification du rayon à chaque 360°
70 FN 4: Q36 =+Q36 DIV +Q5 ;Taille du pas du rayon
71 FN 4: Q37 =+360 DIV +Q5 ;Taille du pas angulaire
72 FN 3: Q37 =+Q37 * +Q4 ;Pas angulaire dans le sens défini
73 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
74 ;Fin des calculs
75 ;
76 CC  X+Q1  Y+Q2 ;Définition du centre
77 LP  PR+Q28  PA+Q7 R0 FMAX M3 ;Pré-positionnement
78 L  Z+Q10 R0 FMAX ;Déplacement à la distance d'approche
79 L  Z+Q3 R0 FQ11 ;Approche de la coordonnée de départ Z
80 LP  PR+Q26  PA+Q7 R0 FQ12 ;Approche du rayon de départ
81 LBL 2 ;Répétition
82 FN 1: Q26 =+Q26 + +Q36 ;Actualisation du rayon
83 FN 1: Q27 =+Q27 + +Q37 ;Actualisation de l’angle
84 FN 7: Q21 = COS +Q27 ;Calcul de la coordonnée X
85 FN 3: Q21 =+Q21 * +Q26 ;Calcul de la coordonnée X
86 FN 1: Q21 =+Q21 + +Q1 ;Nouvelle coordonnée X
87 FN 6: Q22 = SIN +Q27 ;Calcul de la coordonnée Y
88 FN 3: Q22 =+Q26 * +Q22 ;Calcul de la coordonnée Y
89 FN 1: Q22 =+Q22 + +Q2 ;Nouvelle coordonnée Y
90 FN 1: Q23 =+Q23 + +Q33 ;Nouvelle coordonnée Z
91 FN 1: Q25 =+Q25 + +1 ;Mise à jour du compteur
92 L  X+Q21  Y+Q22  Z+Q23 FQ12 ;Approche des nouvelles coordonnées
93 FN 12: IF +Q25 LT +Q35 GOTO LBL 2 ;Comparaison pour savoir si le nombre de pas est atteint
94 LP IPR+Q31 ;Dégagement latéral
95 L  Z+Q10 R0 FMAX ;Déplacement à la distance d'approche
96 LBL 0
97 END PGM 3170_FR MM