EXTENSION: .txt

WERKZEUGE: Horatec FXM-Tools.txt

DESCRIPTION: Ausgabeformat für heureka/Roomdesigner von horatec.

ORDER:TOP BOTTOM LEFT RIGHT FRONT BACK

DOS-FORMAT
ALLOWEDPARTORIGINDEFINITIONSDE:Anschlag Horatec
ALLOWEDPARTORIGINDEFINITIONSEN:Stops Horatec
ALLOWEDPARTORIGINS:1;2

POSTMERGE:TRUE

BOOLVALUE: TRUE, FALSE

BEGIN MACRO Position([?FX];[?FXE];[?FY];[?FYE];[?L];[?B])
IF [?FY]=[?FYE] AND [?FY]>[?B]/2 THEN '4' ELSE IF [?FY]=[?FYE] AND [?FY]<=[?B]/2 THEN '3' ELSE IF [?FX]=[?FXE] AND [?FX]>[?L]/2 THEN '2' ELSE IF [?FX]=[?FXE] AND [?FX]<=[?L]/2 THEN '1' ELSE 'nd'
END MACRO

BEGIN PRGSTART
L;[?X_FERTIG]
B;[?Y_FERTIG]
D;[?STAERKE]
END PRGSTART

BEGIN WERKSTUECK
# Bemerkung: WERKSTUECK  LINKS('[?BEMERKUNG]';3)
# [?ANSCHLAG]| 4=OL;3=OR;2=UR;1=UL; 
Länge;[?X_FERTIG]
Breite;[?Y_FERTIG]
Stärke;[?STAERKE]
Stück;[?ANZAHL]
Material;[?MATERIALBESTELLNR]
Richtung;Formel[IF IDENTISCH('[?MASERRICHTUNG_QUER]';'JA') THEN 'B' ELSE '']
Oberfläche;[?ART_BESCHICHTUNG_1]
Verw;Formel[ERSETZEN("[?NAME_AUSGABE]";"XG-";"")]
X-Versatz;
Y-Versatz;
Vorschub;100
Optimierm;1
Freifahrm;1
Verfahrung;800
H.Bohr sicher;1
Ansicht;Formel[IF IDENTISCH('XG-Sockel-vorne';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Korpusseite-rechts';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Mittelwand';'[?BAUTEIL_NAME]') OR IDENTISCH('Tl ';LINKS('[?BEMERKUNG]';3)) THEN "X" ELSE "NEIN"]
LV;[?ART_KANTE_UBESTELLNR]
LH;[?ART_KANTE_OBESTELLNR]
QL;Formel[IF (([?ANSCHLAG]=1) AND NOT (IDENTISCH('XG-Korpusseite-rechts';'[?BAUTEIL_NAME]') OR IDENTISCH('Tl ';LINKS('[?BEMERKUNG]';3)) OR IDENTISCH('XG-Mittelwand';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Schublade-Front';'[?BAUTEIL_NAME]')))  OR (([?ANSCHLAG]=2) AND (IDENTISCH('XG-Korpusseite-rechts';'[?BAUTEIL_NAME]') OR IDENTISCH('Tl ';LINKS('[?BEMERKUNG]';3)) OR (IDENTISCH('XG-Mittelwand';'[?BAUTEIL_NAME]')))) THEN "[?ART_KANTE_LBESTELLNR]" ELSE "[?ART_KANTE_RBESTELLNR]"]
QR;Formel[IF (([?ANSCHLAG]=1) AND NOT (IDENTISCH('XG-Korpusseite-rechts';'[?BAUTEIL_NAME]') OR IDENTISCH('Tl ';LINKS('[?BEMERKUNG]';3)) OR IDENTISCH('XG-Mittelwand';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Schublade-Front';'[?BAUTEIL_NAME]')))  OR (([?ANSCHLAG]=2) AND (IDENTISCH('XG-Korpusseite-rechts';'[?BAUTEIL_NAME]') OR IDENTISCH('Tl ';LINKS('[?BEMERKUNG]';3)) OR (IDENTISCH('XG-Mittelwand';'[?BAUTEIL_NAME]')))) THEN "[?ART_KANTE_RBESTELLNR]" ELSE "[?ART_KANTE_LBESTELLNR]"]
Pendelb;
Program;0
Anschlagw.;
Zeitf.;
[?POLYWSEXEC]
END WERKSTUECK

BEGIN WERKSTUECKRUECKSEITE
# Bemerkung: WERKSTUECKRUECKSEITE  LINKS('[?BEMERKUNG]';3)
# [?ANSCHLAG]| 4=OL;3=OR;2=UR;1=UL; 
Länge;[?X_FERTIG]
Breite;[?Y_FERTIG]
Stärke;[?STAERKE]
Stück;[?ANZAHL]
Material;[?MATERIALBESTELLNR]
Richtung;Formel[IF IDENTISCH('[?MASERRICHTUNG_QUER]';'JA') THEN 'B' ELSE '']
Oberfläche;[?ART_BESCHICHTUNG_1]
Verw;Formel[ERSETZEN("[?NAME_AUSGABE]";"XG-";"")]
X-Versatz;
Y-Versatz;
Vorschub;100
Optimierm;1
Freifahrm;1
Verfahrung;800
H.Bohr sicher;1
Ansicht;Formel[IF IDENTISCH('XG-Sockel-vorne';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Korpusseite-rechts';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Mittelwand';'[?BAUTEIL_NAME]') OR IDENTISCH('Tl ';LINKS('[?BEMERKUNG]';3)) THEN "X" ELSE "NEIN"]
LV;[?ART_KANTE_UBESTELLNR]
LH;[?ART_KANTE_OBESTELLNR]
QL;Formel[IF (([?ANSCHLAG]=1) AND NOT (IDENTISCH('XG-Korpusseite-rechts';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Mittelwand';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Schublade-Front';'[?BAUTEIL_NAME]')OR IDENTISCH('Tl ';LINKS('[?BEMERKUNG]';3)))) THEN "[?ART_KANTE_LBESTELLNR]" ELSE "[?ART_KANTE_RBESTELLNR]"]
QR;Formel[IF (([?ANSCHLAG]=1) AND NOT (IDENTISCH('XG-Korpusseite-rechts';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Mittelwand';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Schublade-Front';'[?BAUTEIL_NAME]')OR IDENTISCH('Tl ';LINKS('[?BEMERKUNG]';3)))) THEN "[?ART_KANTE_RBESTELLNR]" ELSE "[?ART_KANTE_LBESTELLNR]"]
Pendelb;
Program;0
Anschlagw.;
Zeitf.;
END WERKSTUECKRUECKSEITE


BEGIN WERKSTUECKFORMAT
# Bemerkung: WERKSTUECKFORMAT  LINKS('[?BEMERKUNG]';3)
# [?ANSCHLAG]| 4=OL;3=OR;2=UR;1=UL; 
Länge;[?X_FERTIG]
Breite;[?Y_FERTIG]
Stärke;[?STAERKE]
Stück;[?ANZAHL]
Material;[?MATERIALBESTELLNR]
Richtung;Formel[IF IDENTISCH('[?MASERRICHTUNG_QUER]';'JA') THEN 'B' ELSE '']
Oberfläche;[?ART_BESCHICHTUNG_1]
Verw;Formel[ERSETZEN("[?NAME_AUSGABE]";"XG-";"")]
X-Versatz;
Y-Versatz;
Vorschub;100
Optimierm;1
Freifahrm;1
Verfahrung;800
H.Bohr sicher;1
Ansicht;Formel[IF IDENTISCH('XG-Sockel-vorne';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Korpusseite-rechts';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Mittelwand';'[?BAUTEIL_NAME]') OR IDENTISCH('Tl ';LINKS('[?BEMERKUNG]';3)) THEN "X" ELSE "NEIN"]
LV;[?ART_KANTE_UBESTELLNR]
LH;[?ART_KANTE_OBESTELLNR]
QL;Formel[IF ([?ANSCHLAG]=1) AND NOT (IDENTISCH('XG-Korpusseite-rechts';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Mittelwand';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Schublade-Front';'[?BAUTEIL_NAME]')) THEN "[?ART_KANTE_LBESTELLNR]" ELSE "[?ART_KANTE_RBESTELLNR]"]
QR;Formel[IF ([?ANSCHLAG]=1) AND NOT (IDENTISCH('XG-Korpusseite-rechts';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Mittelwand';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Schublade-Front';'[?BAUTEIL_NAME]')) THEN "[?ART_KANTE_RBESTELLNR]" ELSE "[?ART_KANTE_LBESTELLNR]"]
Pendelb;
Program;0
Anschlagw.;
Zeitf.;
[?POLYWSEXEC]
END WERKSTUECKFORMAT

BEGIN WERKSTUECKSYNCFORMAT
# Bemerkung: WERKSTUECKSYNCFORMAT  LINKS('[?BEMERKUNG]';3)
# [?ANSCHLAG]| 4=OL;3=OR;2=UR;1=UL; 
Länge;[?X_FERTIG]
Breite;[?Y_FERTIG]
Stärke;[?STAERKE]
Stück;[?ANZAHL]
Material;[?MATERIALBESTELLNR]
Richtung;Formel[IF IDENTISCH('[?MASERRICHTUNG_QUER]';'JA') THEN 'B' ELSE '']
Oberfläche;[?ART_BESCHICHTUNG_1]
Verw;Formel[ERSETZEN("[?NAME_AUSGABE]";"XG-";"")]
X-Versatz;
Y-Versatz;
Vorschub;100
Optimierm;1
Freifahrm;1
Verfahrung;800
H.Bohr sicher;1
Ansicht;Formel[IF IDENTISCH('XG-Sockel-vorne';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Korpusseite-rechts';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Mittelwand';'[?BAUTEIL_NAME]') OR IDENTISCH('Tl ';LINKS('[?BEMERKUNG]';3)) THEN "X" ELSE "NEIN"]
LV;[?ART_KANTE_U]
LH;[?ART_KANTE_O]
QL;Formel[IF ([?ANSCHLAG]=1) AND NOT (IDENTISCH('XG-Korpusseite-rechts';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Mittelwand';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Schublade-Front';'[?BAUTEIL_NAME]')) THEN "[?ART_KANTE_LBESTELLNR]" ELSE "[?ART_KANTE_RBESTELLNR]"]
QR;Formel[IF ([?ANSCHLAG]=1) AND NOT (IDENTISCH('XG-Korpusseite-rechts';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Mittelwand';'[?BAUTEIL_NAME]') OR IDENTISCH('XG-Schublade-Front';'[?BAUTEIL_NAME]')) THEN "[?ART_KANTE_RBESTELLNR]" ELSE "[?ART_KANTE_LBESTELLNR]"]
Pendelb;
Program;0
Anschlagw.;
Zeitf.;
[?POLYWSEXEC]
END WERKSTUECKSYNCFORMAT


BEGIN FORMATIERUNG
#
END FORMATIERUNG

BEGIN BOHRUNG_HORIZONTAL
#
END BOHRUNG_HORIZONTAL


BEGIN BOHRUNG_VERT
Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN "OBEN" ELSE "UNTEN"];BOHREN;Vertikal Unten;[?FX];[?FY];[?D];Formel[([?LINE_NUMBER]*7)+14];1;;;3;[?TIEF];;;
END BOHRUNG_VERT

BEGIN BOHRUNG_VERT_DURCH
Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN "OBEN" ELSE "UNTEN"];BOHREN;Vertikal Unten;[?FX];[?FY];[?D];Formel[([?LINE_NUMBER]*7)+14];1;;;1;[?TIEF];;;
END BOHRUNG_VERT_DURCH

BEGIN BOHRUNG_SCHRAEG
# nicht verfügbar
END BOHRUNG_SCHRAEG

BEGIN KREISTASCHE
Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN "OBEN" ELSE "UNTEN"];Tasche;;[?FX];[?FY];[?D];Formel[([?LINE_NUMBER]*7)+14];[?D];Formel[[?D]/2];;;[?TIEF];;;
END KREISTASCHE

BEGIN KREISTASCHEDURCHGEHEND
Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN "OBEN" ELSE "UNTEN"];Ausschnitt;;[?FX];[?FY];[?D];Formel[([?LINE_NUMBER]*7)+14];[?D];Formel[[?D]/2];;;;;;
END KREISTASCHEDURCHGEHEND

BEGIN LOCHREIHE
Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN "OBEN" ELSE "UNTEN"];BOHREN;Vertikal X-Richtung;[?FX];[?FY];[?D];Formel[([?LINE_NUMBER]*7)+14];[?ANZ_BOHRUNGEN];[?RASTER];;3;[?TIEF];;;120
END LOCHREIHE

BEGIN BOHRUNG_HOR_LINKS
LINKS;BOHREN;Horizontal Quer-Links;[?FY];Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN [?STAERKE]-[?Z] ELSE [?Z]];[?D];Formel[([?LINE_NUMBER]*7)+14];1;;;3;Formel[[?TIEF]+[?FX]]
END BOHRUNG_HOR_LINKS

BEGIN BOHRUNG_HOR_RECHTS
RECHTS;BOHREN;Horizontal Quer-Rechts;[?FY];Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN [?STAERKE]-[?Z] ELSE [?Z]];[?D];Formel[([?LINE_NUMBER]*7)+14];1;;;3;Formel[[?TIEF]-[?FX]+[?X_FERTIG]]
END BOHRUNG_HOR_RECHTS

BEGIN BOHRUNG_HOR_VORNE
VORNE;BOHREN;Horizontal Längs-Vorne;[?FX];Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN [?STAERKE]-[?Z] ELSE [?Z]];[?D];Formel[([?LINE_NUMBER]*7)+14];1;;;3;Formel[[?TIEF]+[?FY]]
END BOHRUNG_HOR_VORNE

BEGIN BOHRUNG_HOR_HINTEN
HINTEN;BOHREN;Horizontal Längs-Hinten;[?FX];Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN [?STAERKE]-[?Z] ELSE [?Z]];[?D];Formel[([?LINE_NUMBER]*7)+14];1;;;3;Formel[[?TIEF]-[?FY]+[?Y_FERTIG]]
END BOHRUNG_HOR_HINTEN

BEGIN ANKOERNUNG_VERT
Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN "OBEN" ELSE "UNTEN"];BOHREN;Vertikal Unten;[?FX];[?FY];[?D];Formel[([?LINE_NUMBER]*7)+14];1;;;3;2;;;
END ANKOERNUNG_VERT

BEGIN ANKOERNUNG_HOR_LINKS
LINKS;BOHREN;Horizontal Quer-Links;[?FY];Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN [?STAERKE]-[?Z] ELSE [?Z]];[?D];Formel[([?LINE_NUMBER]*7)+14];1;;;3;2
END ANKOERNUNG_HOR_LINKS

