HEIDENHAIN TNC 620 (73498x-01) ISO programming - Manuel (Page 276)

276 Programmation : paramètres Q
8.12 Ex
emples de pr
ogr
a
mmation
N180 G00 Z+250 M2 * Dégager l'outil, fin du programme
N10 G98 L1 * Sous-programme 10 : usinage
N200 G54 X+Q1 Y+Q2 * Décaler le point zéro au centre de l’ellipse
N210 G73 G90 H+Q8 * Position angulaire dans le plan
N220 Q35 = ( Q6 - Q5 ) / Q7 * Calculer l'incrément angulaire
N230 D00 Q36 P01 +Q5 * Copier l’angle initial
N240 D00 Q37 P01 +0 * Initialiser le compteur
N250 Q21 = Q3 * COS Q36 * Calculer la coordonnée X du point initial
N260 Q22 = Q4 * SIN Q36 * Calculer la coordonnée Y du point initial
N270 G00 G40 X+Q21 Y+Q22 M3 * Aborder le point initial dans le plan
N280 Z+Q12 * Prépositionnement à la distance d’approche dans l’axe de broche
N290 G01 Z-Q9 FQ10 * Aller à la profondeur d’usinage
N300 G98 L1 *
N310 Q36 = Q36 + Q35 * Actualiser l’angle
N320 Q37 = Q37 + 1 * Actualiser le compteur
N330 Q21 = Q3 * COS Q36 * Calculer la coordonnée X courante
N340 Q22 = Q4 * SIN Q36 * Calculer la coordonnée Y courante
N350 G01 X+Q21 Y+Q22 FQ11 * Aborder le point suivant
N360 D12 P01 +Q37 P02 +Q7 P03 1 * Question : continuer usinage ?, si oui, saut au LBL 1
N370 G73 G90 H+0 * Annuler la rotation
N380 G54 X+0 Y+0 * Annuler le décalage du point zéro
N390 G00 G40 Z+Q12 * Aller à la distance d’approche
N400 G98 L0 * Fin du sous-programme
N99999999 %ELLIPSE G71 *