Siemens SINUMERIK 828D Consignes De Fonctionnement page 140

GMF, canal, mode programme, comportement après remise à zéro
3.7 Recherche de bloc type 1, 2 et 4
Code de programme
N300 G0 G40 G60 X170 Y30
N310 Z100 D0
Fin de la section de contour 2
...
M30
PROC WZW
;Routine de changement d'outil
N500 DEF INT TNR_ACTIVE
N510 DEF INT TNR_PRESELECTION
N520 TNR_ACTIVE = $TC_MPP6[9998,1]
N530 GETSELT(TNR_PRESELECTION)
;
;Exécuter le changement d'outil uniquement si l'outil n'est pas encore actif
N540 IF TNR_AKTIV == TNR_PRESELECTION GOTOF
END
N550 G0 G40 G60 G90 SUPA X450 Y300 Z300 D0
N560 M6
;
FIN : M17
PROC SEARCH_END SAVE
;ASUP pour l'appel de la routine de changement d'outil après la recherche de bloc
N1000 DEF INT TNR_ACTIVE
N1010 DEF INT TNR_PRESELECTION
N1020 DEF INT TNR_SEARCH
N1030 TNR_ACTIVE = $TC_MPP6[9998,1]
N1040 TNR_SEARCH = $P_TOOLNO
N1050 GETSELT(TNR_PRESELECTION)
N1060 IF TNR_AKTIV ==TNR_SEARCH GOTOF ASUP_END
N1070 T = $TC_TP2[TNR_SEARCH]
N1080 WZW
N1090 IF TNR_PRESELECTION == TNR_SEARCH GOTOF ASUP_END
N1100 T = $TC_TP2[TNR_PRESELECTION]
ASUP_END :
N1110 M90
N1120 REPOSA
140
Commentaire
; Désactivation de la correction du ray-
on
; Désactivation de la correction de lon-
gueur
; Variable du numéro T actif
; Variable du numéro T présélectionné
; Lire le numéro T de l'outil actif
; Lecture du numéro T de l'outil présé-
lectionné
; Accostage du point de changement d'ou-
til
; Exécution du changement d'outil
; Variable du numéro T actif
; Variable du numéro T présélectionné
; Variable pour le numéro T déterminé
dans la recherche de bloc
;
; Lire le numéro T de l'outil actif
; Lire le numéro T déterminé par la re-
cherche de bloc
; Lecture du numéro T de l'outil présé-
lectionné
; Sélection de T via le nom de l'outil
; Appeler la routine de changement d'ou-
til
; Restaurer la présélection de T via le
nom de l'outil
; Signalisation en retour à l'AP
; Fin de l'ASUP
Description fonctionnelle, 01/2023, A5E48764112D AE
Fonctions de base