BEGIN ANKOERNUNG_HOR_RECHTS
RECHTS;BOHREN;Horizontal Quer-Rechts;[?FY];Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN [?STAERKE]-[?Z] ELSE [?Z]];[?D];Formel[([?LINE_NUMBER]*7)+14];1;;;3;2
END ANKOERNUNG_HOR_RECHTS

BEGIN ANKOERNUNG_HOR_HINTEN
HINTEN;BOHREN;Horizontal Quer-Hinten;[?FX];Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN [?STAERKE]-[?Z] ELSE [?Z]];[?D];Formel[([?LINE_NUMBER]*7)+14];1;;;3;2
END ANKOERNUNG_HOR_HINTEN

BEGIN ANKOERNUNG_HOR_VORNE
VORNE;BOHREN;Horizontal Quer-Vorne;[?FX];Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN [?STAERKE]-[?Z] ELSE [?Z]];[?D];Formel[([?LINE_NUMBER]*7)+14];1;;;3;2
END ANKOERNUNG_HOR_VORNE

BEGIN FALZ
Formel[IF IDENTISCH("[?WSSEITE]"; "F") THEN "OBEN" ELSE "UNTEN"];Falzen;Formel[IF [?FY]=[?FYE] THEN "Längs-" ELSE "Quer-"]Formel[IF [?FY]=[?FYE] AND [?FY]>ABS([?BREITE]) THEN "Hinten" ELSE  IF [?FX]=[?FXE] AND [?FX]<ABS([?BREITE]) THEN "Rechts" ELSE IF [?FY]=[?FYE] AND [?FY]<=ABS([?BREITE])/2 THEN "Vorne" ELSE "Links"];Formel[MAX([?FX];[?FXE])+40];Formel[MIN([?FXE];[?FX])-40];Formel[ABS([?BREITE])];Formel[([?LINE_NUMBER]*7)+14];;;1;1;[?TIEF]
END FALZ

