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