0 BEGIN PGM 3235_FR MM 
1 ;Programme permettant de fraiser un rayon convexe sur
2 ;une pièce, en X.
3 ;L'usinage peut être effectué avec une fraise boule ou
4 ;une fraise deux tailles.
5 ;Le centre et le rayon doivent être définis via des
6 ;paramètres. Le point d'origine doit correspondre au
7 ;point le plus négatif des axes X et Y. Sur l'axe Z,
8 ;le rayon est fraisé de la hauteur d'usinage définie
9 ;jusqu'au plan Z0.
10 ;
11 BLK FORM 0.1 Z X+0 Y+0 Z-20
12 BLK FORM 0.2  X+100  Y+100  Z+20
13 ;
14 ;Appel de la fraise boule ou de la fraise deux tailles
15 TOOL CALL 159 Z S5000
16 ;
17 L  Z+100 R0 FMAX M3
18 ;
19 ;Définition des paramètres
20 FN 0: Q30 =+20 ;CENTRE CERCLE EN Y
21 FN 0: Q31 =+0 ;CENTRE CERCLE EN Z
22 FN 0: Q32 =+20 ;RAYON
23 FN 0: Q34 =+20 ;DIVISION
24 FN 0: Q35 =+0 ;SUREPAISSEUR
25 FN 0: Q36 =+20 ;HAUTEUR DE L'USINAGE
26 FN 0: Q37 =+100 ;LONGUEUR DE LA PIECE
27 FN 0: Q38 =+2 ;DISTANCE D'APPROCHE LATERALE
28 FN 0: Q39 =+1000 ;AVANCE FRAISAGE
29 FN 0: Q40 =+0 ;FORME DE L'OUTIL:
30 ;             ;FRAISE BOULE = 1
31 ;             ;FRAISE DEUX TAILLES = 0
32 FN 0: Q33 =+10 ;RAYON FRAISE BOULE
33 ;Paramétrages terminés
34 ;
35 ;Calculs
Q50 = ACOS ( ( - Q31 + Q36 ) / Q32 ) ;Angle de départ
Q51 = ACOS ( - Q31 / Q32 ) ;Angle final
36 FN 2: Q52 =+Q50 - +Q51 ;Différence angulaire
Q53 = Q52 / ( Q34 + 2 ) ;Incrément angulaire
Q54 = Q32 + Q33 + Q35 ;Rayon effectif
37 FN 4: Q55 =+Q34 DIV +2 ;Nombre de répétitions
38 FN 1: Q56 =+Q108 + +Q38 ;Position X minimum
Q57 = Q37 + Q38 + Q108 ;Position X maximum
39 FN 0: Q58 =+0 ;Correction du rayon de la fraise boule
40 FN 9: IF +Q40 EQU +0 GOTO LBL 2 ;Saut au calcul de la fraise deux tailles
41 LBL 3
42 ;
43 ;Usinage
44 FN 0: Q70 =+Q50 ;Angle actuel = angle de départ
45 LBL 1 ;Répétition de l'usinage
46 FN 2: Q70 =+Q70 - +Q53 ;Incrément angulaire
47 CYCL DEF 7.0 POINT ZERO
48 CYCL DEF 7.1  Y+Q30
49 CYCL DEF 7.2  Z+Q31
Q72 = - ( COS ( Q70 ) * Q54 ) - Q58 ;Calcul de la nouvelle position Z
Q71 = SIN ( Q70 ) * Q54 - Q33 ;Calcul de la nouvelle position Y
50 L  X-Q56  Y+Q72 R0 FMAX ;Approche de la position en X et en Y
51 L  Z+Q71 FMAX ;Approche de la position en Z
52 L  X+Q57 FQ39 ;Fraisage de la trajectoire en X
53 ;
Q70 = Q70 - Q53 ;Incrément angulaire
Q72 = - ( COS ( Q70 ) * Q54 ) - Q58 ;Calcul de la position en Z
Q71 = SIN ( Q70 ) * Q54 - Q33 ;Calcul de la position en Y
54 L  Y+Q72  Z+Q71 R0 FMAX ;Approche de la position en Y et en Z
55 L  X-Q56 FQ39 ;Fraisage de la trajectoire en X
56 CALL LBL 1 REPQ55 ;Répétition d'un usinage
57 STOP
58 ;
59 CYCL DEF 7.0 POINT ZERO
60 CYCL DEF 7.1  X+0
61 CYCL DEF 7.2  Y+0
62 CYCL DEF 7.3  Z+0
63 L  Z+Q36 FMAX ;Approche de la position de départ en Z
64 L IZ+50 FMAX ;Dégagement en Z
65 ;
66 ;Fin du programme
67 M30
68 ;
69 LBL 2 ;Calcul de la fraise deux tailles
70 FN 0: Q33 =+0 ;Mise à zéro de la valeur du rayon de la fraise boule
71 FN 0: Q58 =+Q108 ;Correction de la valeur du rayon de l'outil
72 FN 1: Q54 =+Q32 + +Q35 ;Rayon effectif
73 FN 9: IF +0 EQU +0 GOTO LBL 3 ;Retour en arrière
74 LBL 0
75 END PGM 3235_FR MM