Siemens SINUMERIK 840Di sl Funktionshandbuch Seite 153

NC-Programm
%_N_WZW_SPF
;$PATH=/_N_SPF_DIR
N10 DEF INT WZVorwahl,WZSpindel
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(WZVorwahl)
N45 WZSpindel=$TC_MPP6[9998,1]
N50 M06
N55 IF WZSpindel==WZVorwahl GOTOF wz_in_spindel IF
WZVorwahl==0 GOTOF ablegen1 IF WZSpindel==0 GOTOF holen1
;***Werkzeug holen und ablegen***
ablegen1holen1:
N65 WHENEVER $AA_VACTM[C2]<>0 DO $AC_MARKER[1]=1
N70 G01 G40 G53 G64 G90 X=Magazin1VPX Y=Magazin1VPY
Z=Magazin1ZGespannt 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
;***Werkzeug ablegen***
ablegen1:
N160 WHENEVER $AA_VACTM[C2]<>0 DO $AC_MARKER[1]=1
N165 G01 G40 G53 G64 G90 X=Magazin1VPX Y=Magazin1VPY
Z=Magazin1ZGespannt F70000 M=QU(120) M=QU(123) M=QU(9)
N170 WHENEVER $AA_STAT[S1]<>4 DO $AC_OVR=0
N175 WHENEVER $AA_VACTM[C2]<>0 DO $AC_MARKER[1]=1
Synchronaktionen
Funktionshandbuch, 11/2006, 6FC5397-5BP10-2AA0
5.9 Synchronaktionen im Bereich WZW/BAZ
Kommentar
; Marker auf = 1 wenn MagAchse gefahren
; Marker auf = 1 wenn MagAchse gefahren
; Satzvorlauf aktiv ? ->
; vorgewählte T-Nr.lesen
; WZ in Spindel lesen
; wenn MagAchse fährt Marker = 1
; Spindel in Position
; MagAchse fährt abfragen
; Override=0 wenn Achse nicht gefahren
; Override=0 wenn MagAchse
; nicht in Pos fein
; Override=0 wenn Restweg MagAchse > 0
; WZ lösen
; Werkzeug spannen
; Bedingung immer erfüllt
Beispiele
5-23