HEIDENHAIN TNC 640 Manuel D'utilisation page 329

17 CALL LBL 10
18 FN 0: Q10 = +0
19 FN 0: Q18 = +5
20 CALL LBL 10
21 L Z+100 R0 FMAX M2
22 LBL 10
23 FN 1: Q23 = +Q11 + +Q6
24 FN 0: Q24 = +Q4
25 FN 1: Q26 = +Q6 + +Q108
26 FN 0: Q28 = +Q8
27 FN 1: Q16 = +Q6 + -Q10
28 CYCL DEF 7.0 POINT ZÉRO
29 CYCL DEF 7.1 X+Q1
30 CYCL DEF 7.2 Y+Q2
31 CYCL DEF 7.3 Z-Q16
32 CYCL DEF 10.0 ROTATION
33 CYCL DEF 10.1 ROT+Q8
34 LBL 1
35 CC X+0 Y+0
36 LP PR+Q26 PA+Q8 R0 FQ12
37 CC Z+0 X+Q108
38 L Y+0 Z+0 FQ12
HEIDENHAIN TNC 640
Appeler l'usinage
Annuler la surépaisseur
Incrément angulaire dans le plan X/Y pour la finition
Appeler l'usinage
Dégager l'outil, fin du programme
Sous-programme 10: usinage
Calculer coordonnée Z pour le prépositionnement
Copier l'angle initial dans l'espace (plan Z/X)
Corriger le rayon de la sphère pour le prépositionnement
Copier la position angulaire dans le plan
Tenir compte de la surépaisseur pour le rayon de la sphère
Décaler le point zéro au centre de la sphère
Calculer l'angle initial dans le plan
Prépositionnement dans l'axe de broche
Initialiser le pôle dans le plan X/Y pour le prépositionnement
Prépositionnement dans le plan
Initialiser le pôle dans le plan Z/X, décalé du rayon d'outil
Se déplacer à la profondeur
329