0% fanden dieses Dokument nützlich (0 Abstimmungen)
147 Ansichten1 Seite

Timer Restweg

Hochgeladen von

Mario VW
Copyright
© Attribution Non-Commercial (BY-NC)
Wir nehmen die Rechte an Inhalten ernst. Wenn Sie vermuten, dass dies Ihr Inhalt ist, beanspruchen Sie ihn hier.
Verfügbare Formate
Als DOCX, PDF, TXT herunterladen oder online auf Scribd lesen
0% fanden dieses Dokument nützlich (0 Abstimmungen)
147 Ansichten1 Seite

Timer Restweg

Hochgeladen von

Mario VW
Copyright
© Attribution Non-Commercial (BY-NC)
Wir nehmen die Rechte an Inhalten ernst. Wenn Sie vermuten, dass dies Ihr Inhalt ist, beanspruchen Sie ihn hier.
Verfügbare Formate
Als DOCX, PDF, TXT herunterladen oder online auf Scribd lesen

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

Das könnte Ihnen auch gefallen