BEGIN FALZEINGESETZT
Formel[IF IDENTISCH("[?WSSEITE]"; "F") THEN "OBEN" ELSE "UNTEN"];Falzen;Formel[IF [?FY]=[?FYE] THEN "Längs-" ELSE "Quer-"]Formel[IF [?FY]=[?FYE] AND [?FY]>ABS([?BREITE]) THEN "Hinten" ELSE  IF [?FX]=[?FXE] AND [?FX]<ABS([?BREITE]) THEN "Rechts" ELSE IF [?FY]=[?FYE] AND [?FY]<=ABS([?BREITE])/2 THEN "Vorne" ELSE "Links"];Formel[MAX([?FX];[?FXE])];Formel[MIN([?FXE];[?FX])];Formel[ABS([?BREITE])];Formel[([?LINE_NUMBER]*7)+14];;;1;2;[?TIEF]
END FALZEINGESETZT

BEGIN GEHRUNG
Formel[IF IDENTISCH("[?WSSEITE]"; "F") THEN "OBEN" ELSE "UNTEN"];Fase;Formel[IF [?FY]=[?FYE] THEN "Längs-" ELSE "Quer-"]Formel[IF [?FY]=[?FYE] AND [?FY]>ABS([?BREITE]) THEN "Hinten" ELSE IF [?FX]=[?FXE] AND [?FX]>ABS([?BREITE]) AND IDENTISCH("[?WSSEITE]";"B") THEN "Rechts" ELSE IF [?FY]=[?FYE] AND [?FY]<=ABS([?BREITE])/2 THEN "Vorne" ELSE "Links"];;[?STAERKE];Formel[90-[?GEHRUNGSWINKEL]];Formel[([?LINE_NUMBER]*7)+14];;;;;;;;;;;;;;;;;12;11
END GEHRUNG

