Siemens SINUMERIK 840D sl Manual De Programación página 631

Código del programa
N100 R3=1500
N200 R2=100000 R13=R2/300
N300 R4=100000
N400 R6=30
N500 R1=1
N600 LEADOF(Y,X)
N700 CTABDEF(Y,X,1,0)
N800 X=30 Y=30
N900 X=R13 Y=R13
N1000 X=2*R13 Y=30
N1100 CTABEND
N1200 PRESETON(X1,0)
N1300 Y=R6 G0
N1400 ID=1 WHENEVER $AA_IW[X]>$R3 DO PESETON(X1,0)
N1500 RELEASE(Y)
N1800 ID=6 EVERY $AA_IM[X]<10 DO LEADON(Y,X,1)
N1900 ID=10 EVERY $AA_IM[X]>$R3-30 DO EADOF(Y,X)
N2000 WAITP(X)
N2100 ID=7 WHEN $R1==1 DO MOV[X]=1 FA[X]=$R4
N2200 M30
Preparación del trabajo
Manual de programación, 09/2011, 6FC5398-2BP40-2EA0
Acciones síncronas a desplazamiento
10.4 Acciones en instrucciones síncronas
Comentarios
; Longitud de la pieza
que debe tronzarse
; Posición inicial del
eje Y
; Condición de arranque
para eje de cinta
; borrar un posible
acoplamiento
; Definición de tabla
; Pares de valores
; Fin de la definición
de tabla
; PRESET para empezar
; Posición inicial del
eje Y, el eje es
lineal
; PRESET después de
longitud R3, nuevo
inicio después del
tronzado
; Acoplar Y a X a través
de la tabla 1 si X < 10
; Desacoplar > 30 de la
longitud de tronzado
transportada
; Mover continuamente el
eje del perfil
extruido
631