Siemens SINUMERIK 840D sl Function Manual page 156

Examples
4.9 Synchronized actions in the TC/MC area
NC program
%_N_WZW_SPF
;$PATH=/_N_SPF_DIR
N10 DEF INT WZPreselection,WZSpindle
N15 WHEN $AC_PATHN<10 DO $AC_MARKER[0]=0 $AC_MARKER[1]=0
$AC_MARKER[2]=0
N20 ID=3 WHENEVER $A_IN[9]==TRUE DO $AC_MARKER[1]=1
N25 ID=4 WHENEVER $A_IN[10]==TRUE DO $AC_MARKER[2]=1
N30 IF $P_SEARCH GOTOF wzw_vorlauf
N35 SPOSA=0 D0
N40 GETSELT(WZPreselection)
N45 WZSpindle=$TC_MPP6[9998,1]
N50 M06
N55 IF WZSpindle==WZPreselection GOTOF wz_in_spindle IF
WZPreselection==0 GOTOF store1 IF WZSpindle==0 GOTOF fetch1
;*** Fetch and store tool***
store1fetch1:
N65 WHENEVER $AA_VACTM[C2]<>0 DO $AC_MARKER[1]=1
N70 G01 G40 G53 G64 G90 X=Magazin1VPX Y=Magazin1VPY Z=Maga-
zin1ZGespannt F70000 M=QU(120) M=QU(123) M=QU(9)
N75 WHENEVER $AA_STAT[S1]<>4 DO $AC_OVR=0
N80 WHENEVER $AA_VACTM[C2]<>0 DO $AC_MARKER[1]=1
N85 WHENEVER $AC_MARKER[1]==0 DO $AC_OVR=0
N90 WHENEVER $AA_STAT[C2]<>4 DO $AC_OVR=0
N95 WHENEVER $AA_DTEB[C2]>0 DO $AC_OVR=0
N100 G53 G64 X=Magazin1ZP1X Y=Magazin1ZP1Y F60000
N105 G53 G64 X=Magazin1WPX Y=Magazin1WPY F60000
N110 M20
N115 G53 G64 Z=MR_Magazin1ZGeloest F40000
N120 WHENEVER $AA_VACTM[C2]<>0 DO $AC_MARKER[2]=1;
N125 WHENEVER $AC_MARKER[2]==0 DO $AC_OVR=0
N130 WHENEVER $AA_STAT[C2]<>4 DO $AC_OVR=0
N135 WHENEVER $AA_DTEB[C2]>0 DO $AC_OVR=0
N140 G53 G64 Z=Magazin1ZGespannt F40000
N145 M18
N150 WHEN $AC_PATHN<10 DO M=QU(150) M=QU(121)
N155 G53 G64 X=Magazin1VPX Y=Magazin1VPY F60000 D1 M17
156
Comment
; Marker on = 1 when MagAxis traversed
; Marker on = 1 when MagAxis traversed
; Block search active ? ->
; Read preselected T no.
; Read WZ in spindle
; when MagAxis travels Marker = 1
; Spindle in position
; Query MagAxis travel
; Override=0 when axis not traversed
; Override=0 when MagAxis
; not in position fine
; Override=0 when distance-to-go MagAx-
is > 0
; Release WZ
; Clamp tool
; Condition always fulfilled
Function Manual, 08/2018, 6FC5397-5BP40-6BA2
Synchronized actions