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

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, 06/2009, 6FC5398-2BP20-0EA0
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 acopla-
miento
; 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
643