HEIDENHAIN TNC 310 Manuel D'utilisation page 195

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 FMAX
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 : Q20 = +Q20 + +
45 FN : Q24 = +Q24 + +Q25
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 CYLIN MM
TNC 310 HEIDENHAIN
Sous-programme 10: Usinage
Calcul surépaisseur et outil par rapport au rayon du cylindre
Initialiser le compteur pour les pas fraisés
Copier l'angle initial dans l'espace (plan Z/X)
Calculer l'incrément 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 solide
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 solide
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
181