HEIDENHAIN TNC 320 Manuel D'utilisation page 441

18 L Z+100 R0 FMAX M2
19 LBL 10
20 CYCL DEF 7.0 POINT ZÉRO
21 CYCL DEF 7.1 X+Q1
22 CYCL DEF 7.2 Y+Q2
23 CYCL DEF 10.0 ROTATION
24 CYCL DEF 10.1 ROT+Q8
25 Q35 = (Q6 - Q5) / Q7
26 Q36 = Q5
27 Q37 = 0
28 Q21 = Q3 * COS Q36
29 Q22 = Q4 * SIN Q36
30 L X+Q21 Y+Q22 R0 FMAX M3
31 L Z+Q12 R0 FMAX
32 L Z-Q9 R0 FQ10
33 LBL 1
34 Q36 = Q36 + Q35
35 Q37 = Q37 + 1
36 Q21 = Q3 * COS Q36
37 Q22 = Q4 * SIN Q36
38 L X+Q21 Y+Q22 R0 FQ11
39 FN 12: IF +Q37 LT +Q7 GOTO LBL 1
40 CYCL DEF 10.0 ROTATION
41 CYCL DEF 10.1 ROT+0
42 CYCL DEF 7.0 POINT ZÉRO
43 CYCL DEF 7.1 X+0
44 CYCL DEF 7.2 Y+0
45 L Z+Q12 R0 FMAX
46 LBL 0
47 END PGM ELLIPSE MM
HEIDENHAIN TNC 320
Dégager l'outil, fin du programme
Sous-programme 10: Usinage
Décaler le point zéro au centre de l'ellipse
Calculer la position angulaire dans le plan
Calculer l'incrément angulaire
Copier l'angle initial
Initialiser le compteur pour les pas fraisés
Calculer la coordonnée X du point initial
Calculer la coordonnée Y du point initial
Aborder le point initial dans le plan
Prépositionnement à la distance d'approche dans l'axe de broche
Aller à la profondeur d'usinage
Actualiser l'angle
Actualiser le compteur
Calculer la coordonnée X effective
Calculer la coordonnée Y effective
Aborder le point suivant
Demande si travail non encore terminé, si oui, retour à LBL 1
Annuler la rotation
Annuler le décalage du point zéro
Aller à la distance d'approche
Fin du sous-programme
441