0 BEGIN PGM 4235_FR MM 1 ;Programme CN permettant de réaliser un 2 ;perçage en incliné. 3 ;Afin d'éviter les passes à vide et de 4 ;permettre un usinage avec le plus petit 5 ;outil possible, l'usinage doit être 6 ;effectué suivant les étapes décrites 7 ;ci-après. 8 ;Vous devez commencer par définir l'outil 9 ;et l'ensemble des paramètres nécessaires 10 ;à l'usinage. La CN effectue ensuite 11 ;quelques calculs, positionne l'outil 12 ;perpendiculairement à la surface, au 13 ;centre de la zone d'usinage, et exécute 14 ;un cycle d'usinage de poche circulaire. 15 ;Avec ce cycle, la CN usine le 16 ;plus grand trou possible. 17 ;Ensuite, elle incline l'outil, l'amène 18 ;à une profondeur que vous avez calculée 19 ;au préalable à partir de la profondeur 20 ;de fraisage et d'un offset, de manière 21 ;à ce que l'arête inférieure du trou 22 ;coïncide avec la profondeur de fraisage. 23 ;L'outil exécute ensuite une trajectoire 24 ;en ellipse et réalise le contour de 25 ;perçage. À la fin du programme, la CN 26 ;ramène l'outil au centre, remet les 27 ;axes rotatifs à zéro, désactive la 28 ;fonction TCPM et met fin au programme. 29 ; 30 ; 31 BLK FORM 0.1 Z X+0 Y+0 Z-15 32 BLK FORM 0.2 X+100 Y+100 Z+0 33 ; 34 ;Définition des paramètres 35 FN 0: Q1 =+25 ;RAYON DU TROU 36 FN 0: Q3 =+0 ;ANGLE INITIAL 37 FN 0: Q4 =+360 ;ANGLE FINAL 38 FN 0: Q7 =+50 ;CENTRE DU TROU EN X 39 FN 0: Q8 =+50 ;CENTRE DU TROU EN Y 40 FN 0: Q9 =+0 ;COORDONNEES DE SURFACE 41 FN 0: Q11 =-10 ;ANGLE D'INCLINAISON A 42 FN 0: Q12 =-20 ;PROFONDEUR FRAISAGE 43 FN 0: Q20 =+1500 ;AVANCE DE LA PASSE EN PROFONDEUR 44 FN 0: Q21 =+2000 ;AVANCE FRAISAGE 45 FN 0: Q25 =+5 ;POSITION DE SECURITE EN Z 46 FN 0: Q26 =+360 ;DIVISION 47 ;Fin de la programmation des paramètres 48 ; 49 ;Appel de l'outil de fraisage 50 TOOL CALL 8 Z S3000 51 ; 52 ;Calculs 53 Q38 = COS Q11 ;Conversion de l'angle d'inclinaison 54 FN 4: Q60 =+Q1 DIV +Q38 ;Demi-axe Y pour le perçage 55 Q61 = Q12 ;Profondeur du trou 56 Q62 = SIN Q11 * Q108 ;Décalage en Z pour la trajectoire inclinée 57 FN 12: IF +Q62 LT +0 GOTO LBL 22 ;Contrôle si la valeur du décalage en Z est négative 58 LBL 23 59 Q12 = Q12 - Q62 ;Profondeur de la trajectoire inclinée, en Z 60 Q1 = Q1 - Q108 ;Rayon corrigé de la trajectoire de l'outil 61 Q27 = Q12 * TAN Q11 ;Décalage (offset) du centre entre le contour supérieur et inférieur 62 Q29 = Q27 ;Enregistrement de l'offset au paramètre de comparaison 63 FN 4: Q2 =+Q1 DIV +Q38 ;Demi-axe Y pour la correction du rayon 64 FN 12: IF +Q29 LT +0 GOTO LBL 20 ;Contrôle si la valeur du décalage est positive 65 LBL 21 66 Q28 = ( Q60 * 2 ) - ( Q29 * 2 ) ;Diamètre du trou 67 ;Fin des calculs 68 ; 69 ;Fraisage du trou 70 L Z+100 R0 F9998 M3 ;Déplacement à la hauteur de sécurité 71 L X+Q7 Y+Q8 R0 FMAX ;Positionnement de l'outil au centre 72 CYCL DEF 252 POCHE CIRCULAIRE ~ Q215=+1 ;OPERATIONS D'USINAGE ~ Q223=+Q28 ;DIAMETRE DU CERCLE ~ Q368=+0.1 ;SUREPAIS. LATERALE ~ Q207=+Q21 ;AVANCE FRAISAGE ~ Q351=+1 ;MODE FRAISAGE ~ Q201=+Q61 ;PROFONDEUR ~ Q202=+5 ;PROFONDEUR DE PASSE ~ Q369=+0 ;SUREP. DE PROFONDEUR ~ Q206=+Q20 ;AVANCE PLONGEE PROF. ~ Q338=+0 ;PASSE DE FINITION ~ Q200=+Q25 ;DISTANCE D'APPROCHE ~ Q203=+Q9 ;COORD. SURFACE PIECE ~ Q204=+Q25 ;SAUT DE BRIDE ~ Q370=+1 ;FACTEUR RECOUVREMENT ~ Q366=+1 ;PLONGEE ~ Q385=+500 ;AVANCE DE FINITION 73 M99 ;Appel du cycle 74 ;Fin du perçage du trou 75 ; 76 ;Fraisage de la surface inclinée 77 ;Décalage du point zéro au centre la zone d'usinage 78 CYCL DEF 7.0 POINT ZERO 79 CYCL DEF 7.1 X+Q7 80 CYCL DEF 7.2 Y+Q8 81 CYCL DEF 7.3 Z+Q9 82 ;Suite du décalage du point zéro en incrémental 83 CYCL DEF 7.0 POINT ZERO 84 CYCL DEF 7.1 IY-Q27 85 ; 86 CC X+0 Y+0 ;Définition du centre du cercle 87 L X+0 Y+0 R0 F9998 ;Prépositionnement en X et en Y 88 L Z+Q25 ;Prépositionnement en Z 89 FUNCTION TCPM F TCP AXIS SPAT PATHCTRL AXIS ;Activation du TCPM 90 L A+Q11 B+0 C+0 R0 F9998 ;Inclinaison à l'angle défini 91 ; 92 CALL LBL 10 ;Appel de l'usinage 93 ; 94 L Z+100 R0 F9998 M2 ;Dégagement et fin de programme 95 ; 96 ; 97 ;Sous-programmes d'usinage 98 LBL 10 99 FN 0: Q36 =+Q3 ;Angle actuel égal à l'angle de départ 100 FN 2: Q35 =+Q4 - +Q3 ;Angle d'ouverture 101 FN 4: Q35 =+Q35 DIV +Q26 ;Incrément angulaire 102 FN 0: Q46 =+0 ;Compteur 103 CALL LBL 2 ;Appel du calcul 104 L Z+Q43 R0 FQ20 ;Approche du premier point en Z 105 L X+Q41 Y+Q42 R0 FQ20 M3 ;Approche du premier point en X et en Y 106 LBL 1 ;Répétitions 107 FN 1: Q36 =+Q36 + +Q35 ;Calcul du nouvel angle 108 FN 1: Q46 =+Q46 + +1 ;Synchronisation du compteur 109 CALL LBL 2 ;Appel des calculs 110 L X+Q41 Y+Q42 Z+Q43 FQ21 ;Approche du nouveau point 111 FN 12: IF +Q46 LT +Q26 GOTO LBL 1 ;Comparaison du compteur 112 L X+0 Y+0 R0 F9998 ;Positionnement au centre 113 L Z+Q25 ;Déplacement à la hauteur de sécurité sur l'axe Z 114 L A+0 B+0 C+0 R0 F9998 ;Réinitialisation des axes rotatifs 115 FUNCTION RESET TCPM ;Désactivation du TCPM 116 ;Réinitialisation du décalage du point zéro 117 CYCL DEF 7.0 POINT ZERO 118 CYCL DEF 7.1 X+0 119 CYCL DEF 7.2 Y+0 120 CYCL DEF 7.3 Z+0 121 LBL 0 ;Retour en arrière 122 ; 123 LBL 2 ;Calculs de la nouvelle position 124 FN 7: Q31 = COS +Q36 ;Calcul de la nouvelle coordonnée X 125 FN 3: Q31 =+Q31 * +Q1 ;Calcul de la nouvelle coordonnée X 126 FN 3: Q41 =+Q31 * +1 ;Calcul de la nouvelle coordonnée X 127 FN 6: Q32 = SIN +Q36 ;Calcul de la nouvelle coordonnée Y 128 FN 3: Q32 =+Q32 * +Q2 ;Calcul de la nouvelle coordonnée Y 129 FN 3: Q42 =+Q32 * +1 ;Calcul de la nouvelle coordonnée Y 130 FN 0: Q43 =+Q12 ;Coordonnée Z 131 LBL 0 132 ; 133 ;Sous-programme permettant de définir l'offset dans le 134 ;sens positif de l'axe Y 135 LBL 20 136 Q29 = Q29 * - 1 ;Multiplication de l'offset négatif par -1 137 FN 9: IF +0 EQU +0 GOTO LBL 21 ;Retour dans le programme principal 138 LBL 0 139 ; 140 ;Sous-programme permettant de définir l'offset dans le 141 ;sens positif de l'axe Z 142 LBL 22 143 Q62 = Q62 * - 1 ;Multiplication de l'offset négatif par -1 144 FN 9: IF +0 EQU +0 GOTO LBL 23 ;Retour dans le programme principal 145 LBL 0 146 END PGM 4235_FR MM