0 BEGIN PGM G-seriove cislo MM 1 * - Vytvorene 17.04.2010 2 * - cisla od 0000 do 9999 3 * - Parameter MP 7300 prepisat na 7 ; TNC si pamata Q-parametre 4 * - Pri rucnom prepise cisla [napr. vypnutie stroja , zly kus ...] ,~ odlomitkovat vety 10,11,12,13 , napisat cislo do Q-parametrov 41,42,43,44~ [napr. 1978] , vyrobit kus a potom znovu zalomitkovat !!! 5 BLK FORM 0.1 Z X+0 Y+0 Z-0.5 6 BLK FORM 0.2 X+27.5 Y+15 Z+0 7 * - fr-D3R1.5 8 TOOL CALL 54 Z S10000 9 M13 / 10 FN 0: Q41 =+1 ; cislo 1000 / 11 FN 0: Q42 =+9 ; cislo 100 / 12 FN 0: Q43 =+7 ; cislo 10 / 13 FN 0: Q44 =+8 ; cislo 1 14 FN 0: Q9 =-0.05 ; hlbka frezovania 15 FN 0: Q5 =+5 ; velkost pisma 16 FN 0: Q6 =+700 ; posuv frezovania 17 FN 0: Q7 =+500 ; posuv zahlbovania 18 FN 0: Q8 =+1 ; bezpecnostna vzdialenost v Z-e 19 FN 0: Q20 =+1 ; faktor meritka 20 FN 0: Q21 =+5 ; X - zaciatok prveho cisla [1000] 21 FN 0: Q22 =+5 ; Y - zaciatok 22 CYCL DEF 7.0 NULOVY BOD 23 CYCL DEF 7.1 X+Q21 24 CYCL DEF 7.2 Y+Q22 25 CYCL DEF 11.0 ZMENA MERITKA 26 CYCL DEF 11.1 SCL Q20 27 FN 4: Q26 =+Q5 DIV +1 28 FN 1: Q23 =+Q21 + +Q26 ; X - zaciatok druheho cisla [100] 29 FN 1: Q24 =+Q23 + +Q26 ; X - zaciatok tretieho cisla [10] 30 FN 1: Q25 =+Q24 + +Q26 ; X - zaciatok stvrteho cisla [1] 31 L X+Q21 Y+Q22 Z+50 R0 FMAX 32 * - prve cislo [1000] 33 FN 9: IF +Q41 EQU +0 GOTO LBL 10 34 FN 9: IF +Q41 EQU +1 GOTO LBL 11 35 FN 9: IF +Q41 EQU +2 GOTO LBL 12 36 FN 9: IF +Q41 EQU +3 GOTO LBL 13 37 FN 9: IF +Q41 EQU +4 GOTO LBL 14 38 FN 9: IF +Q41 EQU +5 GOTO LBL 15 39 FN 9: IF +Q41 EQU +6 GOTO LBL 16 40 FN 9: IF +Q41 EQU +7 GOTO LBL 17 41 FN 9: IF +Q41 EQU +8 GOTO LBL 18 42 FN 9: IF +Q41 EQU +9 GOTO LBL 19 43 LBL 10 44 CALL LBL 130 45 FN 9: IF +9 EQU +9 GOTO LBL 150 46 LBL 11 47 CALL LBL 131 48 FN 9: IF +9 EQU +9 GOTO LBL 150 49 LBL 12 50 CALL LBL 132 51 FN 9: IF +9 EQU +9 GOTO LBL 150 52 LBL 13 53 CALL LBL 133 54 FN 9: IF +9 EQU +9 GOTO LBL 150 55 LBL 14 56 CALL LBL 134 57 FN 9: IF +9 EQU +9 GOTO LBL 150 58 LBL 15 59 CALL LBL 135 60 FN 9: IF +9 EQU +9 GOTO LBL 150 61 LBL 16 62 CALL LBL 136 63 FN 9: IF +9 EQU +9 GOTO LBL 150 64 LBL 17 65 CALL LBL 137 66 FN 9: IF +9 EQU +9 GOTO LBL 150 67 LBL 18 68 CALL LBL 138 69 FN 9: IF +9 EQU +9 GOTO LBL 150 70 LBL 19 71 CALL LBL 139 72 FN 9: IF +9 EQU +9 GOTO LBL 150 73 * - druhe cislo [100] 74 LBL 150 75 CYCL DEF 7.0 NULOVY BOD 76 CYCL DEF 7.1 X+Q23 77 FN 9: IF +Q42 EQU +0 GOTO LBL 20 78 FN 9: IF +Q42 EQU +1 GOTO LBL 21 79 FN 9: IF +Q42 EQU +2 GOTO LBL 22 80 FN 9: IF +Q42 EQU +3 GOTO LBL 23 81 FN 9: IF +Q42 EQU +4 GOTO LBL 24 82 FN 9: IF +Q42 EQU +5 GOTO LBL 25 83 FN 9: IF +Q42 EQU +6 GOTO LBL 26 84 FN 9: IF +Q42 EQU +7 GOTO LBL 27 85 FN 9: IF +Q42 EQU +8 GOTO LBL 28 86 FN 9: IF +Q42 EQU +9 GOTO LBL 29 87 LBL 20 88 CALL LBL 130 89 FN 9: IF +9 EQU +9 GOTO LBL 151 90 LBL 21 91 CALL LBL 131 92 FN 9: IF +9 EQU +9 GOTO LBL 151 93 LBL 22 94 CALL LBL 132 95 FN 9: IF +9 EQU +9 GOTO LBL 151 96 LBL 23 97 CALL LBL 133 98 FN 9: IF +9 EQU +9 GOTO LBL 151 99 LBL 24 100 CALL LBL 134 101 FN 9: IF +9 EQU +9 GOTO LBL 151 102 LBL 25 103 CALL LBL 135 104 FN 9: IF +9 EQU +9 GOTO LBL 151 105 LBL 26 106 CALL LBL 136 107 FN 9: IF +9 EQU +9 GOTO LBL 151 108 LBL 27 109 CALL LBL 137 110 FN 9: IF +9 EQU +9 GOTO LBL 151 111 LBL 28 112 CALL LBL 138 113 FN 9: IF +9 EQU +9 GOTO LBL 151 114 LBL 29 115 CALL LBL 139 116 FN 9: IF +9 EQU +9 GOTO LBL 151 117 * - tretie cislo [10] 118 LBL 151 119 CYCL DEF 7.0 NULOVY BOD 120 CYCL DEF 7.1 X+Q24 121 FN 9: IF +Q43 EQU +0 GOTO LBL 30 122 FN 9: IF +Q43 EQU +1 GOTO LBL 31 123 FN 9: IF +Q43 EQU +2 GOTO LBL 32 124 FN 9: IF +Q43 EQU +3 GOTO LBL 33 125 FN 9: IF +Q43 EQU +4 GOTO LBL 34 126 FN 9: IF +Q43 EQU +5 GOTO LBL 35 127 FN 9: IF +Q43 EQU +6 GOTO LBL 36 128 FN 9: IF +Q43 EQU +7 GOTO LBL 37 129 FN 9: IF +Q43 EQU +8 GOTO LBL 38 130 FN 9: IF +Q43 EQU +9 GOTO LBL 39 131 LBL 30 132 CALL LBL 130 133 FN 9: IF +9 EQU +9 GOTO LBL 152 134 LBL 31 135 CALL LBL 131 136 FN 9: IF +9 EQU +9 GOTO LBL 152 137 LBL 32 138 CALL LBL 132 139 FN 9: IF +9 EQU +9 GOTO LBL 152 140 LBL 33 141 CALL LBL 133 142 FN 9: IF +9 EQU +9 GOTO LBL 152 143 LBL 34 144 CALL LBL 134 145 FN 9: IF +9 EQU +9 GOTO LBL 152 146 LBL 35 147 CALL LBL 135 148 FN 9: IF +9 EQU +9 GOTO LBL 152 149 LBL 36 150 CALL LBL 136 151 FN 9: IF +9 EQU +9 GOTO LBL 152 152 LBL 37 153 CALL LBL 137 154 FN 9: IF +9 EQU +9 GOTO LBL 152 155 LBL 38 156 CALL LBL 138 157 FN 9: IF +9 EQU +9 GOTO LBL 152 158 LBL 39 159 CALL LBL 139 160 FN 9: IF +9 EQU +9 GOTO LBL 152 161 * - stvrte cislo [1] 162 LBL 152 163 CYCL DEF 7.0 NULOVY BOD 164 CYCL DEF 7.1 X+Q25 165 FN 9: IF +Q44 EQU +0 GOTO LBL 40 166 FN 9: IF +Q44 EQU +1 GOTO LBL 41 167 FN 9: IF +Q44 EQU +2 GOTO LBL 42 168 FN 9: IF +Q44 EQU +3 GOTO LBL 43 169 FN 9: IF +Q44 EQU +4 GOTO LBL 44 170 FN 9: IF +Q44 EQU +5 GOTO LBL 45 171 FN 9: IF +Q44 EQU +6 GOTO LBL 46 172 FN 9: IF +Q44 EQU +7 GOTO LBL 47 173 FN 9: IF +Q44 EQU +8 GOTO LBL 48 174 FN 9: IF +Q44 EQU +9 GOTO LBL 49 175 LBL 40 176 CALL LBL 130 177 FN 9: IF +9 EQU +9 GOTO LBL 153 178 LBL 41 179 CALL LBL 131 180 FN 9: IF +9 EQU +9 GOTO LBL 153 181 LBL 42 182 CALL LBL 132 183 FN 9: IF +9 EQU +9 GOTO LBL 153 184 LBL 43 185 CALL LBL 133 186 FN 9: IF +9 EQU +9 GOTO LBL 153 187 LBL 44 188 CALL LBL 134 189 FN 9: IF +9 EQU +9 GOTO LBL 153 190 LBL 45 191 CALL LBL 135 192 FN 9: IF +9 EQU +9 GOTO LBL 153 193 LBL 46 194 CALL LBL 136 195 FN 9: IF +9 EQU +9 GOTO LBL 153 196 LBL 47 197 CALL LBL 137 198 FN 9: IF +9 EQU +9 GOTO LBL 153 199 LBL 48 200 CALL LBL 138 201 FN 9: IF +9 EQU +9 GOTO LBL 153 202 LBL 49 203 CALL LBL 139 204 FN 9: IF +9 EQU +9 GOTO LBL 153 205 LBL 153 206 Q44 = Q44 + 1 207 FN 12: IF +Q44 LT +10 GOTO LBL 154 208 FN 0: Q44 =+0 209 Q43 = Q43 + 1 210 FN 12: IF +Q43 LT +10 GOTO LBL 154 211 FN 0: Q43 =+0 212 Q42 = Q42 + 1 213 FN 12: IF +Q42 LT +10 GOTO LBL 154 214 FN 0: Q42 =+0 215 Q41 = Q41 + 1 216 FN 12: IF +Q41 LT +10 GOTO LBL 154 217 FN 0: Q41 =+0 218 LBL 154 219 L Z+50 R0 FMAX M9 220 L X+0 Y+0 Z+0 R0 FMAX M91 221 M2 222 * - END PGM 223 * - LBL cisiel 224 LBL 130 ; 0 225 FN 4: Q20 =+Q5 DIV +10 226 CYCL DEF 11.0 ZMENA MERITKA 227 CYCL DEF 11.1 SCL Q20 228 L X+0 Y+2.639 Z+Q8 R0 FMAX 229 L Z+Q9 R0 FQ7 230 CC X+2.639 Y+2.639 231 CP PA+0 DR+ 232 L Y+7.361 R0 FQ6 233 CC X+2.639 Y+7.361 234 CP PA+180 DR+ 235 L Y+2.639 236 L Z+Q8 237 CYCL DEF 11.0 ZMENA MERITKA 238 CYCL DEF 11.1 SCL 1 239 LBL 0 240 LBL 131 ; 1 241 FN 4: Q20 =+Q5 DIV +10 242 CYCL DEF 11.0 ZMENA MERITKA 243 CYCL DEF 11.1 SCL Q20 244 L X+1 Y+7.888 Z+Q8 R0 FMAX 245 L Z+Q9 R0 FQ7 246 L X+3.5 Y+10 R0 FQ6 247 L Y+0 248 L Z+Q8 249 CYCL DEF 11.0 ZMENA MERITKA 250 CYCL DEF 11.1 SCL 1 251 LBL 0 252 LBL 132 ; 2 253 FN 4: Q20 =+Q5 DIV +10 254 CYCL DEF 11.0 ZMENA MERITKA 255 CYCL DEF 11.1 SCL Q20 256 L X+0 Y+8.147 Z+Q8 R0 FMAX 257 L Z+Q9 R0 FQ7 258 CC X+2.651 Y+7.5 259 CP PA-30 DR- R0 FQ6 260 L X-0.128 Y+0 261 L X+5.128 262 L Z+Q8 263 CYCL DEF 11.0 ZMENA MERITKA 264 CYCL DEF 11.1 SCL 1 265 LBL 0 266 LBL 133 ; 3 267 FN 4: Q20 =+Q5 DIV +10 268 CYCL DEF 11.0 ZMENA MERITKA 269 CYCL DEF 11.1 SCL Q20 270 L X+0.184 Y+8.147 Z+Q8 R0 FMAX 271 CC X+2.598 Y+7.5 272 L Z+Q9 R0 FQ7 273 CP PA-90 DR- R0 FQ6 274 L Y+4.938 275 CC X+2.598 Y+2.5 276 CP PA-170 DR- 277 L Z+Q8 278 CYCL DEF 11.0 ZMENA MERITKA 279 CYCL DEF 11.1 SCL 1 280 LBL 0 281 LBL 134 ; 4 282 FN 4: Q20 =+Q5 DIV +10 283 CYCL DEF 11.0 ZMENA MERITKA 284 CYCL DEF 11.1 SCL Q20 285 L X+3.611 Y+10 Z+Q8 R0 FMAX 286 L Z+Q9 R0 FQ7 287 L X+0.278 Y+2.153 R0 FQ6 288 L Y+1.311 289 L X+5 290 L Z+Q8 R0 FMAX 291 L X+3.611 Y+4.444 R0 FMAX 292 L Z+Q9 R0 FQ7 293 L Y+0 R0 FQ6 294 L Z+Q8 295 CYCL DEF 11.0 ZMENA MERITKA 296 CYCL DEF 11.1 SCL 1 297 LBL 0 298 LBL 135 ; 5 299 FN 4: Q20 =+Q5 DIV +10 300 CYCL DEF 11.0 ZMENA MERITKA 301 CYCL DEF 11.1 SCL Q20 302 CC X+2.596 Y+2.5 303 L X+0.182 Y+1.853 Z+Q8 R0 FMAX 304 L Z+Q9 R0 FQ7 305 CP PA+0 DR+ R0 FQ6 306 L Y+4.167 307 CC X+2.596 Y+4.167 308 CP PA+160 DR+ 309 L Y+10 310 L X+5.096 311 L Z+Q8 312 CYCL DEF 11.0 ZMENA MERITKA 313 CYCL DEF 11.1 SCL 1 314 LBL 0 315 LBL 136 ; 6 316 FN 4: Q20 =+Q5 DIV +10 317 CYCL DEF 11.0 ZMENA MERITKA 318 CYCL DEF 11.1 SCL Q20 319 CC X+2.639 Y+4.167 320 L X+0.139 Y+4.167 Z+Q8 R0 FMAX 321 L Z+Q9 R0 FQ7 322 CP PA+0 DR- R0 FQ6 323 L Y+2.5 324 CC X+2.639 Y+2.5 325 CP PA+180 DR- 326 L Y+7.5 327 CC X+2.639 Y+7.5 328 CP PA+10 DR- 329 L Z+Q8 330 CYCL DEF 11.0 ZMENA MERITKA 331 CYCL DEF 11.1 SCL 1 332 LBL 0 333 LBL 137 ; 7 334 FN 4: Q20 =+Q5 DIV +10 335 CYCL DEF 11.0 ZMENA MERITKA 336 CYCL DEF 11.1 SCL Q20 337 L X+0 Y+8.889 Z+Q8 R0 FMAX 338 L Z+Q9 R0 FQ7 339 L Y+10 R0 FQ6 340 L X+5 341 L Y+9.113 342 L X+0.417 Y+0 343 L Z+Q8 344 CYCL DEF 11.0 ZMENA MERITKA 345 CYCL DEF 11.1 SCL 1 346 LBL 0 347 LBL 138 ; 8 348 FN 4: Q20 =+Q5 DIV +10 349 CYCL DEF 11.0 ZMENA MERITKA 350 CYCL DEF 11.1 SCL Q20 351 CC X+2.639 Y+7.5 352 L X+2.633 Y+5 Z+Q8 R0 FMAX 353 L Z+Q9 R0 FQ7 354 CP PA+270 DR- 355 CC X+2.639 Y+2.5 356 CP PA+90 DR- 357 L Z+Q8 358 CYCL DEF 11.0 ZMENA MERITKA 359 CYCL DEF 11.1 SCL 1 360 LBL 0 361 LBL 139 ; 9 362 FN 4: Q20 =+Q5 DIV +10 363 CYCL DEF 11.0 ZMENA MERITKA 364 CYCL DEF 11.1 SCL Q20 365 L X+0.224 Y+1.853 Z+Q8 R0 FMAX 366 L Z+Q9 R0 FQ7 367 CC X+2.639 Y+2.5 368 CP PA+0 DR+ R0 FQ6 369 L Y+7.5 370 CC X+2.639 Y+7.5 371 CP PA+180 DR+ 372 L Y+5.833 373 CC X+2.639 Y+5.833 374 CP PA+0 DR+ 375 L Z+Q8 376 CYCL DEF 11.0 ZMENA MERITKA 377 CYCL DEF 11.1 SCL 1 378 LBL 0 379 END PGM G-seriove cislo MM