0 BEGIN PGM 4220_NL MM 1 ;Programma om bij een rechthoekig blok de 2 ;zijvlakken en het bovenvlak te bewerken. 3 ;Het referentiepunt moet in X en Y in het 4 ;midden en in de Zas aan de onderzijde 5 ;liggen. 6 ;In de parameters definieert u de maten 7 ;van het onbewerkte en bewerkte werkstuk 8 ;in de afzonderlijke assen. Bovendien 9 ;definieert u het gereedschap, de 10 ;snijgegevens, de overmaten en de 11 ;veiligheidsafstanden. 12 ;Vervolgens berekent de besturing de maten 13 ;voor de BLKForm en de overmaten voor de 14 ;afzonderlijke vlakken. 15 ;Daarna worden de BLK-Form en de 16 ;gereedschapsoproep met de eerder ingevoerde 17 ;of berekende parameters gedefinieerd. Dan 18 ;bepaalt de besturing door vergelijking van 19 ;onbewerkt en bewerkte werkstuk welke 20 ;vlakken bewerkt moeten worden. 21 ;Vervolgens bewerkt de besturing de 22 ;noodzakelijke vlakken. 23 ;BELANGRIJK! 24 ;Bij de te bewerken vlakken mogen geen 25 ;spanelementen worden aangetroffen. 26 ;Vóór het verplaatsen van de rondassen moet 27 ;een veilige positie worden benaderd. Deze 28 ;is machine-afhankelijk en moet door u 29 ;worden aangepast. 30 ; 31 ; 32 ;Parameterinvoer 33 Q1 = 550 ;EINDMAAT X 34 Q2 = 200 ;EINDMAAT Y 35 Q3 = 200 ;EINDMAAT Z 36 Q4 = 650 ;MAAT ONBEWERKT WERKSTUK X 37 Q5 = 210 ;MAAT ONBEWERKT WERKSTUK Y 38 Q6 = 210 ;MAAT ONBEWERKT WERKSTUK Z 39 Q9 = 51 ;GEREEDSCHAPSNUMMER 40 Q10 = 5200 ;TOERENTAL 41 Q11 = 1200 ;AANZET FREZEN 42 Q15 = 3 ;DIEPTE-INSTELLING 43 Q16 = 0.3 ;OVERMAAT DIEPTE 44 Q17 = 800 ;AANZET NABEWERKEN 45 Q18 = 3 ;VEILIGHEIDSAFSTAND 46 Q19 = 50 ;VEILIGE HOOGTE VOOR VOORPOSITIONEREN 47 ;Einde parameterinvoer 48 ; 49 ;Berekeningen 50 Q7 = Q4 / 2 ;1/2 maat onbewerkt X voor BLK 51 Q8 = Q5 / 2 ;1/2 maat onbewerkt Y voor BLK 52 Q12 = ( Q4 - Q1 ) / 2 ;Overmaat in X per zijde 53 Q13 = Q1 / 2 ;Maat bewerkt X vanaf midden werkstuk 54 Q22 = ( Q5 - Q2 ) / 2 ;Overmaat in Y per zijde 55 Q23 = Q2 / 2 ;Maat bewerkt Y vanaf het midden werkstuk 56 Q30 = Q19 + Q12 ;Voorpositionering bij bewerking in X 57 Q31 = Q19 + Q22 ;Voorpositionering bij bewerking in Y 58 Q32 = Q19 + Q6 ;Voorpositionering bij bewerking in Z 59 ;Einde berekeningen 60 ; 61 BLK FORM 0.1 Z X-Q7 Y-Q8 Z+0 62 BLK FORM 0.2 X+Q7 Y+Q8 Z+Q6 63 ; 64 ;Gereedschapsoproep 65 TOOL CALL Q9 Z SQ10 FQ11 66 ; 67 M3 68 ; 69 ;Vergelijking van maat onbewerkt werkstuk en 70 ;eindmaat in de X-as. Wanneer de bewerking 71 ;noodzakelijk is, spring naar LBL1 72 FN 11: IF +Q4 GT +Q1 GOTO LBL 1 73 ; 74 LBL 3 ;LBL voor terugsprong 75 ;Vergelijking van maat onbewerkt werkstuk en 76 ;eindmaat in de Y-as. Als de bewerking nodig 77 ;is, spring naar LBL2 78 FN 11: IF +Q5 GT +Q2 GOTO LBL 2 79 ; 80 LBL 4 ;LBL voor terugsprong 81 ;Vergelijking van maat onbewerkt werkstuk en 82 ;eindmaat in de Z-as. Wanneer de bewerking 83 ;noodzakelijk is, spring naar LBL5 84 FN 11: IF +Q6 GT +Q3 GOTO LBL 5 85 ; 86 LBL 6 ;LBL voor terugsprong 87 ; 88 M140 MB MAX F9999 ;Vrijzetten 89 M30 ;Einde van programma 90 ; 91 ;Subprogramma's 92 ;Bewerking X 93 LBL 1 94 ;Nulpuntverschuiving naar kant van bewerkt werkstuk 95 CYCL DEF 7.0 NULPUNT 96 CYCL DEF 7.1 X+Q13 97 L Z+Q32 R0 FMAX ;Naar veilige Z-positie verplaatsen 98 L X+0 Y+0 R0 FMAX ;Zwenkpositie benaderen 99 ;Bewerkingsvlak zwenken 100 PLANE SPATIAL SPA+90 SPB+0 SPC+90 MOVE DIST200 FMAX 101 ;Voorpositioneren in Z naar veilige hoogte 102 L Z+Q30 R0 FMAX 103 ;Voorpositionering in X en Y 104 L X+0 Y+0 R0 FMAX 105 ;Cyclus definiëren 106 CYCL DEF 232 VLAKFREZEN ~ Q389=+2 ;STRATEGIE ~ Q225=-Q8 ;STARTPUNT 1E AS ~ Q226=+0 ;STARTPUNT 2E AS ~ Q227=+Q12 ;STARTPUNT 3E AS ~ Q386=+0 ;EINDPUNT 3E AS ~ Q218=+Q5 ;LENGTE 1E ZIJKANT ~ Q219=+Q6 ;LENGTE 2E ZIJKANT ~ Q202=+Q15 ;MAX. DIEPTESTAP ~ Q369=+Q16 ;OVERMAAT DIEPTE ~ Q370=+1 ;MAX. OVERLAPPING ~ Q207=+Q11 ;AANZET FREZEN ~ Q385=+Q17 ;AANZET NABEWERKEN ~ Q253= MAX ;AANZET VOORPOS. ~ Q200=+5 ;VEILIGHEIDSAFSTAND ~ Q357=+5 ;VEIL.AFST. KANT ~ Q204=+50 ;2E VEILIGHEIDSAFST. 107 CYCL CALL 108 M140 MB+200 ;Vrijzetten 109 L X+0 Y+Q6 R0 FMAX ;Zwenkpositie benaderen 110 PLANE RESET MOVE DIST200 FMAX ;Bewerkingsvlak terugzwenken 111 ;Nulpuntverschuiving naar 2e kant van bewerkt werkstuk 112 CYCL DEF 7.0 NULPUNT 113 CYCL DEF 7.1 X-Q13 114 L X+0 R0 FMAX ;Zwenkpositie benaderen 115 ;Bewerkingsvlak zwenken 116 PLANE SPATIAL SPA+90 SPB+0 SPC+270 MOVE DIST200 FMAX 117 ;Voorpositioneren in Z naar veilige hoogte 118 L Z+Q30 R0 FMAX 119 ;Voorpositionering in X en Y 120 L X+0 Y+0 R0 FMAX 121 ;Cyclus definiëren 122 CYCL DEF 232 VLAKFREZEN ~ Q389=+2 ;STRATEGIE ~ Q225=-Q8 ;STARTPUNT 1E AS ~ Q226=+0 ;STARTPUNT 2E AS ~ Q227=+Q12 ;STARTPUNT 3E AS ~ Q386=+0 ;EINDPUNT 3E AS ~ Q218=+Q5 ;LENGTE 1E ZIJKANT ~ Q219=+Q6 ;LENGTE 2E ZIJKANT ~ Q202=+Q15 ;MAX. DIEPTESTAP ~ Q369=+Q16 ;OVERMAAT DIEPTE ~ Q370=+1 ;MAX. OVERLAPPING ~ Q207=+Q11 ;AANZET FREZEN ~ Q385=+Q17 ;AANZET NABEWERKEN ~ Q253= MAX ;AANZET VOORPOS. ~ Q200=+5 ;VEILIGHEIDSAFSTAND ~ Q357=+5 ;VEIL.AFST. KANT ~ Q204=+50 ;2E VEILIGHEIDSAFST. 123 CYCL CALL 124 M140 MB+200 ;Vrijzetten 125 L X+0 Y+Q6 R0 FMAX ;Zwenkpositie benaderen 126 ;Bewerkingsvlak terugzwenken 127 PLANE RESET MOVE DIST200 FMAX 128 ;Nulpunt terugzetten 129 CYCL DEF 7.0 NULPUNT 130 CYCL DEF 7.1 X+0 131 CYCL DEF 7.2 Y+0 132 CYCL DEF 7.3 Z+0 133 FN 9: IF +0 EQU +0 GOTO LBL 3 ;Terugsprong 134 ;*************************************** 135 ;Bewerking Y 136 LBL 2 137 ;Nulpuntverschuiving naar kant van bewerkt werkstuk 138 CYCL DEF 7.0 NULPUNT 139 CYCL DEF 7.1 Y+Q23 140 L X+0 Y+0 R0 FMAX ;Zwenkpositie benaderen 141 ;Bewerkingsvlak zwenken 142 PLANE SPATIAL SPA+90 SPB+0 SPC+180 MOVE DIST200 FMAX 143 ;Voorpositioneren in Z naar veilige hoogte 144 L Z+Q31 R0 FMAX 145 ;Voorpositionering in X en Y 146 L X+0 Y+0 R0 FMAX 147 ;Cyclus definiëren 148 CYCL DEF 232 VLAKFREZEN ~ Q389=+2 ;STRATEGIE ~ Q225=-Q13 ;STARTPUNT 1E AS ~ Q226=+0 ;STARTPUNT 2E AS ~ Q227=+Q22 ;STARTPUNT 3E AS ~ Q386=+0 ;EINDPUNT 3E AS ~ Q218=+Q1 ;LENGTE 1E ZIJKANT ~ Q219=+Q6 ;LENGTE 2E ZIJKANT ~ Q202=+Q15 ;MAX. DIEPTESTAP ~ Q369=+Q16 ;OVERMAAT DIEPTE ~ Q370=+1 ;MAX. OVERLAPPING ~ Q207=+Q11 ;AANZET FREZEN ~ Q385=+Q17 ;AANZET NABEWERKEN ~ Q253= MAX ;AANZET VOORPOS. ~ Q200=+5 ;VEILIGHEIDSAFSTAND ~ Q357=+5 ;VEIL.AFST. KANT ~ Q204=+50 ;2E VEILIGHEIDSAFST. 149 CYCL CALL 150 M140 MB+200 ;Vrijzetten 151 L X+0 Y+Q6 R0 FMAX ;Zwenkpositie benaderen 152 ;Bewerkingsvlak terugzwenken 153 PLANE RESET MOVE DIST200 FMAX 154 ;Nulpuntverschuiving naar 2e kant van bewerkt werkstuk 155 CYCL DEF 7.0 NULPUNT 156 CYCL DEF 7.1 Y-Q23 157 L Y+0 R0 FMAX ;Naar zwenkpositie verplaatsen 158 PLANE SPATIAL SPA+90 SPB+0 SPC+0 TURN MB100 FMAX 159 ;Voorpositioneren in Z naar veilige hoogte 160 L Z+Q31 R0 FMAX 161 ;Voorpositionering in X en Y 162 L X+0 Y+0 R0 FMAX 163 ;Cyclus definiëren 164 CYCL DEF 232 VLAKFREZEN ~ Q389=+2 ;STRATEGIE ~ Q225=-Q13 ;STARTPUNT 1E AS ~ Q226=+0 ;STARTPUNT 2E AS ~ Q227=+Q22 ;STARTPUNT 3E AS ~ Q386=+0 ;EINDPUNT 3E AS ~ Q218=+Q1 ;LENGTE 1E ZIJKANT ~ Q219=+Q6 ;LENGTE 2E ZIJKANT ~ Q202=+Q15 ;MAX. DIEPTESTAP ~ Q369=+Q16 ;OVERMAAT DIEPTE ~ Q370=+1 ;MAX. OVERLAPPING ~ Q207=+Q11 ;AANZET FREZEN ~ Q385=+Q17 ;AANZET NABEWERKEN ~ Q253= MAX ;AANZET VOORPOS. ~ Q200=+5 ;VEILIGHEIDSAFSTAND ~ Q357=+5 ;VEIL.AFST. KANT ~ Q204=+50 ;2E VEILIGHEIDSAFST. 165 CYCL CALL 166 M140 MB+200 ;Vrijzetten 167 L X+0 Y+Q6 R0 FMAX ;Zwenkpositie benaderen 168 ;Bewerkingsvlak terugzwenken 169 PLANE RESET MOVE DIST200 FMAX 170 ;Nulpunt terugzetten 171 CYCL DEF 7.0 NULPUNT 172 CYCL DEF 7.1 X+0 173 CYCL DEF 7.2 Y+0 174 CYCL DEF 7.3 Z+0 175 FN 9: IF +0 EQU +0 GOTO LBL 4 ;Terugsprong 176 ;******************************************* 177 ;Bewerking Z 178 LBL 5 179 ;Cyclus definiëren 180 CYCL DEF 232 VLAKFREZEN ~ Q389=+2 ;STRATEGIE ~ Q225=-Q7 ;STARTPUNT 1E AS ~ Q226=-Q8 ;STARTPUNT 2E AS ~ Q227=+Q6 ;STARTPUNT 3E AS ~ Q386=+Q3 ;EINDPUNT 3E AS ~ Q218=+Q4 ;LENGTE 1E ZIJKANT ~ Q219=+Q5 ;LENGTE 2E ZIJKANT ~ Q202=+Q15 ;MAX. DIEPTESTAP ~ Q369=+Q16 ;OVERMAAT DIEPTE ~ Q370=+1 ;MAX. OVERLAPPING ~ Q207=+Q11 ;AANZET FREZEN ~ Q385=+Q17 ;AANZET NABEWERKEN ~ Q253= MAX ;AANZET VOORPOS. ~ Q200=+5 ;VEILIGHEIDSAFSTAND ~ Q357=+5 ;VEIL.AFST. KANT ~ Q204=+50 ;2E VEILIGHEIDSAFST. 181 CYCL CALL 182 M140 MB+300 F5000 ;Vrijzetten 183 FN 9: IF +0 EQU +0 GOTO LBL 6 ;Terugsprong 184 END PGM 4220_NL MM