EXTENSION: .fmc

WERKZEUGE:IMAWOP 6-Tools.txt
VARIABLES:IMAWOP 6-Globals.txt
# EXPORTFORMAT: scnittprofit-NC.efgroup

ORDER:TOP BOTTOM LEFT RIGHT FRONT BACK TILTED
ORDERSURFACE: BORINGDIAMETER REBATE POLYLINE MITRE MACRO SAW GROOVE 


POLYDEFSTARTINDEX:0
SEGMENTSTARTINDEX:1
POLYVERTEXCOUNTER_START:0
POLYVERTEXCOUNTER_INCREMENT:1


PRGNR_START:1
PRGNR_FORMAT:%03d
# PRG_NAME:[?AUFTRAG]_[?AUFTRAG_POSITION]_[?PRGNR]
PRG_NAME: [?NAME_AUSGABE][?PARTID][?WSSEITE][?UNIQUESUFFIX]

BEGIN MACRO FUEGEOFFSET_X([?X];[?KANTE_LINKS];[?KANTE_RECHTS];[?FUEGEMASSZUGABE])
IF [?KANTE_LINKS]>0 AND [?KANTE_RECHTS]>0 THEN [?X]+2*[?FUEGEMASSZUGABE] ELSE IF [?KANTE_LINKS]>0 OR [?KANTE_RECHTS]>0 THEN [?X]+[?FUEGEMASSZUGABE] ELSE [?X] 
END MACRO

BEGIN MACRO FUEGEOFFSET_Y([?Y];[?KANTE_VORNE];[?KANTE_HINTEN];[?FUEGEMASSZUGABE])
IF [?KANTE_VORNE]>0 AND [?KANTE_HINTEN]>0 THEN [?Y]+2*[?FUEGEMASSZUGABE] ELSE IF [?KANTE_VORNE]>0 OR [?KANTE_HINTEN]>0 THEN [?Y]+[?FUEGEMASSZUGABE] ELSE [?Y] 
END MACRO

BEGIN MACRO NPVCALC_X([?AUFMASS_X];[?FUEGEMASSZUGABE];[?KANTEANSCHLAG_X])
IF [?KANTEANSCHLAG_X]>0 THEN [?FUEGEMASSZUGABE] ELSE 0
END MACRO

BEGIN MACRO NPVCALC_Y([?AUFMASS_Y];[?FUEGEMASSZUGABE];[?KANTEANSCHLAG_Y])
IF [?KANTEANSCHLAG_Y]>0 THEN [?FUEGEMASSZUGABE] ELSE 0 
END MACRO



BEGIN WERKSTUECK
[VARDEFAU]
INH=8.0
VAR=@VERSION
 
[VARDEFAU]
INH=29
VAR=@SUBVERSION
 
[VARDEFAU]
INH=0.10000
VAR=@MASSTAB
 
[VARDEFAU]
INH=0
VAR=@WKSEXPAND
 
[PGKOPF60]
KOM1=[?BAUTEIL_NAME] Vorderseite
KOM2=Erzeugt von VectorWorks interiorcad
FTB=[?Y_FERTIG]
FTL=[?X_FERTIG]
FTD=[?STAERKE]
SPGLWKS=0
AXV=Formel[IF [?AUFLAGEFERTIGHAUPTSEITE]=1 THEN "0" ELSE "-[?KANTEANSCHLAG_X]+Formel{MACRO['NPVCALC_X';[?AUFMASS_X];[?FUEGEMASSZUGABE]*[?FUEGEN];[?KANTEANSCHLAG_X]]}"]
AYV=Formel[IF [?AUFLAGEFERTIGHAUPTSEITE]=1 THEN "0" ELSE "-[?KANTEANSCHLAG_X]+Formel{MACRO['NPVCALC_Y';[?AUFMASS_Y];[?FUEGEMASSZUGABE]*[?FUEGEN];[?KANTEANSCHLAG_Y]]}"]
RTL=Formel[IF [?AUFLAGEFERTIGHAUPTSEITE]=0 THEN "Formel{MACRO['FUEGEOFFSET_X';[?X];[?KANTE_LINKS];[?KANTE_RECHTS];[?FUEGEMASSZUGABE]*[?FUEGEN]]}" ELSE "[?X_FERTIG]"]
RTB=Formel[IF [?AUFLAGEFERTIGHAUPTSEITE]=0 THEN "Formel{MACRO['FUEGEOFFSET_Y';[?Y];[?KANTE_VORNE];[?KANTE_HINTEN];[?FUEGEMASSZUGABE]*[?FUEGEN]]}" ELSE "[?Y_FERTIG]"]
LOESEN=0
ZSCHABLO=0
ABSTS=20
HOLKA=-1
AFB=1
VERSION=5.0.0
Formel[IF [?Y_FERTIG]>500 THEN "MPB=0" ELSE "MPB=22"]

[SAUGAUFR]
ANSG=1
MAXBK=0
OPTIMIERUNGSART=2
SBD=SAUGER$
SGCNR=1
WAN=1


[SWVD1_50]
AFB=1
BEZB=AFB fuer Bohrungen Vertikal
VAR=AFB_BohrVert
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Durchbohrungen Vertikal
VAR=AFB_BohrVertDurch
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Nuten
VAR=AFB_Nut
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Falz
VAR=AFB_Falz
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Lochreihen
VAR=AFB_LR
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Topfbohrungen
VAR=AFB_Topf
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Bohrungen Horizontal
VAR=AFB_BohrHorizontal
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Formatierung
VAR=AFB_Format
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Kreistasche
VAR=AFB_KT
WERT=1

[?POLYDEFINITIONS]
 
END WERKSTUECK
 

BEGIN WERKSTUECKRUECKSEITE
[VARDEFAU]
INH=8.0
VAR=@VERSION
 
[VARDEFAU]
INH=29
VAR=@SUBVERSION
 
[VARDEFAU]
INH=0.10000
VAR=@MASSTAB
 
[VARDEFAU]
INH=0
VAR=@WKSEXPAND
 
[PGKOPF60]
KOM1=[?BAUTEIL_NAME] Rückseite
KOM2=Erzeugt von interiorcad VectorWOP
FTB=[?Y_FERTIG]
FTL=[?X_FERTIG]
FTD=[?STAERKE]
SPGLWKS=0
AXV=Formel[IF [?AUFLAGEFERTIGNEBENSEITE]=1 THEN "0" ELSE "-[?KANTEANSCHLAG_X]+Formel{MACRO['NPVCALC_X';[?AUFMASS_X];[?FUEGEMASSZUGABE]*[?FUEGEN];[?KANTEANSCHLAG_X]]}"]
AYV=Formel[IF [?AUFLAGEFERTIGNEBENSEITE]=1 THEN "0" ELSE "-[?KANTEANSCHLAG_X]+Formel{MACRO['NPVCALC_Y';[?AUFMASS_Y];[?FUEGEMASSZUGABE]*[?FUEGEN];[?KANTEANSCHLAG_Y]]}"]
RTL=Formel[IF [?AUFLAGEFERTIGNEBENSEITE]=0 THEN "Formel{MACRO['FUEGEOFFSET_X';[?X];[?KANTE_LINKS];[?KANTE_RECHTS];[?FUEGEMASSZUGABE]*[?FUEGEN]]}" ELSE "[?X_FERTIG]"]
RTB=Formel[IF [?AUFLAGEFERTIGNEBENSEITE]=0 THEN "Formel{MACRO['FUEGEOFFSET_Y';[?Y];[?KANTE_VORNE];[?KANTE_HINTEN];[?FUEGEMASSZUGABE]*[?FUEGEN]]}" ELSE "[?Y_FERTIG]"]
LOESEN=0
ZSCHABLO=0
ABSTS=20
HOLKA=-1
AFB=1
VERSION=5.0.0
Formel[IF [?Y_FERTIG]>500 THEN "MPB=0" ELSE "MPB=22"]

