0 BEGIN PGM 5080-FR MM 1 ;Dans ce programme, un tenon rectangulaire, 2 ;une poche rectangulaire, un tenon 3 ;circulaire et une poche circulaire 4 ;sont usinés, puis un chanfrein est usiné 5 ;sur leurs contours, à l'aide d'un outil 6 ;incliné. L'usinage des contours se programme 7 ;dans le programme principal. Pour les 8 ;chanfreins, vous devez appeler un autre 9 ;programme dans lequel vous devez saisir les 10 ;paramètres correspondants. 11 ; 12 BLK FORM 0.1 Z X+0 Y+0 Z-20 13 BLK FORM 0.2 X+200 Y+100 Z+2 14 ;Appel d'outil 15 TOOL CALL 12 Z S6121 F4591 16 TOOL DEF 8 17 CYCL DEF 232 FRAISAGE TRANSVERSAL ~ Q389=+2 ;STRATEGIE ~ Q225=+0 ;PT INITIAL 1ER AXE ~ Q226=+0 ;PT INITIAL 2EME AXE ~ Q227=+2 ;PT INITIAL 3EME AXE ~ Q386=+0 ;POINT FINAL 3EME AXE ~ Q218=+200 ;1ER COTE ~ Q219=+100 ;2EME COTE ~ Q202=+5 ;PROF. PLONGEE MAX. ~ Q369=+0 ;SUREP. DE PROFONDEUR ~ Q370=+1 ;RECOUVREMENT MAX. ~ Q207= AUTO ;AVANCE FRAISAGE ~ Q385= AUTO ;AVANCE DE FINITION ~ Q253= MAX ;AVANCE PRE-POSIT. ~ Q200=+2 ;DISTANCE D'APPROCHE ~ Q357=+2 ;DIST. APPR. LATERALE ~ Q204=+50 ;SAUT DE BRIDE 18 CYCL CALL M3 19 ; 20 ;Appel d'outil 21 TOOL CALL 8 Z S9549 F2578 22 ;Fraisage du contour extérieur avec le cycle SL 23 CYCL DEF 14.0 CONTOUR 24 CYCL DEF 14.1 LABEL CONTOUR1 /2 /3 25 CYCL DEF 20 DONNEES DU CONTOUR ~ Q1=-15 ;PROFONDEUR FRAISAGE ~ Q2=+1 ;FACTEUR RECOUVREMENT ~ Q3=+0 ;SUREPAIS. LATERALE ~ Q4=+0 ;SUREP. DE PROFONDEUR ~ Q5=+0 ;COORD. SURFACE PIECE ~ Q6=+2 ;DISTANCE D'APPROCHE ~ Q7=+50 ;HAUTEUR DE SECURITE ~ Q8=+0 ;RAYON D'ARRONDI ~ Q9=+1 ;SENS DE ROTATION 26 CYCL DEF 22 EVIDEMENT ~ Q10=-7.5 ;PROFONDEUR DE PASSE ~ Q11= AUTO ;AVANCE PLONGEE PROF. ~ Q12= AUTO ;AVANCE EVIDEMENT ~ Q18=+0 ;OUTIL PRE-EVIDEMENT ~ Q19=+2063 ;AVANCE PENDULAIRE ~ Q208=+99999 ;AVANCE RETRAIT 27 CYCL CALL M3 28 ; 29 ;Fraisage des poches 30 CYCL DEF 251 POCHE RECTANGULAIRE ~ Q215=+0 ;OPERATIONS D'USINAGE ~ Q218=+50 ;1ER COTE ~ Q219=+40 ;2EME COTE ~ Q220=+10 ;RAYON D'ANGLE ~ Q368=+0 ;SUREPAIS. LATERALE ~ Q224=+0 ;POSITION ANGULAIRE ~ Q367=+0 ;POSITION POCHE ~ Q207= AUTO ;AVANCE FRAISAGE ~ Q351=+1 ;MODE FRAISAGE ~ Q201=-15 ;PROFONDEUR ~ Q202=+8 ;PROFONDEUR DE PASSE ~ Q369=+0 ;SUREP. DE PROFONDEUR ~ Q206=+2063 ;AVANCE PLONGEE PROF. ~ Q338=+0 ;PASSE DE FINITION ~ Q200=+2 ;DISTANCE D'APPROCHE ~ Q203=+0 ;COORD. SURFACE PIECE ~ Q204=+50 ;SAUT DE BRIDE ~ Q370=+1 ;FACTEUR RECOUVREMENT ~ Q366=+1 ;PLONGEE ~ Q385=+500 ;AVANCE DE FINITION 31 L X+150 Y+50 R0 FMAX M3 M99 32 ; 33 CYCL DEF 252 POCHE CIRCULAIRE ~ Q215=+0 ;OPERATIONS D'USINAGE ~ Q223=+50 ;DIAMETRE DU CERCLE ~ Q368=+0 ;SUREPAIS. LATERALE ~ Q207= AUTO ;AVANCE FRAISAGE ~ Q351=+1 ;MODE FRAISAGE ~ Q201=-15 ;PROFONDEUR ~ Q202=+8 ;PROFONDEUR DE PASSE ~ Q369=+0 ;SUREP. DE PROFONDEUR ~ Q206=+2063 ;AVANCE PLONGEE PROF. ~ Q338=+0 ;PASSE DE FINITION ~ Q200=+2 ;DISTANCE D'APPROCHE ~ Q203=+0 ;COORD. SURFACE PIECE ~ Q204=+50 ;SAUT DE BRIDE ~ Q370=+1 ;FACTEUR RECOUVREMENT ~ Q366=+1 ;PLONGEE ~ Q385=+500 ;AVANCE DE FINITION 34 L X+50 Y+50 R0 FMAX M3 M99 35 ; 36 TOOL CALL 8 Z S9549 F2500 37 M3 38 ;Décalage du point zéro au centre du cercle 39 CYCL DEF 7.0 POINT ZERO 40 CYCL DEF 7.1 X+50 41 CYCL DEF 7.2 Y+50 42 ;Appel du programme pour le chanfrein du cercle 43 CALL PGM 50801-fr.h 44 ;Décalage du point zéro au centre du rectangle 45 CYCL DEF 7.0 POINT ZERO 46 CYCL DEF 7.1 X+150 47 CYCL DEF 7.2 Y+50 48 ;Appel du programme pour le chanfrein du rectangle 49 CALL PGM 50802-fr.h 50 CYCL DEF 7.0 POINT ZERO 51 CYCL DEF 7.1 X+0 52 CYCL DEF 7.2 Y+0 53 CYCL DEF 7.3 Z+0 54 ; 55 M30 ;Fin du programme 56 ;Sous-programmes 57 ;Contour extérieur 58 LBL 1 59 L X-20 Y-20 RL 60 L X+220 61 L Y+120 62 L X-20 63 L Y-20 64 LBL 0 65 ;Contour du tenon circulaire 66 LBL 2 67 CC X+50 Y+50 68 LP PR+35 PA+0 RL 69 CP IPA-360 DR- 70 LBL 0 71 ;Contour du tenon rectangulaire 72 LBL 3 73 CC X+150 Y+50 74 LP PR+35 PA+0 RL 75 L Y+20 76 RND R15 77 L IX-70 78 RND R15 79 L Y+80 80 RND R15 81 L IX+70 82 RND R15 83 L Y+50 84 LBL 0 85 END PGM 5080-FR MM