5.6 Mesure étendue MEASA, MEAWA, MEAC (à partir de SW 4

Action synchrone au déplacement 08.97
840 D
NCU 571
840 D
NCU 572
NCU 573
FM-NC 810 D
%_N_SCHERE1_MPF
;$PATH=/_N_SCP_DIR/_N_DEMOFBE_WPD
N100 R3=1500 ;longueur du tronçon à découper
N200 R2=100000 R13=R2/300
N300 R4=100000
N400 R6=30 ;position de départ axe Y
N500 R1=1 ;condition de départ pour l'axe de la scie
N600 LEADOF(Y,X) ;effacement d'un couplage éventuel
N700 CTABDEF(Y,X,1,0) ;définition de la table
N800 X=30 Y=30 ;couple de valeurs
N900 X=R13 Y=R13
N1000 X=2*R13 Y=30
N1100 CTABEND ;fin de la définition de la table
N1200 PRESETON(X1,0) ;PRESET de début
N1300 Y=R6 G0 ;pos.départ axe Y, l'axe est linéaire
N1400 ID=1 WHENEVER $AA_IW[X]>$R3 DO PESETON(X1,0)
;PRESET après longueur R3, nouveau départ après
sectionnement
N1500 WAITP(Y)
N1800 ID=6 EVERY $AA_IM[X]$R3-30 DO EADOF(Y,X)
; > 30 désactiver le couplage avant le
déplacement sur la longueur à tronçonner
N2000 WAITP(X)
N2100 ID=7 WHEN $R1==1 DO MOV[X]=1 ;activer l'axe du boyau en cheminement
AA[X]=$R4
continu
N2200 M30
© Siemens AG 1997 All rights reserved.
10-352 SINUMERIK 840D/810D/FM-NC Manuel de programmation Notions complémentaires (PGA) - Edition 12.97