BEGIN NUT
Formel[IF IDENTISCH("[?WSSEITE]"; "F") THEN "OBEN" ELSE "UNTEN"];Nuten;Vertikal Formel[IF [?FY]=[?FYE] THEN "X-Richtung" ELSE "Y-Richtung"];Formel[IF [?FY]=[?FYE] THEN MIN([?FX];[?FXE])-40 ELSE MIN([?FY];[?FYE])-40];Formel[IF [?FY]=[?FYE] THEN [?FY]-[?BREITE]/2 ELSE [?FX]-[?BREITE]/2];[?BREITE];Formel[([?LINE_NUMBER]*7)+14];;;1;1;[?TIEF];Formel[IF [?FY]=[?FYE] THEN MAX([?FXE];[?FX])+40 ELSE  MAX([?FYE];[?FY])+40]
END NUT

BEGIN NUTEINGESETZT
Formel[IF IDENTISCH("[?WSSEITE]"; "F") THEN "OBEN" ELSE "UNTEN"];Nuten;Vertikal Formel[IF [?FY]=[?FYE] THEN "X-Richtung" ELSE "Y-Richtung"];Formel[IF [?FY]=[?FYE] THEN MIN([?FX];[?FXE]) ELSE MIN([?FY];[?FYE])];Formel[IF [?FY]=[?FYE] THEN [?FY]-[?BREITE]/2 ELSE [?FX]-[?BREITE]/2];[?BREITE];Formel[([?LINE_NUMBER]*7)+14];;;1;2;[?TIEF];Formel[IF [?FY]=[?FYE] THEN MAX([?FXE];[?FX]) ELSE  MAX([?FYE];[?FY])]
END NUTEINGESETZT


