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