HEIDENHAIN TNC 410 Manuel D'utilisation page 236

23 LBL 10
24 FN 1: Q23 = +Q11 + +Q6
25 FN 0: Q24 = +Q4
26 FN 1: Q26 = +Q6 + +Q108
27 FN 0: Q28 = +Q8
28 FN 1: Q16 = +Q6 + -Q10
29 CYCL DEF 7.0 POINT ZERO
30 CYCL DEF 7.1 X+Q1
31 CYCL DEF 7.2 Y+Q2
32 CYCL DEF 7.3 Z-Q16
33 CYCL DEF 10.0 ROTATION
34 CYCL DEF 10.1 ROT+Q8
35 CC X+0 Y+0
36 LP PR+Q26 PA+Q8 R0 FQ12
37 LBL 1
38 CC Z+0 X+Q108
39 L Y+0 Z+0 FQ12
40 LBL 2
41 LP PR+Q6 PA+Q24 R0 FQ12
42 FN 2: Q24 = +Q24 - +Q14
43 FN 11: IF +Q24 GT +Q5 GOTO LBL 2
44 LP PR+Q6 PA+Q5
45 L Z+Q23 R0 F1000
46 L X+Q26 R0 FMAX
47 FN 1: Q28 = +Q28 + +Q18
48 FN 0: Q24 = +Q4
49 CYCL DEF 10.0 ROTATION
50 CYCL DEF 10.1 ROT+Q28
51 FN 12: IF +Q28 LT +Q9 GOTO LBL 1
52 FN 9: IF +Q28 EQU +Q9 GOTO LBL 1
53 CYCL DEF 10.0 ROTATION
54 CYCL DEF 10.1 ROT+0
55 CYCL DEF 7.0 POINT ZERO
56 CYCL DEF 7.1 X+0
57 CYCL DEF 7.2 Y+0
58 CYCL DEF 7.3 Z+0
59 LBL 0
60 END PGM SPHERE MM
TNC 410 HEIDENHAIN
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
Prendre en compte la surépaisseur pour le rayon de la sphère
Décaler le point zéro au centre de la sphère
Calculer la position angulaire dans le plan
Initialiser le pôle dans le plan X/Y pour le pré-positionnement
Pré-positionnement dans le plan
Pré-positionnement dans l'axe de broche
Initialiser le pôle dans le plan Z/X, avec décalage du rayon d'outil
Se déplacer à la profondeur
Se déplacer sur l'"arc" vers le haut
Actualiser l'angle solide
Demande si un arc est terminé, si non, retour au LBL 2
Aborder l'angle final dans l'espace
Dégager l'outil dans l'axe de broche
Pré-positionnement pour l'arc suivant
Actualiser la position angulaire dans le plan
Annuler l'angle solide
Activer nouvelle position angulaire
Demande si travail non encore terminé, si oui, retour au LBL 1
Annuler la rotation
Annuler le décalage du point zéro
Fin du sous-programme
229