BEGIN HORIZONTALENUT
Formel[CASE "Formel{MACRO['Position';[?FX];[?FXE];[?FY];[?FYE];[?X_FERTIG];[?Y_FERTIG]]}" OF
     "1" : ";vertikal links (1)
LINKS;Nuten;Horizontal Quer-Links;;Formel{[?STAERKE]-[?ZMIDDLE]};Formel{IF [?BREITE]<=4 THEN 4 ELSE [?BREITE]};Formel{([?LINE_NUMBER]*7)+14};;;;1;[?TIEF];;;;;;;;;;;;0;Formel{([?LINE_NUMBER]*7)+14}";
     "2" : ";vertikal rechts (2)
RECHTS;Nuten;Horizontal Quer-Rechts;;Formel{[?STAERKE]-[?ZMIDDLE]};Formel{IF [?BREITE]<=4 THEN 4 ELSE [?BREITE]};Formel{([?LINE_NUMBER]*7)+14};;;;1;[?TIEF];;;;;;;;;;;;0;Formel{([?LINE_NUMBER]*7)+14}";
     "3" : ";horizontal am Anschlag (3)
HINTEN;Nuten;Horizontal Längs-Vorne;;Formel{[?STAERKE]-[?ZMIDDLE]};Formel{IF [?BREITE]<=4 THEN 4 ELSE [?BREITE]};Formel{([?LINE_NUMBER]*7)+14};;;;1;[?TIEF];;;;;;;;;;;;0;Formel{([?LINE_NUMBER]*7)+14}";
     "4" : ";horizontal gegenüber Anschlag (4)
VORNE;Nuten;Horizontal Längs-Hinten;;Formel{[?STAERKE]-[?ZMIDDLE]};Formel{IF [?BREITE]<=4 THEN 4 ELSE [?BREITE]};Formel{([?LINE_NUMBER]*7)+14};;;;1;[?TIEF];;;;;;;;;;;;0;Formel{([?LINE_NUMBER]*7)+14}";
     OTHERWISE: "";
END
]
END HORIZONTALENUT


