Siemens SINUMERIK 828D Function Manual page 161

Actions
Activate coupling,
Deactivate coupling,
Set actual values,
Program code
%_N_SCHERE1_MPF
;$PATH=/_N_WKS_DIR/_N_DEMOFBE_WPD
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 EVERY $AA_IW[X]>$R3 DO PRESETON(X1,0)
N1500 WAITP(Y)
N1800 ID=6 EVERY $AA_IM[X]<10 DO LEADON(Y,X,1)
N1900 ID=10 EVERY $AA_IM[X]>$R3-30 DO LEADOF(Y,X)
N2000 WAITP(X)
N2100 ID=7 WHEN $R1==1 DO MOV[X]=1 FA[X]=$R4
N2200 M30
Synchronized actions
Function Manual, 07/2012, 6FC5397-5BP40-3BA0
LEADON
LEADOF
PRESETON
3.7 Axis couplings via synchronized actions
Comment
; Length of a part to be cut off
; Start position Y axis
; Start condition for conveyor axis
; Delete any existing coupling
; Table definition
; Value pairs
; End of table definition
; Preset offset at the beginning
; Start position Y axis
; The axis is a linear axis
; Preset offset after length R3,
PRESETON must only be executed with
WHEN and EVERY
; New start after parting
; For X < 10, couple Y to X via table 1
; > 30 before traversed parting
distance, deactivate coupling
; Set extruded material axis
continuously in motion
Examples
161