TNC 320 DIN/ISO - heidenhain

8.12 Ohjelmointiesimerkki
N200 G00 G40 Z+250 M2 * Työkalun irtiajo, ohjelman loppu
N210 G98 L10 * Aliohjelma 10: Koneistus
N220 Q16 = Q6 - Q10 - Q108 * Työvaran ja työkalun määritys lieriön säteen suhteen
N230 D00 Q20 P01 +1 * Lastulaskurin asetus
N240 D00 Q24 P01 +Q4 * Alkuavaruuskulman (taso Z/X) kopiointi
N250 Q25 = ( Q5 - Q4 ) / Q13 * Kulma-askeleen laskenta
N260 G54 X+Q1 Y+Q2 Z+Q3 * Nollapisteen siirto lieriön keskipisteeseen (X-akseli)
N270 G73 G90 H+Q8 * Kiertoaseman laskenta tasossa
N280 G00 G40 X+0 Y+0 * Esipaikoitus tasossa lieriön keskipisteeseen
N290 G01 Z+5 F1000 M3 * Esipaikoitus kara-akselilla
N300 G98 L1 *
N310 I+0 K+0 * Napapisteen asetus Z/X-tasossa
N320 G11 R+Q16 H+Q24 FQ11 * Ajo lierion alkupisteeseen vinosti aihioon tunkeutuen
N330 G01 G40 Y+Q7 FQ12 * Pituuslastu suunnassa Y+
N340 D01 Q20 P01 +Q20 P02 +1 * Lastulaskimen päivitys
N350 D01 Q24 P01 +Q24 P02 +Q25 * Avaruuskulman päivitys
N360 D11 P01 +Q20 P02 +Q13 P03 99 * Kysymys, onko jo valmis, jos kyllä, niin hyppy loppuun
N370 G11 R+Q16 H+Q24 FQ11 * Ajo lähestyttävään “kaareen” seuraavaa pituuslastua varten
N380 G01 G40 Y+0 FQ12 * Pituuslastu suunnassa Y–
N390 D01 Q20 P01 +Q20 P02 +1 * Lastulaskimen päivitys
N400 D01 Q24 P01 +Q24 P02 +Q25 * Avaruuskulman päivitys
N410 D12 P01 +Q20 P02 +Q13 P03 1 * Kysymys, onko vielä kesken, jos on, niin paluu kohtaan LBL 1
N420 G98 L99 *
N430 G73 G90 H+0 * Kierron peruutus
N440 G54 X+0 Y+0 Z+0 * Nollapisteen siirron peruutus
N450 G98 L0 * Aliohjelman loppu
N99999999 %ZYLIN G71 *
264 Ohjelmointi: Q-parametri