Siemens sinumerik 840d Programming Manual page 383

07.98 08.97
10
840D 840D
NCU 571 NCU 572
NCU 573
%_N_SHEARS1_MPF
;$PATH=/_N_WCS_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 WHENEVER $AA_IW[X]>$R3 DO PESETON(X1,0)
N1500 RELEASE(Y)
N1800 ID=6 EVERY $AA_IM[X]<10
N1900 ID=10 EVERY
N2000 WAITP(X)
N2100 ID=7 WHEN $R1==1 DO MOV[X]=1
FA[X]=$R4
N2200 M30
 Siemens AG 2000. All rights reserved
SINUMERIK 840D/840Di/810D/FM-NC Programming Guide Advanced (PGA) – 04.00 Edition
10.4 Actions within synchronized actions
FM-NC 810D 840Di
$AA_IM[X]>$R3-30
;Length of a section to be parted
;Start position Y axis
;Start condition for conveyor axis
;Delete any existing coupling
;Table definition
;Value pair
;End of table definition
;PRESET to begin
;Start pos. Y axis, axis is linear
;PRESET after length R3, new start following parting
DO LEADON(Y,X,1)
; Couple Y to X via table 1, for X < 10
DO EADOF(Y,X)
; > 30 before traversed parting distance,
deactivate coupling
;Place material axis in continuous motion
Motion-Synchronous Action
10
10-383