BEGIN AUSKLINKUNG
Formel[IF MIN([?FPT1Y];[?FPT2Y])=0 THEN "OBEN;Ausklinken Kante;Längs - Vorne;Formel{MIN([?FPT1X];[?FPT4X])};Formel{MAX([?FPT1X];[?FPT4X])};[?FPT2Y];Formel{([?LINE_NUMBER]*7)+14};10" ELSE ""]
Formel[IF MIN([?FPT1Y];[?FPT2Y])<>0 THEN "OBEN;Ausklinken Kante;Längs - Hinten;Formel{MIN([?FPT1X];[?FPT4X])};Formel{MAX([?FPT1X];[?FPT4X])};Formel{[?Y_FERTIG]-[?FPT2Y]};Formel{([?LINE_NUMBER]*7)+14};10" ELSE ""]
END AUSKLINKUNG


RADIUSKORREKTUR: 0 1 2

BEGIN POLYFIRST
Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN "OBEN" ELSE "UNTEN"];Fräsen GERADE;;[?XSTART];[?YSTART];[?XEND];Formel[([?LINE_NUMBER]*7)+14];[?YEND];;;2;[?STARTZ]
END POLYFIRST

BEGIN POLYFIRSTCLOCKWISE
Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN "OBEN;Fräsen BOGENR;;[?XSTART];[?YSTART];[?XEND];Formel{([?LINE_NUMBER]*7)+14};[?YEND];;;1;[?STARTZ];[?XCENTER];[?YCENTER]" ELSE 
"UNTEN;Fräsen BOGENR;;[?XEND];[?YEND];[?XSTART];Formel{([?LINE_NUMBER]*7)+14};[?YSTART];;;1;[?STARTZ];[?XCENTER];[?YCENTER]" ELSE ""]
END POLYFIRSTCLOCKWISE

BEGIN POLYFIRSTCOUNTERCLOCKWISE
Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN "OBEN;Fräsen BOGENL;;[?XEND];[?YEND];[?XSTART];Formel{([?LINE_NUMBER]*7)+14};[?YSTART];;;1;[?STARTZ];[?XCENTER];[?YCENTER]" ELSE 
"UNTEN;Fräsen BOGENL;;[?XSTART];[?YSTART];[?XEND];Formel{([?LINE_NUMBER]*7)+14};[?YEND];;;1;[?STARTZ];[?XCENTER];[?YCENTER]" ELSE ""]
END POLYFIRSTCOUNTERCLOCKWISE

BEGIN POLYBODY
Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN "OBEN" ELSE "UNTEN"];Fräsen GERADE;;[?XSTART];[?YSTART];[?XEND];Formel[([?LINE_NUMBER]*7)+14];[?YEND];;;2;[?STARTZ]
END POLYBODY

BEGIN POLYBODYCLOCKWISE
Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN "OBEN;Fräsen BOGENR;;[?XSTART];[?YSTART];[?XEND];Formel{([?LINE_NUMBER]*7)+14};[?YEND];;;1;[?STARTZ];[?XCENTER];[?YCENTER]" ELSE 
"UNTEN;Fräsen BOGENR;;[?XEND];[?YEND];[?XSTART];Formel{([?LINE_NUMBER]*7)+14};[?YSTART];;;1;[?STARTZ];[?XCENTER];[?YCENTER]" ELSE ""]
END POLYBODYCLOCKWISE

