0 BEGIN PGM 2115_FR MM 
1 ;Programme CN permettant de fraiser un polygone.
2 ;Vous en définissez la taille par le biais de la cote
3 ;sur plat. La CN convertit en interne cette valeur en
4 ;valeur de rayon du sommet et approche cette valeur
5 ;avec une séquence linéaire-polaire. L'outil est
6 ;pré-positionné au niveau du premier sommet, à une
7 ;distance correspondant à la valeur de son diamètre,
8 ;puis approche le contour dans un rayon. Tous les
9 ;paramètres nécessaires se définissent en début de
10 ;programme.
11 ;
12 ;Définition des paramètres
13 FN 0: Q1 =+50 ;CENTRE CONTOUR AXE X
14 FN 0: Q2 =+50 ;CENTRE CONTOUR AXE Y
15 FN 0: Q3 =-10 ;PROFONDEUR
16 FN 0: Q4 =-1 ;SENS
17 ;            ;-1=SENS HORAIRE
18 ;            ;+1=SENS ANTI-HORAIRE
19 FN 0: Q5 =+6 ;NOMBRE DE SOMMETS
20 FN 0: Q9 =+80 ;COTE SUR PLAT
21 FN 0: Q7 =+30 ;POSITION ANGULAIRE DU PREMIER SOMMET
22 FN 0: Q10 =+2 ;DISTANCE D'APPROCHE
23 FN 0: Q11 =+500 ;AVANCE DE LA PASSE EN PROFONDEUR
24 FN 0: Q12 =+250 ;AVANCE FRAISAGE
25 FN 0: Q14 =+0 ;SUREPAISSEUR LATERALE
26 FN 0: Q15 =+1 ;CORRECTION DE RAYON
27 ;             ;0=PAS DE CORRECTION DE RAYON
28 ;             ;1=CORRECTION DE RAYON A GAUCHE
29 ;             ;2=CORRECTION DE RAYON A DROITE
30 ;Fin de la programmation des paramètres
31 ;
32 BLK FORM 0.1 Z X+0 Y+0 Z-22
33 BLK FORM 0.2  X+100  Y+100  Z+0
34 ;
35 ;Appel de l'outil de fraisage
36 TOOL CALL 16 Z S4000
37 ;
38 CALL LBL 1
39 ;
40 ;Dégagement et fin de programme
41 L  Z+100 R0 FMAX M2
42 ;
43 ;Calcul du contour
44 LBL 1
45 FN 4: Q20 =+Q9 DIV +2
46 ;Dédoublement de la cote sur plat
47 FN 1: Q21 =+Q20 + +Q14 ;Ajout de la surépaisseur
Q22 = 360 / Q5 / 2 ;Détermination de la moitié de l'incrément angulaire
Q6 = Q21 / COS Q22 ;Calcul du rayon du sommet
48 ;
49 CC  X+Q1  Y+Q2 ;Définition du centre
50 FN 0: Q27 =+Q7 ;Angle actuel=angle du premier sommet
51 FN 4: Q28 =+Q108 DIV +2 ;Rayon d'approche et de sortie
52 FN 3: Q29 =+Q108 * +2 ;Diamètre d'outil
53 FN 1: Q29 =+Q6 + +Q29 ;Rayon de pré-positionnement
54 FN 0: Q35 =+1 ;Compteur
55 FN 4: Q37 =+360 DIV +Q5 ;Incrément angulaire
56 FN 3: Q37 =+Q37 * +Q4 ;Pas angulaire dans le sens défini
57 LP  PR+Q29  PA+Q7 R0 FMAX M3 ;Prépositionnement
58 L  Z+Q10 FMAX ;Pré-positionnement en Z
59 L  Z+Q3 FQ11 ;Passe en profondeur
60 ;Choix de la trajectoire avec rayon corrigé
61 FN 9: IF +Q15 EQU +1 GOTO LBL 11
62 FN 9: IF +Q15 EQU +2 GOTO LBL 12
63 LP  PR+Q6  PA+Q7 R0 FQ12 ;Approche du premier sommet
64 RND RQ28 FQ12
65 FN 9: IF +0 EQU +0 GOTO LBL 2
66 ;
67 LBL 11
68 LP  PR+Q6  PA+Q7 RL FQ12 ;Approche du premier sommet
69 RND RQ28 FQ12
70 FN 9: IF +0 EQU +0 GOTO LBL 2
71 ;
72 LBL 12
73 LP  PR+Q6  PA+Q7 RR FQ12 ;Approche du premier sommet
74 RND RQ28 FQ12
75 LBL 2
76 FN 1: Q35 =+Q35 + +1 ;Nouveau calcul du compteur
77 FN 1: Q27 =+Q27 + +Q37 ;Nouveau calcul de l'angle
78 LP  PR+Q6  PA+Q27 FQ12 ;Approche du sommet suivant
79 FN 12: IF +Q35 LT +Q5 GOTO LBL 2
80 LP  PR+Q6  PA+Q7 FQ12 ;Approche du premier/dernier sommet
81 RND RQ28
82 LP  PR+Q29  PA+Q7 R0 FQ12 ;Quitter le contour
83 L  Z+Q10 R0 FMAX ;Déplacement jusqu'à la distance d'approche en Z
84 LBL 0
85 END PGM 2115_FR MM