0 BEGIN PGM 4220_FR MM
1 ;Programme CN permettant d'usiner la surface et
2 ;les faces lat�rales d'un parall�l�pip�de.
3 ;Le point d'origine doit se trouver au centre
4 ;de la pi�ce pour les axes X et Y et en dessous
5 ;de la pi�ce pour l'axe Z.
6 ;Vous devez d�finir dans les param�tres les cotes
7 ;des pi�ces brute et finie, pour chacun des axes.
8 ;Par ailleurs, vous d�finissez l'outil, les donn�es
9 ;de coupe, les sur�paisseurs et les distances
10 ;d'approche.
11 ;Puis la CN calcule les cotes de la pi�ce brute
12 ;(BLK-Form) et les sur�paisseurs des diff�rentes
13 ;surfaces.
14 ;Il s'ensuit alors la d�finition de la pi�ce
15 ;brute (BLK-Form) et l'appel de l'outil avec les
16 ;valeurs des param�tres qui ont �t� saisies et
17 ;calcul�es au pr�alable. La CN s'appuie ensuite
18 ;sur une comparaison entre la pi�ce brute et la
19 ;pi�ce finie pour d�finir quelles sont les surfaces
20 ;� usiner.
21 ;Elle usine ensuite les surfaces n�cessaires.
22 ;!!IMPORTANT!!
23 ;Les surfaces � usiner doivent �tre exemptes de tout
24 ;�l�ment de serrage.
25 ;Avant de d�placer les axes rotatifs, il est n�cessaire
26 ;d'approcher une position de s�curit�. Celle-ci doit
27 ;�tre ind�pendante de la machine et doit avoir �t�
28 ;d�finie par vous.
29 ;
30 ;D�finition des param�tres
31 Q1 = 550 ;COTE FINIE X
32 Q2 = 200 ;COTE FINIE Y
33 Q3 = 200 ;COTE FINIE Z
34 Q4 = 650 ;COTE PIECE BRUTE X
35 Q5 = 210 ;COTE PIECE BRUTE Y
36 Q6 = 210 ;COTE PIECE BRUTE Z
37 Q9 = 51 ;NUMERO D'OUTIL
38 Q10 = 5200 ;VITESSE DE ROTATION
39 Q11 = 1200 ;AVANCE DE FRAISAGE
40 Q15 = 3 ;PROFONDEUR DE PASSE
41 Q16 = 0.3 ;SUREPAISSEUR DE PROFONDEUR
42 Q17 = 800 ;AVANCE DE FINITION
43 Q18 = 3 ;DISTANCE D'APPROCHE
44 Q19 = 50 ;HAUTEUR DE SECURITE POUR LE PREPOSITIONNEMENT
45 ;Fin de la programmation des param�tres
46 ;
47 ;Calculs
48 Q7 = Q4 / 2 ;1/2 cote pi�ce brute X pour BLK
49 Q8 = Q5 / 2 ;1/2 cote pi�ce brute Y pour BLK
50 Q12 = ( Q4 - Q1 ) / 2 ;Sur�paisseur en X par c�t�
51 Q13 = Q1 / 2 ;Cote finie X du centre de la pi�ce
52 Q22 = ( Q5 - Q2 ) / 2 ;Sur�paisseur en Y par c�t�
53 Q23 = Q2 / 2 ;Cote finie Y du centre de la pi�ce
54 Q30 = Q19 + Q12 ;Pr�positionnement pour l'usinage en X
55 Q31 = Q19 + Q22 ;Pr�positionnement pour l'usinage en Y
56 Q32 = Q19 + Q6 ;Pr�positionnement pour l'usinage en Z
57 ;Fin des calculs
58 ;
59 BLK FORM 0.1 Z X-Q7 Y-Q8 Z+0
60 BLK FORM 0.2 X+Q7 Y+Q8 Z+Q6
61 ;
62 ;Appel d'outil
63 TOOL CALL Q9 Z SQ10 FQ11
64 ;
65 M3
66 ;
67 ;Comparaison entre la cote brute et la cote finie sur
68 ;l'axe X. Si un usinage est n�cessaire, saut au LBL1
69 FN 11: IF +Q4 GT +Q1 GOTO LBL 1
70 ;
71 LBL 3 ;LBL pour le saut de retour
72 ;Comparaison de la cote brute et de la cote finie sur
73 ;l'axe Y. Si l'usinage est n�cessaire, saut au LBL2
74 ;au LBL2
75 FN 11: IF +Q5 GT +Q2 GOTO LBL 2
76 ;
77 LBL 4 ;LBL pour le saut de retour
78 ;Comparaison entre la cote brute et la cote finie sur
79 ;l'axe Z. Si l'usinage est n�cessaire, saut au LBL5
80 FN 11: IF +Q6 GT +Q3 GOTO LBL 5
81 ;
82 LBL 6 ;LBL pour le saut de retour
83 ;
84 M140 MB MAX F9999 ;D�gagement de l'outil
85 M30 ;Fin du programme
86 ;
87 ;Sous-programmes
88 ;Usinage X
89 LBL 1
90 ;D�calage du point z�ro sur l'ar�te de la pi�ce finie
91 CYCL DEF 7.0 POINT ZERO
92 CYCL DEF 7.1 X+Q13
93 L Z+Q32 R0 FMAX ;D�placement jusqu'� la position de s�curit� en Z
94 L X+0 Y+0 R0 FMAX ;Approche de la position inclin�e
95 ;Inclinaison du plan d'usinage
96 PLANE SPATIAL SPA+90 SPB+0 SPC+90 MOVE DIST200 FMAX
97 ;Pr�positionnement en Z, � hauteur de s�curit�
98 L Z+Q30 R0 FMAX
99 ;Pr�positionnement en X et en Y
100 L X+0 Y+0 R0 FMAX
101 ;D�finition d'un cycle
102 CYCL DEF 232 FRAISAGE TRANSVERSAL ~
Q389=+2 ;STRATEGIE ~
Q225=-Q8 ;PT INITIAL 1ER AXE ~
Q226=+0 ;PT INITIAL 2EME AXE ~
Q227=+Q12 ;PT INITIAL 3EME AXE ~
Q386=+0 ;POINT FINAL 3EME AXE ~
Q218=+Q5 ;1ER COTE ~
Q219=+Q6 ;2EME COTE ~
Q202=+Q15 ;PROF. PLONGEE MAX. ~
Q369=+Q16 ;SUREP. DE PROFONDEUR ~
Q370=+1 ;RECOUVREMENT MAX. ~
Q207=+Q11 ;AVANCE FRAISAGE ~
Q385=+Q17 ;AVANCE DE FINITION ~
Q253= MAX ;AVANCE PRE-POSIT. ~
Q200=+5 ;DISTANCE D'APPROCHE ~
Q357=+5 ;DIST. APPR. LATERALE ~
Q204=+50 ;SAUT DE BRIDE
103 CYCL CALL
104 M140 MB+200 ;D�gagement de l'outil
105 L X+0 Y+Q6 R0 FMAX ;Approche de la position inclin�e
106 PLANE RESET MOVE DIST200 FMAX ;R�initialisation de l'inclinaison du plan d'usinage
107 ;D�calage du point z�ro sur la 2� ar�te de la pi�ce finie
108 CYCL DEF 7.0 POINT ZERO
109 CYCL DEF 7.1 X-Q13
110 L X+0 R0 FMAX ;Approche de la position inclin�e
111 ;Inclinaison du plan d'usinage
112 PLANE SPATIAL SPA+90 SPB+0 SPC+270 MOVE DIST200 FMAX
113 ;Pr�positionnement en Z, � hauteur de s�curit�
114 L Z+Q30 R0 FMAX
115 ;Pr�positionnement en X et en Y
116 L X+0 Y+0 R0 FMAX
117 ;D�finition d'un cycle
118 CYCL DEF 232 FRAISAGE TRANSVERSAL ~
Q389=+2 ;STRATEGIE ~
Q225=-Q8 ;PT INITIAL 1ER AXE ~
Q226=+0 ;PT INITIAL 2EME AXE ~
Q227=+Q12 ;PT INITIAL 3EME AXE ~
Q386=+0 ;POINT FINAL 3EME AXE ~
Q218=+Q5 ;1ER COTE ~
Q219=+Q6 ;2EME COTE ~
Q202=+Q15 ;PROF. PLONGEE MAX. ~
Q369=+Q16 ;SUREP. DE PROFONDEUR ~
Q370=+1 ;RECOUVREMENT MAX. ~
Q207=+Q11 ;AVANCE FRAISAGE ~
Q385=+Q17 ;AVANCE DE FINITION ~
Q253= MAX ;AVANCE PRE-POSIT. ~
Q200=+5 ;DISTANCE D'APPROCHE ~
Q357=+5 ;DIST. APPR. LATERALE ~
Q204=+50 ;SAUT DE BRIDE
119 CYCL CALL
120 M140 MB+200 ;D�gagement de l'outil
121 L X+0 Y+Q6 R0 FMAX ;Approche de la position inclin�e
122 ;R�initialisation de l'inclinaison du plan d'usinage
123 PLANE RESET MOVE DIST200 FMAX
124 ;R�initialisation du point z�ro
125 CYCL DEF 7.0 POINT ZERO
126 CYCL DEF 7.1 X+0
127 CYCL DEF 7.2 Y+0
128 CYCL DEF 7.3 Z+0
129 FN 9: IF +0 EQU +0 GOTO LBL 3 ;Retour en arri�re
130 ;***************************************
131 ;Usinage Y
132 LBL 2
133 ;D�calage du point z�ro sur l'ar�te de la pi�ce finie
134 CYCL DEF 7.0 POINT ZERO
135 CYCL DEF 7.1 Y+Q23
136 L X+0 Y+0 R0 FMAX ;Approche de la position inclin�e
137 ;Inclinaison du plan d'usinage
138 PLANE SPATIAL SPA+90 SPB+0 SPC+180 MOVE DIST200 FMAX
139 ;Pr�positionnement en Z, � hauteur de s�curit�
140 L Z+Q31 R0 FMAX
141 ;Pr�positionnement en X et en Y
142 L X+0 Y+0 R0 FMAX
143 ;D�finition d'un cycle
144 CYCL DEF 232 FRAISAGE TRANSVERSAL ~
Q389=+2 ;STRATEGIE ~
Q225=-Q13 ;PT INITIAL 1ER AXE ~
Q226=+0 ;PT INITIAL 2EME AXE ~
Q227=+Q22 ;PT INITIAL 3EME AXE ~
Q386=+0 ;POINT FINAL 3EME AXE ~
Q218=+Q1 ;1ER COTE ~
Q219=+Q6 ;2EME COTE ~
Q202=+Q15 ;PROF. PLONGEE MAX. ~
Q369=+Q16 ;SUREP. DE PROFONDEUR ~
Q370=+1 ;RECOUVREMENT MAX. ~
Q207=+Q11 ;AVANCE FRAISAGE ~
Q385=+Q17 ;AVANCE DE FINITION ~
Q253= MAX ;AVANCE PRE-POSIT. ~
Q200=+5 ;DISTANCE D'APPROCHE ~
Q357=+5 ;DIST. APPR. LATERALE ~
Q204=+50 ;SAUT DE BRIDE
145 CYCL CALL
146 M140 MB+200 ;D�gagement de l'outil
147 L X+0 Y+Q6 R0 FMAX ;Approche de la position inclin�e
148 ;R�initialisation de l'inclinaison du plan d'usinage
149 PLANE RESET MOVE DIST200 FMAX
150 ;D�calage du point z�ro sur la deuxi�me ar�te de la pi�ce finie
151 CYCL DEF 7.0 POINT ZERO
152 CYCL DEF 7.1 Y-Q23
153 L Y+0 R0 FMAX ;D�placement jusqu'� la position inclin�e
154 PLANE SPATIAL SPA+90 SPB+0 SPC+0 TURN MB100 FMAX
155 ;Pr�positionnement en Z, � hauteur de s�curit�
156 L Z+Q31 R0 FMAX
157 ;Pr�positionnement en X et en Y
158 L X+0 Y+0 R0 FMAX
159 ;D�finition d'un cycle
160 CYCL DEF 232 FRAISAGE TRANSVERSAL ~
Q389=+2 ;STRATEGIE ~
Q225=-Q13 ;PT INITIAL 1ER AXE ~
Q226=+0 ;PT INITIAL 2EME AXE ~
Q227=+Q22 ;PT INITIAL 3EME AXE ~
Q386=+0 ;POINT FINAL 3EME AXE ~
Q218=+Q1 ;1ER COTE ~
Q219=+Q6 ;2EME COTE ~
Q202=+Q15 ;PROF. PLONGEE MAX. ~
Q369=+Q16 ;SUREP. DE PROFONDEUR ~
Q370=+1 ;RECOUVREMENT MAX. ~
Q207=+Q11 ;AVANCE FRAISAGE ~
Q385=+Q17 ;AVANCE DE FINITION ~
Q253= MAX ;AVANCE PRE-POSIT. ~
Q200=+5 ;DISTANCE D'APPROCHE ~
Q357=+5 ;DIST. APPR. LATERALE ~
Q204=+50 ;SAUT DE BRIDE
161 CYCL CALL
162 M140 MB+200 ;D�gagement de l'outil
163 L X+0 Y+Q6 R0 FMAX ;Approche de la position inclin�e
164 ;R�initialisation de l'inclinaison du plan d'usinage
165 PLANE RESET MOVE DIST200 FMAX
166 ;R�initialisation du point z�ro
167 CYCL DEF 7.0 POINT ZERO
168 CYCL DEF 7.1 X+0
169 CYCL DEF 7.2 Y+0
170 CYCL DEF 7.3 Z+0
171 FN 9: IF +0 EQU +0 GOTO LBL 4 ;Retour en arri�re
172 ;*******************************************
173 ;Usinage Z
174 LBL 5
175 ;D�finition d'un cycle
176 CYCL DEF 232 FRAISAGE TRANSVERSAL ~
Q389=+2 ;STRATEGIE ~
Q225=-Q7 ;PT INITIAL 1ER AXE ~
Q226=-Q8 ;PT INITIAL 2EME AXE ~
Q227=+Q6 ;PT INITIAL 3EME AXE ~
Q386=+Q3 ;POINT FINAL 3EME AXE ~
Q218=+Q4 ;1ER COTE ~
Q219=+Q5 ;2EME COTE ~
Q202=+Q15 ;PROF. PLONGEE MAX. ~
Q369=+Q16 ;SUREP. DE PROFONDEUR ~
Q370=+1 ;RECOUVREMENT MAX. ~
Q207=+Q11 ;AVANCE FRAISAGE ~
Q385=+Q17 ;AVANCE DE FINITION ~
Q253= MAX ;AVANCE PRE-POSIT. ~
Q200=+5 ;DISTANCE D'APPROCHE ~
Q357=+5 ;DIST. APPR. LATERALE ~
Q204=+50 ;SAUT DE BRIDE
177 CYCL CALL
178 M140 MB+300 F5000 ;D�gagement de l'outil
179 FN 9: IF +0 EQU +0 GOTO LBL 6 ;Retour en arri�re
180 END PGM 4220_FR MM