Siemens SINUMERIK 840D sl Programmierhandbuch Seite 615

Programmcode
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) ; PRESET nach Länge R3, neuer
N1500 RELEASE(Y)
N1800 ID=6 EVERY $AA_IM[X]<10 DO LEADON(Y,X,1)
N1900 ID=10 EVERY $AA_IM[X]>$R3-30 DO EADOF(Y,X)
N2000 WAITP(X)
N2100 ID=7 WHEN $R1==1 DO MOV[X]=1 FA[X]=$R4
N2200 M30
Arbeitsvorbereitung
Programmierhandbuch, 03/2010, 6FC5398-2BP20-1AA0
Bewegungssynchronaktionen
10.4 Aktionen in Synchronaktionen
Kommentar
; Länge eines abzutrennenden
Teiles
; Startposition Y Achse
; Startbedingung für Bandachse
; löschen einer evtl.
bestehenden Kopplung
; Tabellendefinition
; Wertepaare
; Ende der Tabelledefinition
; PRESET zu Beginn
; Startposition Y Achse, Achse
ist linear
Beginn nach Abtrennen
; Y über Tabelle 1 an X
ankoppeln bei X <10
; > 30 vor gefahrener Trennlänge
abkoppeln
; Strangachse stetig in Bewegung
setzen
615