0 BEGIN PGM 4230_DE MM 
1 ;Programme CN permettant d'usiner une vis sans
2 ;fin. La forme du corps et ses contre-dépouilles
3 ;rendent nécessaire le réglage de l'outil pendant
4 ;l'usinage. Comme l'un des axes rotatifs doit
5 ;être compensé lors du fraisage des rayons, la
6 ;fonction TCPM a été utilisée.
7 ;L'usinage est divisé en trois étapes : ébauchage,
8 ;préfinition et finition.
9 ;Dans ce programme principal, vous définissez tous
10 ;les paramètres et outils nécessaires.
11 ;Tout d'abord, vous définissez quelques paramètres
12 ;généraux. Ensuite, vous définissez pour chaque étape
13 ;l'outil et certains paramètres. Une fois les
14 ;définitions terminées, un autre programme CN est
15 ;appelé. Avec ce dernier, la CN calcule toutes les
16 ;autres données nécessaires et usine le corps.
17 ;Le contour du corps dans les plans X/Y est également
18 ;programmé dans le programme appelé.
19 ;!Important! L'usinage doit être effectué avec des
20 ;fraises boules. Il convient également de noter que
21 ;ce programme est créé pour une machine avec une
22 ;cinématique de tête B et de table C.
23 ;
24 BLK FORM 0.1 Z X-35 Y-35 Z-40
25 BLK FORM 0.2  X+35  Y+35  Z+0
26 ;
27 ;Définition des paramètres
28 FN 0: Q9 =+3 ;POINT DE DÉPART SUR L'AXE Z
29 FN 0: Q1 =-40 ;POINT FINAL SUR L'AXE Z
30 FN 0: Q2 =+45 ;ROTATION DU CONTOUR
31 FN 0: Q5 =+25 ;HAUTEUR DE SÉCURITÉ
32 FN 0: Q6 =+45 ;RAYON SÉCURISÉ
33 ;
34 ;Ébauchage
35 ;
36 ;Appel de l'outil pour l'ébauchage
37 TOOL CALL "BALL_MILL_D10" Z S3000 F1000
38 TOOL CALL  DL-Q108 ;Compensation de longueur au centre de la boule
39 ;
40 ;Paramètres pour l'ébauchage
41 FN 0: Q3 =-2 ;PROFONDEUR DE PASSE
42 FN 0: Q4 =+90 ;ANGLE D'INCLINAISON DE L'AXE B
43 FN 0: Q7 =+5 ;SURÉPAISSEUR
44 CALL PGM 42301_fr.h
45 ;
46 ;Appel de l'outil pour la préfinition
47 TOOL CALL "BALL_MILL_D8" Z S18000 F1000
48 TOOL CALL  DL-Q108 ;Compensation de longueur au centre de la boule
49 ;
50 ;Paramètre pour la préfinition
51 FN 0: Q3 =-1 ;PROFONDEUR DE PASSE
52 FN 0: Q4 =+75 ;ANGLE D'INCLINAISON DE L'AXE B
53 FN 0: Q7 =+1 ;SURÉPAISSEUR
54 CALL PGM 42301_fr.h
55 ;
56 ;Appel de l'outil pour la finition
57 TOOL CALL "BALL_MILL_D6" Z S20000 F600
58 TOOL CALL  DL-Q108 ;Compensation de longueur au centre de la boule
59 ;
60 ;Paramètre pour la finition
61 FN 0: Q3 =-0.5 ;PROFONDEUR DE PASSE
62 FN 0: Q4 =+60 ;ANGLE D'INCLINAISON DE L'AXE B
63 FN 0: Q7 =+0 ;SURÉPAISSEUR
64 CALL PGM 42301_fr.h
65 ;
66 ;Fin du programme
67 M30
68 END PGM 4230_DE MM