HEIDENHAIN TNC 426 B Manuel D'utilisation page 259

20 LBL 0
2 CYCL DEF 7.0 POINT ZERO
22 CYCL DEF 7. X+Q
23 CYCL DEF 7.2 Y+Q2
24 CYCL DEF 0.0 ROTATION
25 CYCL DEF 0. ROT+Q8
26 Q35 = (Q6 - Q5) / Q7
27 Q36 = Q5
28 Q37 = 0
29 Q2 = Q3 * COS Q36
30 Q22 = Q4 * SIN Q36
3 L X+Q2 Y+Q22 R0 F MAX M3
32 L Z+Q 2 R0 F MAX
33 L Z-Q9 R0 FQ 0
34 LBL
35 Q36 = Q36 + Q35
36 Q37 = Q37 +
37 Q2 = Q3 * COS Q36
38 Q22 = Q4 * SIN Q36
39 L X+Q2 Y+Q22 R0 FQ
40 FN 2: IF +Q37 LT +Q7 GOTO LBL
4 CYCL DEF 0.0 ROTATION
42 CYCL DEF 0. ROT+0
43 CYCL DEF 7.0 POINT ZERO
44 CYCL DEF 7. X+0
45 CYCL DEF 7.2 Y+0
46 L Z+Q 2 R0 F MAX
47 LBL 0
48 END PGM ELLIPSE MM
246
Sous-programme 10: Usinage
Décaler le point zéro au centre de l'ellipse
Calculer la position angulaire dans le plan
Calculer le pas 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
10 Programmation: Paramètres Q