[SAUGAUFR]
ANSG=1
MAXBK=0
OPTIMIERUNGSART=2
SBD=SAUGER$
SGCNR=1
WAN=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Bohrungen Vertikal
VAR=AFB_BohrVert
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Durchbohrungen Vertikal
VAR=AFB_BohrVertDurch
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Nuten
VAR=AFB_Nut
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Falz
VAR=AFB_Falz
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Lochreihen
VAR=AFB_LR
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Topfbohrungen
VAR=AFB_Topf
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Bohrungen Horizontal
VAR=AFB_BohrHorizontal
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Formatierung
VAR=AFB_Format
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Kreistasche
VAR=AFB_KT
WERT=1

[?POLYDEFINITIONS]
[?POLYWSEXEC]
 
END WERKSTUECKRUECKSEITE
 

BEGIN WERKSTUECKFORMAT
[VARDEFAU]
INH=8.0
VAR=@VERSION
 
[VARDEFAU]
INH=29
VAR=@SUBVERSION
 
[VARDEFAU]
INH=0.10000
VAR=@MASSTAB
 
[VARDEFAU]
INH=0
VAR=@WKSEXPAND
 
[PGKOPF60]
KOM1=[?BAUTEIL_NAME] Vorderseite, nur Formatierung
KOM2=Erzeugt von interiorcad VectorWOP
FTB=[?Y_FERTIG]
FTL=[?X_FERTIG]
FTD=[?STAERKE]
SPGLWKS=0
AXV=[?AUFMASS_X]/2
AYV=[?AUFMASS_Y]/2
RTL=L+(AX*2)
RTB=B+(AY*2)
LOESEN=0
ZSCHABLO=0
ABSTS=20
HOLKA=-1
AFB=1
VERSION=5.0.0
Formel[IF [?Y_FERTIG]>500 THEN "MPB=0" ELSE "MPB=22"]

[SAUGAUFR]
ANSG=1
MAXBK=0
OPTIMIERUNGSART=2
SBD=SAUGER$
SGCNR=1
WAN=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Bohrungen Vertikal
VAR=AFB_BohrVert
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Durchbohrungen Vertikal
VAR=AFB_BohrVertDurch
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Nuten
VAR=AFB_Nut
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Falz
VAR=AFB_Falz
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Lochreihen
VAR=AFB_LR
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Topfbohrungen
VAR=AFB_Topf
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Bohrungen Horizontal
VAR=AFB_BohrHorizontal
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Formatierung
VAR=AFB_Format
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Kreistasche
VAR=AFB_KT
WERT=1

[SWVD1_50]
AFB=1
BEZB=Berechnung fuer Rohmass Vorne
VAR=KD_1
WERT=Formel[IF 1=0 THEN 0 ELSE IF [?KANTE_VORNE]>0 THEN [?KANTE_VORNE]-[?FUEGEMASSZUGABE]*[?FUEGEN] ELSE [?KANTE_VORNE]]

[SWVD1_50]
AFB=1
BEZB=Berechnung fuer Rohmass Rechts
VAR=KD_2
WERT=Formel[IF  1=0 THEN 0 ELSE IF [?KANTE_RECHTS]>0 THEN [?KANTE_RECHTS]-[?FUEGEMASSZUGABE]*[?FUEGEN] ELSE [?KANTE_RECHTS]]

[SWVD1_50]
AFB=1
BEZB=Berechnung fuer Rohmass Hinten
VAR=KD_3
WERT=Formel[IF  1=0 THEN 0 ELSE IF [?KANTE_HINTEN]>0 THEN [?KANTE_HINTEN]-[?FUEGEMASSZUGABE]*[?FUEGEN] ELSE [?KANTE_HINTEN]]

[SWVD1_50]
AFB=1
BEZB=Berechnung fuer Rohmass Links
VAR=KD_4
WERT=Formel[IF  1=0 THEN 0 ELSE IF [?KANTE_LINKS]>0  THEN [?KANTE_LINKS]-[?FUEGEMASSZUGABE]*[?FUEGEN] ELSE [?KANTE_LINKS]]


[?POLYDEFINITIONS]
[?POLYWSEXEC]
 
END WERKSTUECKFORMAT

 
BEGIN WERKSTUECKSYNCFORMAT
[VARDEFAU]
INH=8.0
VAR=@VERSION
 
[VARDEFAU]
INH=29
VAR=@SUBVERSION
 
[VARDEFAU]
INH=0.10000
VAR=@MASSTAB
 
[VARDEFAU]
INH=0
VAR=@WKSEXPAND
 
[PGKOPF60]
KOM1=[?BAUTEIL_NAME] Vorderseite, mit Formatierung
KOM2=Erzeugt von interiorcad VectorWOP
FTB=[?Y_FERTIG]
FTL=[?X_FERTIG]
FTD=[?STAERKE]
SPGLWKS=0
AXV=[?AUFMASS_X]/2
AYV=[?AUFMASS_Y]/2
RTL=L+(AX*2)
RTB=B+(AY*2)
LOESEN=0
ZSCHABLO=0
ABSTS=20
HOLKA=-1
AFB=1
VERSION=5.0.0
Formel[IF [?Y_FERTIG]>500 THEN "MPB=0" ELSE "MPB=22"]

[SAUGAUFR]
ANSG=1
MAXBK=0
OPTIMIERUNGSART=2
SBD=SAUGER$
SGCNR=1
WAN=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Bohrungen Vertikal
VAR=AFB_BohrVert
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Durchbohrungen Vertikal
VAR=AFB_BohrVertDurch
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Nuten
VAR=AFB_Nut
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Falz
VAR=AFB_Falz
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Lochreihen
VAR=AFB_LR
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Topfbohrungen
VAR=AFB_Topf
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Bohrungen Horizontal
VAR=AFB_BohrHorizontal
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Formatierung
VAR=AFB_Format
WERT=1

[SWVD1_50]
AFB=1
BEZB=AFB fuer Kreistasche
VAR=AFB_KT
WERT=1

[SWVD1_50]
AFB=1
BEZB=Berechnung fuer Rohmass Vorne
VAR=KD_1
WERT=Formel[IF (IDENTISCH('[?WSSEITE]';'F') AND [?AUFLAGEFERTIGHAUPTSEITE]=1) OR (IDENTISCH('[?WSSEITE]';'B') AND [?AUFLAGEFERTIGNEBENSEITE]=1) THEN 0 ELSE IF [?KANTE_VORNE]>0 THEN [?KANTE_VORNE]-[?FUEGEMASSZUGABE]*[?FUEGEN] ELSE [?KANTE_VORNE]]

[SWVD1_50]
AFB=1
BEZB=Berechnung fuer Rohmass Rechts
VAR=KD_2
WERT=Formel[IF (IDENTISCH('[?WSSEITE]';'F') AND [?AUFLAGEFERTIGHAUPTSEITE]=1) OR (IDENTISCH('[?WSSEITE]';'B') AND [?AUFLAGEFERTIGNEBENSEITE]=1) THEN 0 ELSE IF [?KANTE_RECHTS]>0 THEN [?KANTE_RECHTS]-[?FUEGEMASSZUGABE]*[?FUEGEN] ELSE [?KANTE_RECHTS]]

[SWVD1_50]
AFB=1
BEZB=Berechnung fuer Rohmass Hinten
VAR=KD_3
WERT=Formel[IF (IDENTISCH('[?WSSEITE]';'F') AND [?AUFLAGEFERTIGHAUPTSEITE]=1) OR (IDENTISCH('[?WSSEITE]';'B') AND [?AUFLAGEFERTIGNEBENSEITE]=1) THEN 0 ELSE IF [?KANTE_HINTEN]>0 THEN [?KANTE_HINTEN]-[?FUEGEMASSZUGABE]*[?FUEGEN] ELSE [?KANTE_HINTEN]]

