0  BEGIN PGM 4215_FR MM 
1  ;Programme CN permettant d'usiner une
2  ;rainure en forme de spirale sur le
3  ;pourtour d'un arbre.
4  ;Ce programme permet d'usiner la rainure
5  ;avec un diamètre de noyau croissant. Si
6  ;vous définissez une valeur de longueur
7  ;de cône inférieure à la longueur totale
8  ;d'usinage, l'usinage se poursuivra avec
9  ;un diamètre central constant entre le
10 ;moment où la longueur du cône est atteinte
11 ;et la fin de la longueur totale d'usinage.
12 ;Si aucun cône ne doit être usiné, alors
13 ;vous devez définir un diamètre à X0
14 ;identique à celui du bout du cône. Cela
15 ;permet de fraiser une rainure de profondeur
16 ;constante, jusqu'à atteindre la longueur
17 ;totale. Ce programme vous permet également
18 ;de faire varier le pas de la spirale en
19 ;continu. Pour cela, vous devez définir au
20 ;paramètre "Augmentation du pas par rotation"
21 ;le nombre de millimètres de variation du pas
22 ;à chaque tour de vis.
23 ;La CN divise la trajectoire de l'outil en
24 ;plusieurs pas. Ainsi, pour chacun des pas
25 ;elle calcule une coordonnée X et une
26 ;coordonnée Z, ainsi qu'un angle pour l'axe A.
27 ;C'est vous qui définissez au paramètre
28 ;Division le nombre de pas qui composent un
29 ;mouvement sur 360°.
30 ;IMPORTANT!
31 ;L'arbre doit être serré au centre de l'axe A.
32 ;L'axe A doit pouvoir être tourné sur plus de
33 ;360°. L'usinage commence à X=0 et s'effectue
34 ;dans le sens positif.
35 ;
36 ;
37 BLK FORM CYLINDER X R20 L150 DIST+150
38 ;
39 ;Appel d'outil
40 TOOL CALL 155 Z S5000
41 ;
42 ;Définition des paramètres
43 Q1 = 15 ;DIAMETRE DU FOND DE LA RAINURE
44 ;       ;A X0
45 Q2 = 35 ;DIAMETRE DU FOND DE LA RAINURE
46 ;       ;A L'EXTREMITE DU CONE
47 Q3 = 75 ;LONGUEUR DU CONE
48 Q4 = 150 ;LONGUEUR TOTALE DE L'USINAGE
49 Q5 = 6 ;PAS DE DEPART
50 Q6 = 1.5 ;INCREMENT DU PAS A CHAQUE ROTATION
51 Q7 = 50 ;DIVISION
52 Q8 = 100 ;HAUTEUR DE SECURITE
53 Q9 = 0 ;ANGLE INITIAL
54 Q40 = 300 ;AVANCE DE LA PASSE EN PROFONDEUR
55 Q41 = 1000 ;AVANCE DE FRAISAGE
56 ;Fin de la programmation des paramètres
57 ;
58 ;Appel de l'usinage
59 CALL LBL 10
60 ;
61 ;Dégagement et fin de programme
62 L  Z+100 R0 FMAX M30
63 ;
64 ;Usinage
65 LBL 10
66 ;Calculs
67 Q10 = Q2 / 2 - Q1 / 2 ;Variation du rayon du cône
68 Q11 = ATAN ( Q10 / Q3 ) ;Angle du cône
69 Q12 = Q1 / 2 ;Position initiale Z
70 Q13 = Q2 / 2 ;Position finale Z
71 Q17 = 360 / Q7 ;Incrément angulaire
72 Q18 = 0 ;Point de départ X
73 Q27 = Q9 ;Angle départ
74 ;
75 L  Z+Q8 R0 FMAX M3 ;Déplacement à la hauteur de sécurité
76 L  X+0  Y+0 R0 FMAX ;Déplacement à la position de départ X et Y
77 L  X+0  Y+0  Z+Q8  A+Q9 R0 FMAX ;Approche de l'angle de départ
78 L  Z+Q12 R0 FQ40 ;Déplacement à la profondeur de départ
79 ;
80 ;Répétition du cône
81 LBL 1
82 Q27 = Q27 + Q17 ;Calcul du nouvel angle
83 Q30 = Q27 / 360 * ( Q5 + Q6 * Q27 / 360 ) ;Calcul de la nouvelle coordonnée X
84 Q33 = Q12 + TAN Q11 * Q30 ;Calcul de la nouvelle coordonnée Z
85 ;
86 L  X+Q30  Y+0  Z+Q33  A+Q27 R0 FQ41 ;Approche de nouvelles coordonnées et de nouveaux angles
87 FN 12: IF +Q33 LT +Q13 GOTO LBL 1 ;Comparaison pour savoir si la hauteur finale Z est atteinte
88 ;
89 ;Répétition pour l'arbre
90 LBL 2
91 Q27 = Q27 + Q17 ;Calcul du nouvel angle
92 Q30 = Q27 / 360 * ( Q5 + Q6 * Q27 / 360 ) ;Calcul de la nouvelle coordonnée X
93 L  X+Q30  Y+0  Z+Q13  A+Q27 R0 FQ41 ;Approche de la nouvelle coordonnée X et du nouvel angle
94 FN 12: IF +Q30 LT +Q4 GOTO LBL 2 ;Comparaison pour savoir si le rayon final X est atteint
95 ;Fin de l'usinage
96 LBL 0
97 END PGM 4215_FR MM