0 BEGIN PGM 5090-NL MM 1 ;In dit programma worden, op een gezwenkt 2 ;vlak, een rechthoekige tap en een 3 ;rechthoekige kamer bewerkt en vervolgens 4 ;wordt met een schuin ingesteld gereedschap 5 ;rondom een afkanting op de contouren 6 ;gefreesd. De contouren programmeert u met 7 ;cycli. Voor de afkantingen moet u de 8 ;parameters definiëren waaruit de besturing 9 ;de gereedschapsbanen berekent. 10 ; 11 BLK FORM 0.1 Z X-50 Y-50 Z-40 12 BLK FORM 0.2 X+50 Y+50 Z+10 13 TOOL CALL 8 Z S12000 F5000 ;Frees D16 14 ;Reset 15 M129 16 CYCL DEF 7.0 NULPUNT 17 CYCL DEF 7.1 X+0 18 CYCL DEF 7.2 Y+0 19 CYCL DEF 7.3 Z+0 20 PLANE RESET STAY 21 M3 22 ;Bewerkingsvlak zwenken 23 PLANE SPATIAL SPA+15 SPB+0 SPC+0 TURN MB100 FMAX 24 CYCL DEF 232 VLAKFREZEN ~ Q389=+2 ;STRATEGIE ~ Q225=-50 ;STARTPUNT 1E AS ~ Q226=-60 ;STARTPUNT 2E AS ~ Q227=+20 ;STARTPUNT 3E AS ~ Q386=+0 ;EINDPUNT 3E AS ~ Q218=+100 ;LENGTE 1E ZIJKANT ~ Q219=+120 ;LENGTE 2E ZIJKANT ~ Q202=+20 ;MAX. DIEPTESTAP ~ Q369=+0 ;OVERMAAT DIEPTE ~ Q370=+1 ;MAX. OVERLAPPING ~ Q207= AUTO ;AANZET FREZEN ~ Q385= AUTO ;AANZET NABEWERKEN ~ Q253= MAX ;AANZET VOORPOS. ~ Q200=+2 ;VEILIGHEIDSAFSTAND ~ Q357=+2 ;VEIL.AFST. KANT ~ Q204=+50 ;2E VEILIGHEIDSAFST. 25 L X+0 Y+0 Z+100 R0 FMAX M3 M99 26 CYCL DEF 251 RECHTHOEKIGE KAMER ~ Q215=+0 ;BEWERKINGSOMVANG ~ Q218=+60 ;LENGTE 1E ZIJKANT ~ Q219=+50 ;LENGTE 2E ZIJKANT ~ Q220=+10 ;HOEKRADIUS ~ Q368=+0 ;OVERMAAT ZIJKANT ~ Q224=+0 ;ROTATIEPOSITIE ~ Q367=+0 ;POSITIE KAMER ~ Q207= AUTO ;AANZET FREZEN ~ Q351=+1 ;FREESWIJZE ~ Q201=-10 ;DIEPTE ~ Q202=+10 ;DIEPTEVERPLAATSING ~ Q369=+0 ;OVERMAAT DIEPTE ~ Q206= AUTO ;AANZET DIEPTEVERPL. ~ Q338=+0 ;VERPLAATSING NABEW. ~ Q200=+2 ;VEILIGHEIDSAFSTAND ~ Q203=+0 ;COORD. OPPERVLAK ~ Q204=+50 ;2E VEILIGHEIDSAFST. ~ Q370=+1 ;BAANOVERLAPPING ~ Q366=+1 ;INSTEKEN ~ Q385=+500 ;AANZET NABEWERKEN 27 L X+0 Y+0 R0 FMAX M3 M99 28 CYCL DEF 256 RECHTHOEKIGE TAP ~ Q218=+80 ;LENGTE 1E ZIJKANT ~ Q424=+100 ;MAAT 1 ONBEW. WRKST. ~ Q219=+65 ;LENGTE 2E ZIJKANT ~ Q425=+120 ;MAAT 2 ONBEW. WRKST. ~ Q220=+10 ;RADIUS / AFKANTING ~ Q368=+0 ;OVERMAAT ZIJKANT ~ Q224=+0 ;ROTATIEPOSITIE ~ Q367=+0 ;TAPPOSITIE ~ Q207= AUTO ;AANZET FREZEN ~ Q351=+1 ;FREESWIJZE ~ Q201=-10 ;DIEPTE ~ Q202=+10 ;DIEPTEVERPLAATSING ~ Q206=+3000 ;AANZET DIEPTEVERPL. ~ Q200=+2 ;VEILIGHEIDSAFSTAND ~ Q203=+0 ;COORD. OPPERVLAK ~ Q204=+50 ;2E VEILIGHEIDSAFST. ~ Q370=+1 ;BAANOVERLAPPING ~ Q437=+0 ;BENADERINGSPOSITIE 29 L X+0 Y+0 R0 FMAX M3 M99 30 ; 31 ;Afkantingsparameters Q1 = 2 ;AFKANTINGSLENGTE Q2 = 30 ;AFKANTINGSHOEK Q13 = 60 ;LENGTE X Q3 = 50 ;BREEDTE Y Q5 = 10 ;RADIUS Q4 = 1 ;BEWERKING 1=BINNEN 2=BUITEN 32 TOOL CALL DL-0.5 ;Overloop om een zuivere onderkant van de afkanting te verkrijgen 33 CALL LBL "afkanting" 34 ; 35 ;Afkantingsparameters Q1 = 2 ;AFKANTINGSLENGTE Q2 = 30 ;AFKANTINGSHOEK Q13 = 80 ;LENGTE X Q3 = 65 ;BREEDTE Y Q5 = 10 ;RADIUS Q4 = 2 ;BEWERKING 1=BINNEN 2=BUITEN 36 TOOL CALL DL-0.5 ;Overloop om een zuivere onderkant van de afkanting te verkrijgen 37 CALL LBL "afkanting" 38 ; 39 FUNCTION RESET TCPM 40 ;Naar veilige positie verplaatsen 41 L Z+500 R0 FMAX M91 42 L X+800 Y+600 R0 FMAX M91 43 ;Bewerkingsvlak terugzwenken 44 PLANE RESET TURN FMAX 45 ;Einde van programma 46 M30 47 ;Subprogramma's 48 LBL "afkanting" 49 ;Vraag buiten of binnen 50 FN 9: IF +Q4 EQU +1 GOTO LBL "binnen" 51 FN 9: IF +Q4 EQU +2 GOTO LBL "buiten" 52 STOP 53 ;Q4 selecteren buiten of binnen 54 ; 55 LBL "binnen" 56 FUNCTION TCPM F TCP AXIS SPAT PATHCTRL VECTOR 57 FN 11: IF +Q5 GT +0 GOTO LBL "radius" Q5 = Q108 58 LBL "radius" Q10 = Q108 * ( COS Q2 ) ;Bereken gereedschapscorrectie radius Q11 = ( Q3 / 2 ) - Q10 ;Breedte Y - Gereedschapscorrectie radius QL11 = Q5 - Q10 Q21 = ( Q3 / 2 ) - Q5 ;MIDDEN CC Y Q31 = ( Q13 / 2 ) - Q5 ;MIDDEN CC X Q12 = ( Q1 / TAN Q2 ) - ( SIN Q2 * Q108 ) ;Gereedschapscorrectie Z QL13 = Q11 - Q108 ;Benaderingspositie Y QL12 = Q12 - 2 ;Benaderingspositie Z 59 L X-Q108 Y-QL13 Z+50 R0 FMAX 60 L A+Q2 B+0 C+0 R0 FMAX ;Belangrijk alle drie roterende assen vanwege TCPM... AXIS SPAT 61 L Z-QL12 R0 F AUTO 62 CC X+0 Y-QL13 63 CP PA-90 Z-Q12 DR+ 64 L X+Q31 65 ; QL1 = 270 66 LBL 1 QL1 = QL1 + 1 QL2 = QL11 * COS QL1 QL3 = QL11 * SIN QL1 QL2 = Q31 + QL2 QL3 = Q21 - QL3 67 L X+QL2 Y-QL3 IC+1 68 CALL LBL 1 REP89 69 L Y+Q21 QL1 = 0 70 LBL 2 QL1 = QL1 + 1 QL2 = QL11 * COS QL1 QL3 = QL11 * SIN QL1 QL2 = Q31 + QL2 QL3 = Q21 + QL3 71 L X+QL2 Y+QL3 IC+1 72 CALL LBL 2 REP89 73 L X-Q31 QL1 = 90 74 LBL 3 QL1 = QL1 + 1 QL2 = QL11 * COS QL1 QL3 = QL11 * SIN QL1 QL2 = Q31 - QL2 QL3 = Q21 + QL3 75 L X-QL2 Y+QL3 IC+1 76 CALL LBL 3 REP89 77 L Y-Q21 QL1 = 180 78 LBL 4 QL1 = QL1 + 1 QL2 = QL11 * COS QL1 QL3 = QL11 * SIN QL1 QL2 = Q31 - QL2 QL3 = Q21 - QL3 79 L X-QL2 Y-QL3 IC+1 80 CALL LBL 4 REP89 81 L X+0 82 CC X+0 Y-QL13 83 CP PA+0 Z-QL12 DR+ 84 L Z+15 R0 FMAX 85 M140 MB+50 86 M129 87 ; 88 FN 9: IF +0 EQU +0 GOTO LBL "end" 89 ; 90 LBL "buiten" 91 FUNCTION TCPM F TCP AXIS SPAT PATHCTRL VECTOR Q10 = Q108 * ( COS Q2 ) ;Bereken gereedschapscorrectie radius Q11 = ( Q3 / 2 ) + Q10 ;Breedte Y + Gereedschapscorrectie radius QL11 = Q5 + Q10 Q12 = ( Q1 / TAN Q2 ) - ( SIN Q2 * Q108 ) ;Gereedschapscorrectie Z Q21 = ( Q3 / 2 ) - Q5 ;MIDDEN CC Y Q31 = ( Q13 / 2 ) - Q5 ;MIDDEN CC X QL13 = Q11 + Q108 ;Benaderingspositie Y QL12 = Q12 - 2 ;Benaderingspositie Z 92 L X+Q108 Y-QL13 Z+50 R0 FMAX 93 L A-Q2 B+0 C+0 R0 FMAX ;Belangrijk alle drie roterende assen vanwege TCPM... AXIS SPAT 94 L Z-QL12 R0 F AUTO 95 CC X+0 Y-QL13 96 CP IPA+90 Z-Q12 DR+ 97 L X-Q31 98 ; QL1 = 270 99 LBL 10 QL1 = QL1 - 1 QL2 = QL11 * COS QL1 QL3 = QL11 * SIN QL1 QL2 = Q31 - QL2 QL3 = Q21 - QL3 100 L X-QL2 Y-QL3 IC-1 101 CALL LBL 10 REP89 102 L Y+Q21 QL1 = 180 103 LBL 20 QL1 = QL1 - 1 QL2 = QL11 * COS QL1 QL3 = QL11 * SIN QL1 QL2 = Q31 - QL2 QL3 = Q21 + QL3 104 L X-QL2 Y+QL3 IC-1 105 CALL LBL 20 REP89 106 L X+Q31 QL1 = 90 107 LBL 30 QL1 = QL1 - 1 QL2 = QL11 * COS QL1 QL3 = QL11 * SIN QL1 QL2 = Q31 + QL2 QL3 = Q21 + QL3 108 L X+QL2 Y+QL3 IC-1 109 CALL LBL 30 REP89 110 L Y-Q21 QL1 = 0 111 LBL 40 QL1 = QL1 - 1 QL2 = QL11 * COS QL1 QL3 = QL11 * SIN QL1 QL2 = Q31 + QL2 QL3 = Q21 - QL3 112 L X+QL2 Y-QL3 IC-1 113 CALL LBL 40 REP89 114 L X+0 115 CC X+0 Y-QL13 116 CP PA+180 Z-QL12 DR+ 117 L Z+15 R0 FMAX 118 M140 MB+50 119 M129 120 ; 121 LBL "end" 122 LBL 0 123 END PGM 5090-NL MM