; warten Tabellenumschaltung ausgeführt?
N60 WHENEVER $AC_MARKER[M_IS_FLY] > 0 DO RDISABLE
N65 G4 F0.001
; neue Tabellen-Nr. bestimmen
N70 IF ($AC_MARKER[M_CTAB_NEXT] == CTAB_NR + 1)
N75 $AC_MARKER[M_CTAB_NEXT] = CTAB_NR
N80 else
N85 $AC_MARKER[M_CTAB_NEXT] = CTAB_NR + 1
N90 endif
; Tabellendefinition
N95 CTABDEF (FAX, LAX, $AC_MARKER[M_CTAB_NEXT], CTAB_TYP)
N100 CALL CONT_UP ; Aufruf Konturunterprogramm
N105 CTABEND
; Synchronaktion fliegendes Umschalten der Kurventabelle
N110 $AC_MARKER[M_IS_FLY] = 1
N115 ID=SYNACT_NR WHEN
($AA_IM[LAX] >= LA_POS1) AND ($AA_IM[LAX] <= LA_POS2) DO
LEADOF(FAX,LAX) LEADON(FAX,LAX, $AC_MARKER[M_CTAB_NEXT])
N120 G4 F0.001
N125 M17
Beispiel
Abhängig von R50 soll zwischen drei Kurventabellen fliegend umgeschaltet wer-
den. Die Leitachse A ist eine Modulo-Achse und verfährt mit konstanter Geschwin-
digkeit. Die Folgeachse X (Linearachse) wird über eine periodische Kurventabelle
an die A-Achse gekoppelt.
Kontur:
N05 CSPLINE
N10 A=R1 X=R2
N11 A=R3 X=R4
N12 A=R5 X=R6
N13 A=R7 X=R8
N14 A=R9 X=R10
N15 M17
Mehrachsbaugruppe FM 357-2 für Servo- bzw. Schrittantrieb
6ES7 357-4AH00-8AG0
$AC_MARKER[M_IS_FLY] = 0
CONTOUR.SPF
Applikationsbeispiel
11–3