Lage 6 Quer
N380 DO $R90=0 $R91=0 ;Initialisierung
N382 G96 G71 G00 X18 S1=90 LIMS=6000 ;X15 Abstechanfangsposition
N390 WHEN ($AC_PROG==3) AND ($R90==0) DO $AC_TIMER[1]=0 $R90=1
;Zeitmessung der Abstechunterbrechung starten
N392 ID=11 EVERY ($AC_PROG<>3) AND ($R90==1) DO $AC_TIMER[1]=-1
$R91=$AC_TIMER[1] $R90=3 ;Zeitmessung stoppen
N394 G01 X9 F0.2 ;Abstechen bis zur Sicherheitsgrenze
/N399 WAITMC(6,5,6) ;Kanalkoordination Wait-Befehl /Freigabe Durchstechen
N400 G01 X4.0 F0.08 ;Abstechendposition
N400 G01 X-0.20 F0.075 ;Abstechendposition
N410 G97
/N499 WAITMC(6,5,6) ;Kanalkoordination Wait-Befehl /Ende des Abstechens
N500 STOPRE
N510 IF R90==3
N512 MSG("Abstechen wurde unterbrochen") ;Meldung Abstechunterbrechung setzen
N514 ELSE
N516 MSG ;Meldung lschen
Lage 6 Lngs
N310 $AC_TIMER[1]=-1 ;TIMER STOPPEN
N320 SETMS(11)
;AUSDREHEN NACH LANGDREHER ART
N360 IF R8==1 GOTOF WEITER ;BEARBEITUNG OHNE WKZ
N370 G55 G96 G00 Z2 T614D1 S11=80 M11=04
N380 G0 X4.30
N390 G0 Z-1.24
N400 G1 X4.78 F0.25
N410 G1 X7.2 Z0.2 RND=0.4 F0.04
N420 G1 X9.5
N430 G0 X4.3 Z1.5
N450 G0 Z-1.44
N460 G1 X4.78 F0.25
N470 G1 X7.2 Z0 RND=0.4 F0.025
N480 G1 X9.5
N490 G0 Z2
N510 WEITER:
N530 SETMS (1)
;FERTIGTEIL AUSBRINGEN
N560 WHEN $AA_DTEB[X]<40 DO M=QU(47) $AC_TIMER[1]=0 ; bei 40mm vor
Verfahrwegende RUTSCHE VOR und Timer Starten
N570 ID=30 WHEN $AC_TIMER[1] == 0.15 DO M=QU(51) ; nach 0.2 sek vor
Verfahrwegende GREIFERZANGE AUF