HEIDENHAIN TNC 426 Manuel De L'utilisateur page 253

22 LBL 0
23 Q 6 = Q6 - Q 0 - Q 08
24 FN 0: Q20 = +
25 FN 0: Q24 = +Q4
26 Q25 = (Q5 - Q4) / Q 3
27 CYCL DEF 7.0 POINT ZERO
28 CYCL DEF 7. X+Q
29 CYCL DEF 7.2 Y+Q2
30 CYCL DEF 7.3 Z-Q3
3 CYCL DEF 0.0 ROTATION
32 CYCL DEF 0. ROT+Q8
33 L X+0 Y+0 R0 F MAX
34 L Z+5 R0 F 000 M3
35 CC Z+0 X+0
36 LP PR+Q 6 PA+Q24 FQ
37 LBL
38 L Y+Q7 R0 FQ
39 FN : Q20 = +Q20 + +
40 FN : Q24 = +Q24 + +Q25
4 FN : IF +Q20 GT +Q 3 GOTO LBL 99
42 LP PR+Q 6 PA+Q24 FQ 2
43 L Y+0 R0 FQ
44 FN : Q24 = +Q24 + +Q25
45 FN : Q20 = +Q20 + +
46 FN 2: IF +Q20 LT +Q 3 GOTO LBL
47 LBL 99
48 CYCL DEF 0.0 ROTATION
49 CYCL DEF 0. ROT+0
50 CYCL DEF 7.0 POINT ZERO
5 CYCL DEF 7. X+0
52 CYCL DEF 7.2 Y+0
53 CYCL DEF 7.3 Z+0
54 LBL 0
55 END PGM ZYLIN MM
240
Sous-programme 10: Usinage
Calcul surépaisseur et outil par rapport au rayon du cylindre
Initialiser le compteur de pas fraisés
Copier l'angle initial dans l'espace (plan Z/X)
Calculer le pas angulaire
Décaler le point zéro au centre du cylindre (axe X)
Calculer la position angulaire dans le plan
Pré-positionnement dans le plan, au centre du cylindre
Pré-positionnement dans l'axe de broche
Initialiser le pôle dans le plan Z/X
Aborder position initiale du cyclindre, obliquement dans la matière
Coupe longitudinale dans le sens Y+
Actualiser le compteur
Actualiser l'angle dans l'espace
Demande si travail terminé, si oui, aller à la fin
Aborder l'"arc" pour usiner la coupe longitudinale suivante
Coupe longitudinale dans le sens Y–
Actualiser le compteur
Actualiser l'angle dans l'espace
Demande si travail non encore terminé, si oui, retour à LBL 1
Annuler la rotation
Annuler le décalage du point zéro
Fin du sous-programme
10 Programmation: Sous-programmes et répétitions de parties de programme