BEGIN POLYBODYCOUNTERCLOCKWISE
Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN "OBEN;Fräsen BOGENL;;[?XEND];[?YEND];[?XSTART];Formel{([?LINE_NUMBER]*7)+14};[?YSTART];;;1;[?STARTZ];[?XCENTER];[?YCENTER]" ELSE 
"UNTEN;Fräsen BOGENL;;[?XSTART];[?YSTART];[?XEND];Formel{([?LINE_NUMBER]*7)+14};[?YEND];;;1;[?STARTZ];[?XCENTER];[?YCENTER]" ELSE ""]
END POLYBODYCOUNTERCLOCKWISE

BEGIN POLYLAST
Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN "OBEN" ELSE "UNTEN"];Fräsen GERADE;;[?XSTART];[?YSTART];[?XEND];Formel[([?LINE_NUMBER]*7)+14];[?YEND];;;2;[?STARTZ]
END POLYLAST

BEGIN POLYLASTCLOCKWISE
Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN "OBEN;Fräsen BOGENR;;[?XSTART];[?YSTART];[?XEND];Formel{([?LINE_NUMBER]*7)+14};[?YEND];;;1;[?STARTZ];[?XCENTER];[?YCENTER]" ELSE 
"UNTEN;Fräsen BOGENR;;[?XEND];[?YEND];[?XSTART];Formel{([?LINE_NUMBER]*7)+14};[?YSTART];;;1;[?STARTZ];[?XCENTER];[?YCENTER]" ELSE ""]
END POLYLASTCLOCKWISE

BEGIN POLYLASTCOUNTERCLOCKWISE
Formel[IF (IDENTISCH("[?WSSEITE]"; "F")) THEN "OBEN;Fräsen BOGENL;;[?XEND];[?YEND];[?XSTART];Formel{([?LINE_NUMBER]*7)+14};[?YSTART];;;1;[?STARTZ];[?XCENTER];[?YCENTER]" ELSE 
"UNTEN;Fräsen BOGENL;;[?XSTART];[?YSTART];[?XEND];Formel{([?LINE_NUMBER]*7)+14};[?YEND];;;1;[?STARTZ];[?XCENTER];[?YCENTER]" ELSE ""]
END POLYLASTCOUNTERCLOCKWISE

BEGIN PRGEND
END PRGEND

BEGIN ARBEITSINFO
Jobliste ncstudio "[?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_NAMEAUSGABE]	[?MATERIAL]	[?BAUTEIL_NR]	[?LAENGE]	[?BREITE]	[?FORMATIERT]	[?GETRENNT_FORMATIERT]	[?ART_KANTE_L]	[?ART_KANTE_R]	[?ART_KANTE_O]	[?ART_KANTE_U]	[?ART_BELAG_INNEN]	[?ART_BESCHICHTUNG_3] [?ART_BESCHICHTUNG_1]	[?ART_BESCHICHTUNG_2]	[?ART_BESCHICHTUNG_1]	LINKS('[?BEMERKUNG]';3)		[?STAERKE]	[?STAERKE_KANTE_L]	[?STAERKE_KANTE_R]	[?STAERKE_KANTE_O]	[?STAERKE_KANTE_U]	[?SYMBOLNAME]	
[END LOOP]
END ARBEITSINFO

BEGIN ZUSCHNITTSINFO
Aufkb;Plakb;Elnr;Aufpos;Teilbez;Stück;Zuslange;Zusbreite;Optlange;Optbreite;Auftrag;Teilbez;Zusatzinformation;TInfo1,Kantevkb;Kantevdicke;Kantehkb;Kantehdicke;Kantelkb;Kanteldicke;Kanterkb;Kanterdicke;Belagikb;Belagakb
[BEGIN LOOP]
[?AUFTRAG];[?MATERIAL];[?COUNTER];[?AUFTRAG_POSITION];[?LAENGE];[?BREITE];[?LAENGE];[?BREITE];[?SYMBOLNAME];[?BAUTEIL_NAME];[?PRG_NAME];LINKS('[?BEMERKUNG]';3);[?ART_KANTE_U];[?STAERKE_KANTE_U];[?ART_KANTE_O];[?STAERKE_KANTE_O];[?ART_KANTE_L];[?STAERKE_KANTE_L];[?ART_KANTE_R];[?STAERKE_KANTE_R];[?ART_BELAG_INNEN];[?ART_BELAG_AUSSEN]
[END LOOP]
END ZUSCHNITTSINFO

