0  BEGIN PGM 4020_FR MM 
1  ;Programme permettant d'usiner une surface
2  ;réglée 3D. L'outil se déplace alors sur
3  ;cinq axes. Ses mouvements en cinq axes
4  ;sont indépendants de la cinématique. Seule
5  ;l'annulation de l'inclinaison des axes doit
6  ;être adaptée sur la machine.
7  ;
8  ;Définition des paramètres
9  FN 0: Q1 =+0 ;COORDONNEE X DU 1ER POINT
10 FN 0: Q2 =+0 ;COORDONNEE Y DU 1ER POINT
11 FN 0: Q3 =-10 ;COORDONNEE Z DU 1ER POINT
12 FN 0: Q4 =+60 ;COORDONNEE X DU 2E POINT
13 FN 0: Q5 =+0 ;COORDONNEE Y DU 2E POINT
14 FN 0: Q6 =-25 ;COORDONNEE Z DU 2E POINT
15 FN 0: Q7 =+60 ;COORDONNEE X DU 3E POINT
16 FN 0: Q8 =+60 ;COORDONNEE Y DU 3E POINT
17 FN 0: Q9 =-10 ;COORDONNEE Z DU 3E POINT
18 FN 0: Q10 =+0 ;COORDONNEE X DU 4E POINT
19 FN 0: Q11 =+60 ;COORDONNEE Y DU 4E POINT
20 FN 0: Q12 =-5 ;COORDONNEE Z DU 4E POINT
21 FN 0: Q20 =+500 ;AVANCE DE LA PASSE EN PROFONDEUR
22 FN 0: Q21 =+1500 ;AVANCE FRAISAGE
23 FN 0: Q22 =+1000 ;AVANCE PASSE LATERALE
24 FN 0: Q27 =+1200 ;AVANCE RETRAIT
25 FN 0: Q28 =+9999 ;AVANCE DE PREPOSITIONNEMENT
26 FN 0: Q23 =+1 ;SUREPAISSEUR DE PROFONDEUR
27 FN 0: Q24 =+30 ;HAUTEUR INCREMENTALE LORS DU POSITIONNEMENT
28 FN 0: Q25 =+50 ;DISTANCE D'APPROCHE
29 FN 0: Q26 =+40 ;NOMBRE DE PASSES
30 FN 0: Q29 =+2 ;FACTEUR D'EBAUCHE
31 ;Fin de la programmation des paramètres
32 ;
33 BLK FORM 0.1 Z X+0 Y+0 Z-60
34 BLK FORM 0.2  X+60  Y+60  Z+0
35 ;
36 ;Appel de la fraise deux tailles (ébauche)
37 TOOL CALL 11 Z S15000
38 ;
39 ;Définition du programme 40201_fr.h comme cycle
40 CYCL DEF 12.0 PGM CALL
41 CYCL DEF 12.1 PGM 40201_fr.H
42 ;
43 L  A+0  C+0 R0 FQ28 ;Mise à zéro des axes inclinés
44 L  Z+100 R0 FQ28 M3 ;Déplacement à la hauteur de sécurité
45 CALL LBL 21 ;Appel des calculs
46 L  X+Q1  Y+Q2 FQ28 M99 ;Approche de la position de départ et appel du cycle
47 ;
48 L  A+0  C+0 R0 FQ28 ;Mise à zéro des axes inclinés
49 M129 ;Désactivation de la fonction TCPM
50 ;
51 ;Appel de la fraise deux tailles (finition)
52 TOOL CALL 24 Z S18000
53 ;
54 ;Programmation des paramètres qui varient pour
55 ;la finition
56 FN 0: Q20 =+500 ;AVANCE DE LA PASSE EN PROFONDEUR
57 FN 0: Q21 =+1200 ;AVANCE FRAISAGE
58 FN 0: Q22 =+1000 ;AVANCE PASSE LATERALE
59 FN 0: Q27 =+1200 ;AVANCE RETRAIT
60 FN 0: Q28 =+9999 ;AVANCE DE PRE-POSITIONNEMENT
61 FN 0: Q23 =+0 ;SUREPAISSEUR
62 FN 0: Q29 =+1 ;FACTEUR D'EBAUCHE
63 ;Fin de la programmation des paramètres
64 ;
65 L  Z+100 R0 FQ28 M3 ;Déplacement à la hauteur de sécurité
66 CALL LBL 21 ;Appel des calculs
67 L  X+Q1  Y+Q2 R0 FQ28 M99 ;Approche de la position de départ et appel du cycle
68 L  Z+100 R0 FMAX M5 ;Dégagement de l'outil
69 L  A+0  C+0 R0 FQ28 ;Mise à zéro des axes inclinés
70 FUNCTION RESET TCPM ;Réinitialisation de la fonction TCPM
71 L  Z+100 R0 FQ28 M30 ;Fin du programme
72 ;
73 LBL 21 ;Calculs
74 Q1013 = ATAN ( ( Q3 - Q6 ) / ( Q4 - Q1 ) )
75 Q1014 = ATAN ( ( Q9 - Q6 ) / ( Q8 - Q5 ) )
76 Q1015 = ATAN ( ( Q12 - Q9 ) / ( Q7 - Q10 ) )
77 Q1016 = ATAN ( ( Q12 - Q3 ) / ( Q11 - Q2 ) )
78 CC  X+Q9  Y+Q1013
79 LBL 0
80 END PGM 4020_FR MM