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