HEIDENHAIN TNC 620 Manuel D'utilisation page 278

N200 G00 G40 Z+250 M2 *
N210 G98 L10 *
N220 Q16 = Q6 - Q10 - Q108 *
N230 D00 Q20 P01 +1 *
N240 D00 Q24 P01 +Q4 *
N250 Q25 = ( Q5 - Q4 ) / Q13 *
N260 G54 X+Q1 Y+Q2 Z+Q3 *
N270 G73 G90 H+Q8 *
N280 G00 G40 X+0 Y+0 *
N290 G01 Z+5 F1000 M3 *
N300 G98 L1 *
N310 I+0 K+0 *
N320 G11 R+Q16 H+Q24 FQ11 *
N330 G01 G40 Y+Q7 FQ12 *
N340 D01 Q20 P01 +Q20 P02 +1 *
N350 D01 Q24 P01 +Q24 P02 +Q25 *
N360 D11 P01 +Q20 P02 +Q13 P03 99 *
N370 G11 R+Q16 H+Q24 FQ11 *
N380 G01 G40 Y+0 FQ12 *
N390 D01 Q20 P01 +Q20 P02 +1 *
N400 D01 Q24 P01 +Q24 P02 +Q25 *
N410 D12 P01 +Q20 P02 +Q13 P03 1 *
N420 G98 L99 *
N430 G73 G90 H+0 *
N440 G54 X+0 Y+0 Z+0 *
N450 G98 L0 *
N99999999 %CYLIN G71 *
278
Dégager l'outil, fin du programme
Sous-programme 10 : usinage
Calcul du rayon du cylindre en fonction de l'outil et de la surépaisseur
Initialiser le compteur
Copier l'angle initial dans l'espace (plan Z/X)
Calculer l'incrément angulaire
Décaler le point zéro au centre du cylindre (axe X)
Position angulaire dans le plan
Prépositionnement dans le plan, au centre du cylindre
Prépositionnement dans l'axe de broche
Initialiser le pôle dans le plan Z/X
Aborder position initiale du cylindre, avec plongée en pente
Coupe longitudinale dans le sens Y+
Actualiser le compteur
Actualiser l'angle dans l'espace
Question : usinage terminé ?. Si oui, saut à la fin
Aborder "l'arc" pour exécuter la coupe longitudinale suivante
Coupe longitudinale dans le sens Y–
Actualiser le compteur
Actualiser l'angle dans l'espace
Question : continuer usinage ?, si oui, saut au LBL 1
Annuler la rotation
Annuler le décalage du point zéro
Fin du sous-programme
Programmation : paramètres Q