[SWVD1_50]
AFB=1
BEZB=Berechnung fuer Rohmass Links
VAR=KD_4
WERT=Formel[IF (IDENTISCH('[?WSSEITE]';'F') AND [?AUFLAGEFERTIGHAUPTSEITE]=1) OR (IDENTISCH('[?WSSEITE]';'B') AND [?AUFLAGEFERTIGNEBENSEITE]=1) THEN 0 ELSE IF [?KANTE_LINKS]>0  THEN [?KANTE_LINKS]-[?FUEGEMASSZUGABE]*[?FUEGEN] ELSE [?KANTE_LINKS]]

[?POLYDEFINITIONS]
[?POLYWSEXEC]
 
END WERKSTUECKSYNCFORMAT
 

BEGIN FORMATIERUNG
[SWKOMT50]
BEZB=------------------------------
[FOFRAE50]
WKZID=[?formatfr]
SWKZID=[?formatfrg]
TI=[?STAERKE]
GEGENL=0
KD1=KD_1
KD2=KD_2
KD3=KD_3
KD4=KD_4
F=6000
AFB=AFB_Format
EBG=0
WKZAKTUELL=1
 
END FORMATIERUNG

BEGIN BOHRUNG_VERT
[Vbdmes50]
X=[?FX]
Y=[?FY]
TI=[?TIEF]
DM=Formel[TRUNC([?D])]
MRICHT=0
LGEAN=0
LGEAB=4
FAN=2000
F=8000
S=9000
TASTEIN=-1
AFB=AFB_BohrVert
GRP=1
ZSM=0
 
END BOHRUNG_VERT

BEGIN BOHRUNG_VERT_DURCH
[Vbdmes50]
X=[?FX]
Y=[?FY]
TI=Formel[IF [?REALTIEF]>[?STAERKE] THEN [?REALTIEF] ELSE [?STAERKE]+3]
DM=Formel[TRUNC([?D])]
MRICHT=0
LGEAN=0
LGEAB=4
FAN=2000
F=8000
S=9000
TASTEIN=-1
AFB=AFB_BohrVertDurch
GRP=1
ZSM=0
 
END BOHRUNG_VERT_DURCH

BEGIN ANKOERNUNG_VERT
[Vbdmes50]
X=[?FX]
Y=[?FY]
TI=2
DM=5
MRICHT=0
LGEAN=0
LGEAB=4
FAN=2000
F=8000
S=9000
TASTEIN=-1
AFB=AFB_BohrVert
GRP=1
ZSM=0
 
END ANKOERNUNG_VERT

 
BEGIN ANKOERNUNG_VERT
[Vbdmes50]
X=[?FX]
Y=[?FY]
TI=2
DM=[?duank]
MRICHT=0
LGEAN=0
LGEAB=4
FAN=2000
F=8000
S=9000
TASTEIN=-1
AFB=AFB_BohrVert
GRP=1
ZSM=0
 
END ANKOERNUNG_VERT

