0  BEGIN PGM 50801-FR MM 
1  ;Programme pour le chanfrein du cercle
2  ;Paramètres du 1è chanfrein
3  Q1 = 3 ;LONGUEUR DU CHANFREIN
4  Q2 = 30 ;ANGLE DU CHANFREIN
5  Q3 = 70 ;DIAMETRE DU CERCLE
6  Q4 = 2 ;USINAGE 1=INTERIEUR 2=EXTERIEUR
7  TOOL CALL  DL-0.5 ;Dépassement pour obtenir une arête de chanfreinage inférieure nette
8  ;Usinage du chanfrein
9  CALL LBL "fase"
10 ;
11 ;Réinitialisation des axes inclinés
12 PLANE RESET MOVE DIST20 FMAX
13 ;
14 ;Paramètres du 2è chanfrein
15 Q1 = 3 ;LONGUEUR DU CHANFREIN
16 Q2 = 30 ;ANGLE DU CHANFREIN
17 Q3 = 50 ;DIAMETRE DU CERCLE
18 Q4 = 1 ;USINAGE 1=INTERIEUR 2=EXTERIEUR
19 ;
20 ;Usinage du chanfrein
21 CALL LBL "fase"
22 ;
23 ;Réinitialisation des axes inclinés
24 PLANE RESET MOVE DIST20 FMAX
25 ;
26 ;Saut à la fin du programme
27 FN 9: IF +0 EQU +0 GOTO LBL "end"
28 ;
29 ;
30 ;Usinage
31 LBL "fase"
32 ;Requête : extérieur ou intérieur
33 FN 9: IF +Q4 EQU +1 GOTO LBL "inside"
34 FN 9: IF +Q4 EQU +2 GOTO LBL "outside"
35 STOP
36 ;Veuillez sélectionner extérieur ou intérieur pour Q4
37 ;
38 LBL "inside"
39 FUNCTION TCPM F CONT AXIS SPAT PATHCTRL VECTOR ;Activation de la fonction TCPM
40 Q10 = Q108 * ( COS Q2 ) ;Calcul de la correction du rayon de l'outil
41 Q11 = ( Q3 / 2 ) - Q10 ;Diamètre - Correction du rayon de l'outil
42 Q12 = ( Q1 / TAN Q2 ) - ( SIN Q2 * Q108 ) ;Correction de l'outil en Z
43 QL11 = Q11 - Q108 ;Position d'approche Y
44 QL12 = Q12 - 2 ;Position d'approche Z
45 L  X-Q108  Y-QL11  Z+50 R0 FMAX
46 L  A+Q2  B+0  C+0 R0 FMAX ;Les trois axes rotatifs sont importants à cause de TCPM ... AXIS SPAT
47 L  Z-QL12 R0 F AUTO
48 CC  X+0  Y-QL11
49 CP  PA-90  Z-Q12 DR+
50 CC  X+0  Y+0
51 CP IPA+90 IC+90 DR+ F AUTO
52 CP IPA+90 IC+90 DR+
53 CP IPA+90 IC+90 DR+
54 CP IPA+90 IC+90 DR+
55 CC  X+0  Y-QL11
56 CP  PA+0  Z-QL12 DR+
57 L IZ+20
58 FN 9: IF +0 EQU +0 GOTO LBL "reset"
59 ;
60 LBL "outside"
61 FUNCTION TCPM F CONT AXIS SPAT PATHCTRL VECTOR
62 Q10 = Q108 * ( COS Q2 ) ;Calcul de la correction du rayon de l'outil
63 Q11 = ( Q3 / 2 ) + Q10 ;Diamètre + Correction du rayon de l'outil
64 Q12 = ( Q1 / TAN Q2 ) - ( SIN Q2 * Q108 ) ;Correction de l'outil en Z
65 QL11 = Q11 + Q108 ;Position d'approche en Y
66 QL12 = Q12 - 2 ;Position d'approche en Z
67 L  X+Q108  Y-QL11  Z+50 R0 FMAX
68 L  A-Q2  B+0  C+0 R0 FMAX ;Les trois axes rotatifs sont importants à cause de TCPM ... AXIS SPAT.
69 L  Z-QL12 R0 F AUTO
70 CC  X+0  Y-QL11
71 CP IPA+90  Z-Q12 DR+
72 CC  X+0  Y+0
73 CP IPA-90 IC-90 DR- F AUTO
74 CP IPA-90 IC-90 DR-
75 CP IPA-90 IC-90 DR-
76 CP IPA-90 IC-90 DR-
77 CC  X+0  Y-QL11
78 CP  PA+180  Z-QL12 DR+
79 L IZ+20
80 ;
81 LBL "reset"
82 FUNCTION RESET TCPM
83 LBL 0
84 LBL "end"
85 END PGM 50801-FR MM