HEIDENHAIN TNC 426 CB Manuel D'utilisation page 427

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 F MAX
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 426, TNC 430 HEIDENHAIN
Aborder 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
401