BEGIN KREISTASCHE
[ZYKTFR50]
AFB=AFB_KT
BEZB=Kreistasche [?FX]/[?FY]/D:[?D]
DM=[?D]
F=AUTO
FAN=AUTO
GEGENL=1
LGEZU=0
MPX=[?FX]
MPY=[?FY]
N=AUTO
RAEUMEN=1
TI=[?TIEF]
TOMBA=1
WKZA=30
WKZAKTUELL=0
WKZF=15000
WKZFAN=10000
WKZG=0
WKZI=5
Formel[IF [?D]<18 THEN 'WKZID=[?ktfraeserkl]
WERKZEUGNAME=[?ktfraeserkl]' ELSE 'WKZID=[?ktfraesergr]
WERKZEUGNAME=[?ktfraesergr]']
WKZL=153
WKZR=9
WKZS=18000
WKZTYP=8192
WKZZ=0
END KREISTASCHE


BEGIN KREISTASCHEDURCHGEHEND
[ZYKTFR50]
AFB=AFB_KT
BEZB=Kreistasche [?FX]/[?FY]/D:[?D]
DM=[?D]
F=AUTO
FAN=AUTO
GEGENL=1
LGEZU=0
MPX=[?FX]
MPY=[?FY]
N=AUTO
RAEUMEN=1
TI=Formel[[?STAERKE]+3]
TOMBA=1
WKZA=30
WKZAKTUELL=0
WKZF=15000
WKZFAN=10000
WKZG=0
WKZI=5
Formel[IF [?D]<18 THEN 'WKZID=[?ktfraeserkl]
WERKZEUGNAME=[?ktfraeserkl]' ELSE 'WKZID=[?ktfraesergr]
WERKZEUGNAME=[?ktfraesergr]']
WKZL=153
WKZR=9
WKZS=18000
WKZTYP=8192
WKZZ=0
END KREISTASCHEDURCHGEHEND


BEGIN TOPF
[Vbtopf50]
ABSTTPF=[?FY]
ABST1=[?FX]
ABSTA=[?DUEB1]
ABSTB=[?DUEB2]
KETTE=0
BRICHT=1
DMDUEB=[?DUEB_D]
TIDUEB=[?DUEB_Z]
TNR=33
TITPF=[?TIEF]
DMTPF=[?D]
LGEAN=1
LGEAB=4
FANTPF=5000
FTPF=8000
FANDUEB=5000
FDUEB=8000
S=9000
AFB=AFB_Topf
ZSM=0
 
END TOPF

BEGIN LOCHREIHE
Formel[IF IDENTISCH('[?DIR]';'X') THEN "
\[Vblaen50Formel{CHR(93)}
SPX=[?FX]
EPX=[?FX]+[?LAENGE]
Y1=[?FY]
RASTER=[?RASTER]
TI=[?TIEF]
D=[?D]
MITTE=0
EPY=[?FY]
LGEAN=1
LGEAB=4
FAN=2000
F=8000
S=9000
TASTEIN=-1
MRICHT=0
AFB=AFB_LR
GRP=1" ELSE "
[FOR i = 1 TO [?ANZ_BOHRUNGEN] STEP 1 DO]
[Vbdmes50Formel{CHR(93)}
X=[?FX]
Y=Formel{(([?i]-1)*[?RASTER])+[?FY]}
TI=[?TIEF]
DM=Formel{TRUNC([?D])}
MRICHT=0
LGEAN=0
LGEAB=4
FAN=2000
F=8000
S=9000
TASTEIN=-1
AFB=AFB_BohrVert
GRP=1
ZSM=0
[ENDFOR i]
"]

END LOCHREIHE




BEGIN BOHRUNG_HOR_LINKS
[Hbxplu50]
Y1=[?FY]
TI=[?TIEF]
Z=Formel[[?STAERKE]-[?Z]]
DM=[?D]
KETTE=0
X2=-1
LGEAN=1
FAN=5000
F=8000
S=12000
X1=[?FX]
AFB=AFB_BohrHorizontal
GRP=2
 
END BOHRUNG_HOR_LINKS

BEGIN BOHRUNG_HOR_RECHTS
[Hbxmin50]
Y1=[?FY]
TI=[?TIEF]
Z=Formel[[?STAERKE]-[?Z]]
DM=[?D]
KETTE=0
X2=-1
LGEAN=1
FAN=5000
F=8000
S=12000
X1=[?FX]
AFB=AFB_BohrHorizontal
GRP=3
 
END BOHRUNG_HOR_RECHTS

BEGIN BOHRUNG_HOR_VORNE
[Hbyplu50]
X1=[?FX]
TI=[?TIEF]
Z=Formel[[?STAERKE]-[?Z]]
DM=[?D]
KETTE=0
Y2=-1
LGEAN=1
FAN=5000
F=8000
S=12000
Y1=[?FY]
AFB=AFB_BohrHorizontal
GRP=4
 
END BOHRUNG_HOR_VORNE

BEGIN BOHRUNG_HOR_HINTEN
[Hbymin50]
X1=[?FX]
TI=[?TIEF]
Z=Formel[[?STAERKE]-[?Z]]
DM=[?D]
KETTE=0
Y2=-1
LGEAN=1
FAN=5000
F=8000
S=12000
Y1=[?FY]
AFB=AFB_BohrHorizontal
GRP=5
 
END BOHRUNG_HOR_HINTEN


BEGIN ANKOERNUNG_HOR_LINKS
[Hbxmin50]
Y1=[?FY]
TI=[?anktief]
Z=Formel[[?STAERKE]-[?Z]]
DM=[?duankhor]
KETTE=0
X2=-1
LGEAN=1
FAN=5000
F=8000
S=12000
X1=[?FX]
AFB=AFB_BohrHorizontal
GRP=2
 
END ANKOERNUNG_HOR_LINKS

BEGIN ANKOERNUNG_HOR_RECHTS
[Hbxplu50]
Y1=[?FY]
TI=[?anktief]
Z=Formel[[?STAERKE]-[?Z]]
DM=[?duankhor]
KETTE=0
X2=-1
LGEAN=1
FAN=5000
F=8000
S=12000
X1=[?FX]
AFB=AFB_BohrHorizontal
GRP=3
 
END ANKOERNUNG_HOR_RECHTS

BEGIN ANKOERNUNG_HOR_VORNE
[Hbymin50]
X1=[?FX]
TI=[?anktief]
Z=Formel[[?STAERKE]-[?Z]]
DM=[?duankhor]
KETTE=0
Y2=-1
LGEAN=1
FAN=5000
F=8000
S=12000
Y1=[?FY]
AFB=AFB_BohrHorizontal
GRP=4
 
END ANKOERNUNG_HOR_VORNE

BEGIN ANKOERNUNG_HOR_HINTEN
[Hbyplu50]
X1=[?FX]
TI=[?anktief]
Z=Formel[[?STAERKE]-[?Z]]
DM=[?duankhor]
KETTE=0
Y2=-1
LGEAN=1
FAN=5000
F=8000
S=12000
Y1=[?FY]
AFB=AFB_BohrHorizontal
GRP=5
 
END ANKOERNUNG_HOR_HINTEN




BEGIN FALZ
[SWKOMT50]
BEZB=------------------------------
[zyfalz50]
WKZID=[?falzfr]
WERKZEUGNAME=[?falzfr]
SWKZID=[?falzfrg]
SPX=Formel[IF [?X]<>[?XE] AND [?Y]>[?BREITE] THEN MIN([?X];[?XE])-10 ELSE IF [?X]<>[?XE] AND [?Y]<=[?BREITE] THEN MAX([?X];[?XE])+10 ELSE IF [?X]=[?XE] AND [?X]>[?BREITE] THEN [?X]-[?BREITE]/2 ELSE  [?X]+[?BREITE]/2]
SPY=Formel[IF [?Y]<>[?YE] AND [?X]>[?BREITE] THEN MAX([?Y];[?YE])+10 ELSE IF [?Y]<>[?YE] AND [?X]<=[?BREITE] THEN MIN([?Y];[?YE])-10 ELSE IF [?Y]=[?YE] AND [?Y]>[?BREITE] THEN [?Y]-[?BREITE]/2 ELSE  [?Y]+[?BREITE]/2]
EPX=Formel[IF [?X]<>[?XE] AND [?Y]>[?BREITE] THEN MAX([?X];[?XE])+10 ELSE IF [?X]<>[?XE] AND [?Y]<=[?BREITE] THEN MIN([?X];[?XE])-10 ELSE IF [?X]=[?XE] AND [?X]>[?BREITE] THEN [?X]-[?BREITE]/2 ELSE  [?X]+[?BREITE]/2]
EPY=Formel[IF [?Y]<>[?YE] AND [?X]>[?BREITE] THEN MIN([?Y];[?YE])-10 ELSE IF [?Y]<>[?YE] AND [?X]<=[?BREITE] THEN MAX([?Y];[?YE])+10 ELSE IF [?Y]=[?YE] AND [?Y]>[?BREITE] THEN [?Y]-[?BREITE]/2 ELSE  [?Y]+[?BREITE]/2]
TI=Formel[[?STAERKE]-[?TIEF]]
TRKOR=1
LGEA=30
TYPEIN=0
FAN=2000
F=5000
AFB=AFB_Falz
WKZAKTUELL=1
 
END FALZ

BEGIN FALZEINGESETZT
[kafrae50]
WKZID=[?falzfr]
WERKZEUGNAME=[?falzfr]
SWKZID=[?falzfrg]
X=Formel[IF [?FX]<>[?FXE] AND [?FY]>[?BREITE] THEN MIN([?FX];[?FXE]) ELSE IF [?FX]<>[?FXE] AND [?FY]<=[?BREITE] THEN MAX([?FX];[?FXE]) ELSE IF [?FX]=[?FXE] AND [?FX]>[?BREITE] THEN [?FX]-[?BREITE]/2+30 ELSE  [?FX]+[?BREITE]/2-30]
Y=Formel[IF [?FY]<>[?FYE] AND [?FX]>[?BREITE] THEN MAX([?FY];[?FYE]) ELSE IF [?FY]<>[?FYE] AND [?FX]<=[?BREITE] THEN MIN([?FY];[?FYE]) ELSE IF [?FY]=[?FYE] AND [?FY]>[?BREITE] THEN [?FY]-[?BREITE]/2+30 ELSE [?FY]+[?BREITE]/2-30]
Z=Formel[[?STAERKE]-[?TIEF]]
EBG=0
KD=0
TRKOR=1
TYPAN=0
LGEAN=0
TYPAB=0
LGEAB=0
TYPEIN=0
F=8000
FAN=4000
EVS=0.05
AFB=1
[g1]
X=Formel[IF [?FX]<>[?FXE] AND [?FY]>[?BREITE] THEN MIN([?FX];[?FXE]) ELSE IF [?FX]<>[?FXE] AND [?FY]<=[?BREITE] THEN MAX([?FX];[?FXE]) ELSE IF [?FX]=[?FXE] AND [?FX]>[?BREITE] THEN [?FX]-[?BREITE]/2+20 ELSE  [?FX]+[?BREITE]/2-20]
Y=Formel[IF [?FY]<>[?FYE] AND [?FX]>[?BREITE] THEN MAX([?FY];[?FYE]) ELSE IF [?FY]<>[?FYE] AND [?FX]<=[?BREITE] THEN MIN([?FY];[?FYE]) ELSE IF [?FY]=[?FYE] AND [?FY]>[?BREITE] THEN [?FY]-[?BREITE]/2+20 ELSE  [?FY]+[?BREITE]/2-20]
Z=Z
[g1]
X=Formel[IF [?FX]<>[?FXE] AND [?FY]>[?BREITE] THEN MIN([?FX];[?FXE]) ELSE IF [?FX]<>[?FXE] AND [?FY]<=[?BREITE] THEN MAX([?FX];[?FXE]) ELSE IF [?FX]=[?FXE] AND [?FX]>[?BREITE] THEN [?FX]-[?BREITE]/2 ELSE  [?FX]+[?BREITE]/2]
Y=Formel[IF [?FY]<>[?FYE] AND [?FX]>[?BREITE] THEN MAX([?FY];[?FYE]) ELSE IF [?FY]<>[?FYE] AND [?FX]<=[?BREITE] THEN MIN([?FY];[?FYE]) ELSE IF [?FY]=[?FYE] AND [?FY]>[?BREITE] THEN [?FY]-[?BREITE]/2 ELSE  [?FY]+[?BREITE]/2]
Z=Z
[g1]
X=Formel[IF [?FX]<>[?FXE] AND [?FY]>[?BREITE] THEN MAX([?FX];[?FXE]) ELSE IF [?FX]<>[?FXE] AND [?FY]<=[?BREITE] THEN MIN([?FX];[?FXE]) ELSE IF [?FX]=[?FXE] AND [?FX]>[?BREITE] THEN [?FX]-[?BREITE]/2 ELSE  [?FX]+[?BREITE]/2]
Y=Formel[IF [?FY]<>[?FYE] AND [?FX]>[?BREITE] THEN MIN([?FY];[?FYE]) ELSE IF [?FY]<>[?FYE] AND [?FX]<=[?BREITE] THEN MAX([?FY];[?FYE]) ELSE IF [?FY]=[?FYE] AND [?FY]>[?BREITE] THEN [?FY]-[?BREITE]/2 ELSE [?FY]+[?BREITE]/2]
Z=Z
[g1]
X=Formel[IF [?FX]<>[?FXE] AND [?FY]>[?BREITE] THEN MAX([?FX];[?FXE]) ELSE IF [?FX]<>[?FXE] AND [?FY]<=[?BREITE] THEN MIN([?FX];[?FXE]) ELSE IF [?FX]=[?FXE] AND [?FX]>[?BREITE] THEN [?FX]-[?BREITE]/2+20 ELSE  [?FX]+[?BREITE]/2-20]
Y=Formel[IF [?FY]<>[?FYE] AND [?FX]>[?BREITE] THEN MIN([?FY];[?FYE]) ELSE IF [?FY]<>[?FYE] AND [?FX]<=[?BREITE] THEN MAX([?FY];[?FYE]) ELSE IF [?FY]=[?FYE] AND [?FY]>[?BREITE] THEN [?FY]-[?BREITE]/2+20 ELSE  [?FY]+[?BREITE]/2-20]
Z=Z
[g1]
X=Formel[IF [?FX]<>[?FXE] AND [?FY]>[?BREITE] THEN MAX([?FX];[?FXE]) ELSE IF [?FX]<>[?FXE] AND [?FY]<=[?BREITE] THEN MIN([?FX];[?FXE]) ELSE IF [?FX]=[?FXE] AND [?FX]>[?BREITE] THEN [?FX]-[?BREITE]/2+30 ELSE  [?FX]+[?BREITE]/2-30]
Y=Formel[IF [?FY]<>[?FYE] AND [?FX]>[?BREITE] THEN MIN([?FY];[?FYE]) ELSE IF [?FY]<>[?FYE] AND [?FX]<=[?BREITE] THEN MAX([?FY];[?FYE]) ELSE IF [?FY]=[?FYE] AND [?FY]>[?BREITE] THEN [?FY]-[?BREITE]/2+30 ELSE  [?FY]+[?BREITE]/2-30]
Z=Z
[KO'AB_N2]
AFB=1
AGGD=AGGDREHBAR
AGGFWKL=AGGFWKL
AGGO=AGGOFFSET
BEZB=Abfahren
END FALZEINGESETZT



BEGIN NUT
[SWKOMT50]
BEZB=------------------------------
[Zysnut50]
SPX=Formel[IF [?X]<>[?XE] AND [?Y]>[?BREITE] THEN MIN([?X];[?XE])-10 ELSE IF [?X]<>[?XE] AND [?Y]<=[?BREITE] THEN MAX([?X];[?XE])+10 ELSE IF [?X]=[?XE] AND [?X]>[?BREITE] THEN [?X]+[?BREITE]/2 ELSE  [?X]-[?BREITE]/2]
SPY=Formel[IF [?Y]<>[?YE] AND [?X]>[?BREITE] THEN MAX([?Y];[?YE])+10 ELSE IF [?Y]<>[?YE] AND [?X]<=[?BREITE] THEN MIN([?Y];[?YE])-10 ELSE IF [?Y]=[?YE] AND [?Y]>[?BREITE] THEN [?Y]+[?BREITE]/2 ELSE  [?Y]-[?BREITE]/2]
EPX=Formel[IF [?X]<>[?XE] AND [?Y]>[?BREITE] THEN MAX([?X];[?XE])+10 ELSE IF [?X]<>[?XE] AND [?Y]<=[?BREITE] THEN MIN([?X];[?XE])-10 ELSE IF [?X]=[?XE] AND [?X]>[?BREITE] THEN [?X]+[?BREITE]/2 ELSE  [?X]-[?BREITE]/2]
EPY=Formel[IF [?Y]<>[?YE] AND [?X]>[?BREITE] THEN MIN([?Y];[?YE])-10 ELSE IF [?Y]<>[?YE] AND [?X]<=[?BREITE] THEN MAX([?Y];[?YE])+10 ELSE IF [?Y]=[?YE] AND [?Y]>[?BREITE] THEN [?Y]+[?BREITE]/2 ELSE  [?Y]-[?BREITE]/2]
TI=[?TIEF]
NB=[?BREITE]
TYPA=0
GEGENL=0
TRKOR=2
TWKL=0
TYPN=1
FAN=10000
F=13000
S=8000
WKZID=[?nutsg]
WERKZAUGNAME=[?nutsg]
AFB=AFB_Nut
Z=D/2
WKZAKTUELL=1
 
END NUT

BEGIN NUTEINGESETZT
[SWKOMT50]
BEZB=------------------------------
[Zysnut50]
SPX=Formel[IF [?FX]=0 THEN -80 ELSE IF [?FX]=[?WS_X] THEN [?WS_X]+80 ELSE [?FX]]
SPY=Formel[IF [?FY]=0 THEN -80 ELSE IF [?FY]=[?WS_Y] THEN [?WS_Y]+80 ELSE [?FY]]
EPX=Formel[IF [?FXE]=0 THEN -80 ELSE IF [?FXE]=[?WS_X] THEN [?WS_X]+80 ELSE [?FXE]]
EPY=Formel[IF [?FYE]=0 THEN -80 ELSE IF [?FYE]=[?WS_Y] THEN [?WS_Y]+80 ELSE [?FYE]]
TI=[?TIEF]
NB=[?BREITE]
TYPA=1
GEGENL=0
TRKOR=0
TWKL=0
TYPN=1
FAN=10000
F=13000
S=8000
WKZID=[?nutsg]
WERKZAUGNAME=[?nutsg]
AFB=AFB_Nut
Z=D/2
WKZAKTUELL=1
END NUTEINGESETZT



BEGIN GEHRUNG
[SWKOMT50]
BEZB=------------------------------
BEZB=Schneiden
[ZYSCHN60]
SPX=Formel[IF [?X]<>[?XE] AND [?Y]>[?BREITE] THEN MAX([?X];[?XE])+30 ELSE IF [?X]<>[?XE] AND [?Y]<=[?BREITE] THEN MIN([?X];[?XE])-30 ELSE IF [?X]=[?XE] AND [?X]>[?BREITE] THEN [?X]-[?BREITE]/2 ELSE  [?X]+[?BREITE]/2]
SPY=Formel[IF [?Y]<>[?YE] AND [?X]>[?BREITE] THEN MIN([?Y];[?YE])-30 ELSE IF [?Y]<>[?YE] AND [?X]<=[?BREITE] THEN MAX([?Y];[?YE])+30 ELSE IF [?Y]=[?YE] AND [?Y]>[?BREITE] THEN [?Y]-[?BREITE]/2 ELSE  [?Y]+[?BREITE]/2]
EPX=Formel[IF [?X]<>[?XE] AND [?Y]>[?BREITE] THEN MIN([?X];[?XE])-30 ELSE IF [?X]<>[?XE] AND [?Y]<=[?BREITE] THEN MAX([?X];[?XE])+30 ELSE IF [?X]=[?XE] AND [?X]>[?BREITE] THEN [?X]-[?BREITE]/2 ELSE  [?X]+[?BREITE]/2]
EPY=Formel[IF [?Y]<>[?YE] AND [?X]>[?BREITE] THEN MAX([?Y];[?YE])+30 ELSE IF [?Y]<>[?YE] AND [?X]<=[?BREITE] THEN MIN([?Y];[?YE])-30 ELSE IF [?Y]=[?YE] AND [?Y]>[?BREITE] THEN [?Y]-[?BREITE]/2 ELSE  [?Y]+[?BREITE]/2]
TI=[?TIEF]
TWKL=Formel[90-[?GEHRUNGSWINKEL]]
TYPA=0
GEGENL=0
TRKOR=2
TYPN=2
WKZID=[?variosg]
WERKZAUGNAME=[?variosg]
AFB=AFB_Nut
WKZAKTUELL=1
 
END GEHRUNG

BEGIN SAEGEN
[SWKOMT50]
BEZB=------------------------------
BEZB=Schneiden
[ZYSCHN60]
SPX=[?FX]
SPY=[?FY]
EPX=[?XE]
EPY=[?YE]
TI=[?TIEF]
LGEA=Formel[IF [?ANFAHRTSTRECKE]=-1 THEN 'AUTO' ELSE [?ANFAHRTSTRECKE]]
TWKL=Formel[90-[?GEHRUNGSWINKEL]]
TYPA=0
GEGENL=0
TRKOR=[?RADIUSKORREKTUR]
TYPN=2
WKZID=[?variosg]
WERKZAUGNAME=[?variosg]
AFB=AFB_Nut
WKZAKTUELL=1
 
END SAEGEN

BEGIN AUSKLINKUNG
[kafrae50]
Formel[IF ([?FPT1X]=0 AND [?FPT1Y]=0) OR ([?FPT4X]=0 AND [?FPT4Y]=0) THEN  "
WKZID=[?ausklwkz]
WERKZEUGNAME=[?ausklwkz]
SWKZID=[?ausklwkzg]
X=Formel{MAX([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
Y=-30
Z=-2
EBG=0
KD=0
TRKOR=1
TYPAN=0
LGEAN=0
TYPAB=0
LGEAB=0
TYPEIN=0
F=8000
FAN=4000
EVS=0.05
AFB=1
\[g1Formel{CHR(93)}
X=Formel{MAX([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
Y=Formel{MAX([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
Z=Z
\[g1Formel{CHR(93)}
X=-30
Y=Formel{MAX([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
Z=Z"
ELSE IF ([?FPT1X]=[?X_FERTIG] AND [?FPT1Y]=0) OR ([?FPT4X]=[?X_FERTIG] AND [?FPT4Y]=0) THEN "
WKZID=[?ausklwkz]
WERKZEUGNAME=[?ausklwkz]
SWKZID=[?ausklwkzg]
X=Formel{MIN([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
Y=-30
Z=-2
EBG=0
KD=0
TRKOR=2
TYPAN=0
LGEAN=0
TYPAB=0
LGEAB=0
TYPEIN=0
F=8000
FAN=4000
EVS=0.05
AFB=1
\[g1Formel{CHR(93)}
X=Formel{MIN([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
Y=Formel{MAX([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
Z=Z
\[g1Formel{CHR(93)}
X=Formel{[?WS_X]+30}
Y=Formel{MAX([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
Z=Z"
ELSE IF ([?FPT1X]=[?X_FERTIG] AND [?FPT1Y]=[?Y_FERTIG]) OR ([?FPT4X]=[?X_FERTIG] AND [?FPT4Y]=[?Y_FERTIG]) THEN  "
WKZID=[?ausklwkz]
WERKZEUGNAME=[?ausklwkz]
SWKZID=[?ausklwkzg]
X=Formel{MIN([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
Y=Formel{[?WS_Y]+30}
Z=-2
EBG=0
KD=0
TRKOR=1
TYPAN=0
LGEAN=0
TYPAB=0
LGEAB=0
TYPEIN=0
F=8000
FAN=4000
EVS=0.05
AFB=1
\[g1Formel{CHR(93)}
X=Formel{MIN([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
Y=Formel{MIN([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
Z=Z
\[g1Formel{CHR(93)}
X=Formel{[?WS_X]+30}
Y=Formel{MIN([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
Z=Z"
ELSE IF ([?FPT1X]=0 AND [?FPT1Y]=[?Y_FERTIG]) OR ([?FPT4X]=0 AND [?FPT4Y]=[?Y_FERTIG]) THEN  "
WKZID=[?ausklwkz]
WERKZEUGNAME=[?ausklwkz]
SWKZID=[?ausklwkzg]
X=Formel{MAX([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
Y=Formel{[?WS_Y]+30}
Z=-2
EBG=0
KD=0
TRKOR=2
TYPAN=0
LGEAN=0
TYPAB=0
LGEAB=0
TYPEIN=0
F=8000
FAN=4000
EVS=0.05
AFB=1
\[g1Formel{CHR(93)}
X=Formel{MAX([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
Y=Formel{MIN([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
Z=Z
\[g1Formel{CHR(93)}
X=-30
Y=Formel{MIN([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
Z=Z"
ELSE "
WKZID=[?ausklwkz]
WERKZEUGNAME=[?ausklwkz]
SWKZID=[?ausklwkzg]
X=Formel{IF [?FPT1Y]=[?FPT2Y] AND [?FPT1X]=0 THEN [?FPT1X]-30 ELSE IF [?FPT1Y]=[?FPT2Y] AND [?FPT1X]>0 THEN [?FPT1X]+30 ELSE [?FPT1X]}
Y=Formel{IF [?FPT1X]=[?FPT2X] AND [?FPT1Y]=0 THEN [?FPT1Y]-30 ELSE IF [?FPT1X]=[?FPT2X] AND [?FPT1Y]>0 THEN [?FPT1Y]+30 ELSE [?FPT1Y]}
Z=-2
EBG=0
KD=0
TRKOR=2
TYPAN=0
LGEAN=0
TYPAB=0
LGEAB=0
TYPEIN=0
F=8000
FAN=4000
EVS=0.05
AFB=1
\[g1Formel{CHR(93)}
X=[?FPT2X]
Y=[?FPT2Y]
Z=Z
\[g1Formel{CHR(93)}
X=[?FPT3X]
Y=[?FPT3Y]
Z=Z
\[g1Formel{CHR(93)}
X=[?FPT4X]
Y=[?FPT4Y]
Z=Z
\[g1Formel{CHR(93)}
X=Formel{IF [?FPT3Y]=[?FPT4Y] AND [?FPT4X]=0 THEN [?FPT4X]-30 ELSE IF [?FPT3Y]=[?FPT4Y] AND [?FPT4X]>0 THEN [?FPT4X]+30 ELSE [?FPT4X]}
Y=Formel{IF [?FPT3X]=[?FPT4X] AND [?FPT4Y]=0 THEN [?FPT4Y]-30 ELSE IF [?FPT3X]=[?FPT4X] AND [?FPT4Y]>0 THEN [?FPT4Y]+30 ELSE [?FPT4Y]}
Z=Z
"]
[KO'AB_N2]
AFB=1
AGGD=AGGDREHBAR
AGGFWKL=AGGFWKL
AGGO=AGGOFFSET
BEZB=Abfahren
END AUSKLINKUNG

====Wenn Eckausklinkungsaggregat vorhanden einfach in Ausklinkungssektio einbeziehen
Formel[IF ([?FPT1X]=0 AND [?FPT1Y]=0) OR ([?FPT4X]=0 AND [?FPT4Y]=0) THEN  "
\[ZYAUSK60Formel{CHR(93)}
AFB=1
BEZB=Ausklinken
BPX=Formel{MAX([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
BPY=Formel{MAX([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
EPX=Formel{MAX([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
EPY=-30
F=AUTO
FAN=AUTO
GUT=2
KD=0
N=AUTO
RREST=5
SPX=-30
SPY=Formel{MAX([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
SWKZID=Eckenausklinker
TOMBA=3
WERKZEUGNAME=Eckenausklinker
WKZA=100
WKZAKTUELL=1
WKZF=1000
WKZFAN=2000
WKZG=0
WKZI=5
WKZID=Eckenausklinker
WKZL=128
WKZR=35.25
WKZS=12000
WKZTYP=20480
WKZZ=429" 
ELSE IF ([?FPT1X]=[?X_FERTIG] AND [?FPT1Y]=0) OR ([?FPT4X]=[?X_FERTIG] AND [?FPT4Y]=0) THEN "
\[ZYAUSK60Formel{CHR(93)}
AFB=1
BEZB=Ausklinken
BPX=Formel{MIN([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
BPY=Formel{MAX([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
EPX=Formel{[?WS_X]+30}
EPY=Formel{MAX([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
F=AUTO
FAN=AUTO
GUT=2
KD=0
N=AUTO
RREST=5
SPX=Formel{MIN([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
SPY=-30
SWKZID=Eckenausklinker
TOMBA=3
WERKZEUGNAME=Eckenausklinker
WKZA=100
WKZAKTUELL=1
WKZF=1000
WKZFAN=2000
WKZG=0
WKZI=5
WKZID=Eckenausklinker
WKZL=128
WKZR=35.25
WKZS=12000
WKZTYP=20480
WKZZ=429" 
ELSE IF ([?FPT1X]=[?X_FERTIG] AND [?FPT1Y]=[?Y_FERTIG]) OR ([?FPT4X]=[?X_FERTIG] AND [?FPT4Y]=[?Y_FERTIG]) THEN  "
\[ZYAUSK60Formel{CHR(93)}
AFB=1
BEZB=Ausklinken
BPX=Formel{MIN([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
BPY=Formel{MIN([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
EPX=Formel{MIN([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
EPY=Formel{[?WS_Y]+30}
F=AUTO
FAN=AUTO
GUT=2
KD=0
N=AUTO
RREST=5
SPX=Formel{[?WS_X]+30}
SPY=Formel{MIN([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
SWKZID=Eckenausklinker
TOMBA=3
WERKZEUGNAME=Eckenausklinker
WKZA=100
WKZAKTUELL=1
WKZF=1000
WKZFAN=2000
WKZG=0
WKZI=5
WKZID=Eckenausklinker
WKZL=128
WKZR=35.25
WKZS=12000
WKZTYP=20480
WKZZ=429" 
ELSE IF ([?FPT1X]=0 AND [?FPT1Y]=[?Y_FERTIG]) OR ([?FPT4X]=0 AND [?FPT4Y]=[?Y_FERTIG]) THEN  "
\[ZYAUSK60Formel{CHR(93)}
AFB=1
BEZB=Ausklinken
BPX=Formel{MAX([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
BPY=Formel{MIN([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
EPX=-30
EPY=Formel{MIN([?FPT1Y];[?FPT2Y];[?FPT3Y];[?FPT4Y])}
F=AUTO
FAN=AUTO
GUT=2
KD=0
N=AUTO
RREST=5
SPX=Formel{MAX([?FPT1X];[?FPT2X];[?FPT3X];[?FPT4X])}
SPY=Formel{[?WS_Y]+30}
SWKZID=Eckenausklinker
TOMBA=3
WERKZEUGNAME=Eckenausklinker
WKZA=100
WKZAKTUELL=1
WKZF=1000
WKZFAN=2000
WKZG=0
WKZI=5
WKZID=Eckenausklinker
WKZL=128
WKZR=35.25
WKZS=12000
WKZTYP=20480
WKZZ=429" ELSE ""]
====Wenn Eckausklinkungsaggregat vorhanden einfach in Ausklinkungssektio einbeziehen ende




BEGIN PRGEND
[PGENDE50]			
PP=5
BEZB=Programm-Ende
END PRGEND

RADIUSKORREKTUR: 0 1 2

BEGIN POLYDEFFIRST
[KDEFANFC]
BEZB=Start VAR Konturdefinition
HP_RADIUS=0
JUS=0
KNAME=[?POLYDEFINDEX]
PKTBEZUG_XY=0
SICHTBAR=1
TH=-10
TNAM=Courier New

X=[?XSTART]
Y=[?YSTART]
Z=Formel[[?STAERKE]-[?ZUSTELLUNGSTARTZ]]
EBG=0
KD=0
TRKOR=[?RADIUSKORREKTUR]
TYPAN=0
LGEAN=0
TYPAB=0
LGEAB=0
TYPEIN=0
F=8000
FAN=4000
EVS=0.05
AFB=1
[g1]
X=[?XEND]
Y=[?YEND]
Z=Z

END POLYDEFFIRST

BEGIN POLYDEFFIRSTCLOCKWISE
[KDEFANFC]
BEZB=Start VAR Konturdefinition
HP_RADIUS=0
JUS=0
KNAME=[?POLYDEFINDEX]
PKTBEZUG_XY=0
SICHTBAR=1
TH=-10
TNAM=Courier New

X=[?XSTART]
Y=[?YSTART]
Z=Formel[[?STAERKE]-[?ZUSTELLUNGSTARTZ]]
EBG=0
KD=0
TRKOR=[?RADIUSKORREKTUR]
TYPAN=0
LGEAN=0
TYPAB=0
LGEAB=0
TYPEIN=0
F=8000
FAN=4000
EVS=0.05
AFB=1
[g2]
AGGD=AGGDREHBAR
AGGFWKL=AGGWKL
AGGO=AGGOFFSET
RAD=R
X=[?XEND]
Y=[?YEND]
Z=Z
EN=0
MPX=[?XCENTER]
MPY=[?YCENTER]
END POLYFIRSTCLOCKWISE

BEGIN POLYDEFFIRSTCOUNTERCLOCKWISE
[KDEFANFC]
BEZB=Start VAR Konturdefinition
HP_RADIUS=0
JUS=0
KNAME=[?POLYDEFINDEX]
PKTBEZUG_XY=0
SICHTBAR=1
TH=-10
TNAM=Courier New

X=[?XSTART]
Y=[?YSTART]
Z=Formel[[?STAERKE]-[?ZUSTELLUNGSTARTZ]]
EBG=0
KD=0
TRKOR=[?RADIUSKORREKTUR]
TYPAN=0
LGEAN=0
TYPAB=0
LGEAB=0
TYPEIN=0
F=8000
FAN=4000
EVS=0.05
AFB=1
[g3]
AGGD=AGGDREHBAR
AGGFWKL=AGGWKL
AGGO=AGGOFFSET
RAD=R
X=[?XEND]
Y=[?YEND]
Z=Z
EN=0
MPX=[?XCENTER]
MPY=[?YCENTER]
END POLYDEFFIRSTCOUNTERCLOCKWISE

BEGIN POLYDEFBODY
[g1]
X=[?XEND]
Y=[?YEND]
Z=Z

END POLYDEFBODY

BEGIN POLYDEFBODYCLOCKWISE
[g2]
AGGD=AGGDREHBAR
AGGFWKL=AGGWKL
AGGO=AGGOFFSET
RAD=R
X=[?XEND]
Y=[?YEND]
Z=Z
EN=0
MPX=[?XCENTER]
MPY=[?YCENTER]
END POLYDEFBODYCLOCKWISE

BEGIN POLYDEFBODYCOUNTERCLOCKWISE
[g3]
AGGD=AGGDREHBAR
AGGFWKL=AGGWKL
AGGO=AGGOFFSET
RAD=R
X=[?XEND]
Y=[?YEND]
Z=Z
EN=0
MPX=[?XCENTER]
MPY=[?YCENTER]
END POLYDEFBODYCOUNTERCLOCKWISE

BEGIN POLYDEFLAST
[g1]
X=[?XEND]
Y=[?YEND]
Z=Z
[KDEFENDE]
BEZB=Ende Konturdefinition

END POLYDEFLAST

BEGIN POLYDEFLASTCLOCKWISE
[g2]
AGGD=AGGDREHBAR
AGGFWKL=AGGWKL
AGGO=AGGOFFSET
RAD=R
X=[?XEND]
Y=[?YEND]
Z=Z
EN=0
MPX=[?XCENTER]
MPY=[?YCENTER]
[KDEFENDE]
BEZB=Ende Konturdefinition
END POLYDEFLASTCLOCKWISE

BEGIN POLYDEFLASTCOUNTERCLOCKWISE
[g3]
AGGD=AGGDREHBAR
AGGFWKL=AGGWKL
AGGO=AGGOFFSET
RAD=R
X=[?XEND]
Y=[?YEND]
Z=Z
EN=0
MPX=[?XCENTER]
MPY=[?YCENTER]
[KDEFENDE]
BEZB=Ende Konturdefinition
END POLYDEFLASTCOUNTERCLOCKWISE


BEGIN POLYEXEC
Formel[IF [?TASCHEAUSRAEUMEN]=0 THEN "
\[KTFRAE60Formel{CHR(93)}
ABFAHREN=1
ABFAHRSYM=Koabfu60
AFBU=1
ANFAHREN=1
ANFAHRSYM=Kafrae60
BEARBGRP=1
BEZU=Kontur fraesen [?POLYDEFINDEX]
DEFRICHTUNG=1
DLL=cckont70.dll
EBG=0
EINDEX=-1
EKENNUNG=KENNUNG$
EOFFSET=0
EOFFSETTYP=0
EVS=0.05
F=AUTO
FAN=AUTO
FKT=KonturBereichBearbeiten
KD=0
KENNUNG=(NULL)
KNAME=[?POLYDEFINDEX]
KTDAT=0
LGEAB=0
LGEAN=0
N=AUTO
NULLUMFAHREN=1
PARMODUS=0
ROFFSET=[?KONTURABSTAND]
SINDEX=1
SKENNUNG=KENNUNG$
SOFFSET=0
SOFFSETTYP=0
SWKZID=Formel{IF(IDENTISCH('[?WERKZEUGINFO]';'')) THEN '[?formatfrg]' ELSE '[?WERKZEUGINFO]'}
TOMBA=1
TRKOR=[?RADIUSKORREKTUR]
TYPAB=0
TYPAN=0
TYPEIN=[?EINTAUCHEN]
UPCALC=1
WERKZEUGNAME=Formel{IF(IDENTISCH('[?WERKZEUGINFO]';'')) THEN '[?formatfr]' ELSE '[?WERKZEUGINFO]'}
WKZA=30
WKZAKTUELL=1
WKZF=15000
WKZFAN=10000
WKZG=0
WKZI=5
WKZID=Formel{IF(IDENTISCH('[?WERKZEUGINFO]';'')) THEN '[?formatfr]' ELSE '[?WERKZEUGINFO]'}
WKZL=159
WKZR=0
WKZS=20000
WKZTYP=8192
WKZZ=0
Z=Formel{[?STAERKE]-[?ZUSTELLUNGENDZ]}" ELSE "

\[ZYKPTA50Formel{CHR(93)}
ABFAHREN=1
ABFAHRSYM=Koabfu50
AFBU=1
ANFAHREN=1
ANFAHRSYM=Kafrta50
AnfahrtAnpassen=1
BEZU=Freitasche fraesen
DLL=cckont8.dll
EVS=0
F=AUTO
FAN=AUTO
FKT=ParallelTasche
GleichLauf=1
GSCH=0
LGEAN=0
N=AUTO
NAME=[?POLYDEFINDEX]
OffSXY=0
OffSZ=0
PARMODUS=0
Rand=2
REFZ=D
RSCH=0
SAB=D+SA
SCHLICHTEN=(GSCH!=0)?(RSCH+2):(RSCH)
StartErweitern=1
SWKZID=Formel{IF(IDENTISCH('[?WERKZEUGINFO]';'')) THEN '[?formatfrg]' ELSE '[?WERKZEUGINFO]'}
TI=[?ZUSTELLUNGENDZ]
TOMBA=1
UPCALC=1
Verbindungen=2
WERKZEUGNAME=Formel{IF(IDENTISCH('[?WERKZEUGINFO]';'')) THEN '[?formatfr]' ELSE '[?WERKZEUGINFO]'}
WKL=0
WKZA=30
WKZAKTUELL=0
WKZF=8000
WKZFAN=3000
WKZG=0
WKZI=5
WKZID=Formel{IF(IDENTISCH('[?WERKZEUGINFO]';'')) THEN '[?formatfr]' ELSE '[?WERKZEUGINFO]'}
WKZL=142.1
WKZR=10
WKZS=18000
WKZTYP=8192
WKZZ=0
ZTYP=0
TYPEIN=[?EINTAUCHEN]
ZUSTXY=WKZR*1.6
ZUSTZ=TI"]

END POLYEXEC

BEGIN POLYWSEXEC
[KTFRAE60]
ABFAHREN=1
ABFAHRSYM=Koabfu60
AFBU=1
ANFAHREN=1
ANFAHRSYM=Kafrae60
BEARBGRP=1
BEZU=Kontur fraesen
DEFRICHTUNG=0
DLL=cckont70.dll
EBG=0
EINDEX=-1
EKENNUNG=KENNUNG$
EOFFSET=0
EOFFSETTYP=0
EVS=0
F=AUTO
FAN=AUTO
FKT=KonturBereichBearbeiten
KD=0
KENNUNG=(NULL)
KNAME=1
KTDAT=0
LGEAB=50
LGEAN=50
N=AUTO
NULLUMFAHREN=1
PARMODUS=0
ROFFSET=0
SINDEX=1
SKENNUNG=KENNUNG$
SOFFSET=0
SOFFSETTYP=0
TOMBA=1
TRKOR=1
TYPAB=0
TYPAN=0
TYPEIN=0
UPCALC=1
WKZID=[?formatfr]
WERKZEUGNAME=[?formatfr]
SWKZID=[?formatfrg]
WKZA=30
WKZAKTUELL=1
WKZF=15000
WKZFAN=10000
WKZG=0
WKZI=5
WKZL=159
WKZR=0
WKZS=20000
WKZTYP=8192
WKZZ=0
Z=-3

END POLYWSEXEC


BEGIN ARBEITSINFO
Jobliste FMC "[?WS_NAME]"

Programmname	Anzahl	Bauteil-Name	Material	Bauteil-Nr	Bauteillänge	Bauteilbreite	Wird Formatiert	Getrenntes Formatierungsprogramm	Art.-Nr. Kante-Links	Art.-Nr. Kante-Rechts	Art.-Nr. Kante-Oben	Art.-Nr. Kante-Unten	Art.-Nr. Belag Innen	Art.-Nr. Belag Aussen	Art.-Nr. Beschichtung 1	Art.-Nr. Beschichtung 2	Art.-Nr. Beschichtung 3	Bemerkung	Dicke	Dicke Kante L	Dicke Kante R	Dicke Kante O	Dicke Kante U	Symbolname
[BEGIN LOOP]
[?PRG_NAME]	[?ANZAHL]	[?BAUTEIL_NAME]	[?MATERIAL]	[?BAUTEIL_NR]	[?LAENGE]	[?BREITE]	[?FORMATIERT]	[?GETRENNT_FORMATIERT]	[?ART_KANTE_L]	[?ART_KANTE_R]	[?ART_KANTE_O]	[?ART_KANTE_U]	[?ART_BELAG_INNEN]	[?ART_BELAG_AUSSEN] [?ART_BESCHICHTUNG_1]	[?ART_BESCHICHTUNG_2]	[?ART_BESCHICHTUNG_3]	[?BEMERKUNG]		[?STAERKE]	[?STAERKE_KANTE_L]	[?STAERKE_KANTE_R]	[?STAERKE_KANTE_O]	[?STAERKE_KANTE_U]	[?SYMBOLNAME]	
[END LOOP]
END ARBEITSINFO