Procedure LoadFile;
VAR
   hatchName:STRING;
	result, index:INTEGER;
	boolResult:BOOLEAN;
    tempHandle, tempHandle1, tempHandle2:HANDLE;

BEGIN
{VectorWorks Version 9.5.3b2 (13210)}

{Global Characteristics}

DrwSize(1,1);
SetUnits(0,1,0,0.0254,'m',' sq m');
PrimaryUnits(0,1,1,2,7,FALSE,FALSE);
SecondaryUnits(4,1,2,FALSE,FALSE);
SetPrefLongInt(162,1);
SetPrefLongInt(169,1);
SetPrefLongInt(171,3);
SetPrefLongInt(172,3);
SetPrefLongInt(212,1);
SetPrefLongInt(219,1);
SetPrefLongInt(221,3);
SetPrefLongInt(222,3);
SetPrefInt(174,0);
SetPrefInt(224,0);
SetPref(167,FALSE);
SetPref(173,TRUE);
SetPref(223,TRUE);
SetPref(175,FALSE);
SetPref(225,FALSE);
GridLines(0.01);
PenGrid(0.002);
DoubLines(0);
SetPrefReal(73,0);
SetOriginAbsolute(0,0);
SetPref(37,TRUE);
SetPref(38,TRUE);
SetPref(5,FALSE);
OpenPoly;
SetDashStyle(TRUE,2,0.041656,0.041672);
SetDashStyle(TRUE,2,0.097214,0.041671);
SetDashStyle(TRUE,2,0.208328,0.041672);
SetDashStyle(TRUE,2,0.263885,0.041657);
SetDashStyle(TRUE,2,0.013885,0.027771);
SetDashStyle(TRUE,4,0.125,0.041656,0.013886,0.027786);
SetDashStyle(TRUE,6,0.125,0.041656,0.125,0.041672,0.013886,0.027786);
SetDashStyle(TRUE,6,0.125,0.041656,0.013886,0.027786,0.013886,0.027786);
SetDashStyle(TRUE,4,0.75,0.055557,0.138886,0.055557);
SetDashStyle(TRUE,6,0.75,0.055557,0.138886,0.055557,0.125,0.0625);
SetPrefInt(121,0);
SetPrefReal(68,0);
SetPrefReal(69,0);
SetPrefReal(70,1);

{End of Global Characteristics}


{Record Format Entries}

{End of Record Format Entries}

{Worksheet Entries}

{End of Worksheet Entries}

{Hatch Definition Entries}
hatchName:= 'Default Hatch';
BeginVectorFillN(hatchName,TRUE,FALSE,0);
AddVectorFillLayer(0,0,1,1,0.176776695,-0.176776695,1,1,255);
EndVectorFill;

{End of Hatch Definition Entries}

{Symbol Library Entries}

{End of Symbol Library Entries}

{Layer Characteristics}

Layer('Layer-1');
SetScale(1200.000000000000227);
ShowLayer;
CopyMode(8);
LFillFore(0,0,0);
LFillBack(65535,65535,65535);
LPenFore(0,0,0);
LPenBack(65535,65535,65535);

Projection(6,0,297.484800000000064,-148.742400000000032,148.742400000000032,148.742400000000032,-148.742400000000032);

{End of Layer Characteristics}

{Object Creation Code}

NameClass('perforiert');
FPatByClass;
LSByClass;
PenColorByClass;
Marker(0,0.125,15);
PenSize(1);
FillFore(0,0,0);
FillBack(65535,65535,65535);
Arc(-50.300000000000011,78.816660498395407,-4.700000000000005,33.216660498395427,#39.04220923047d,#101.9155815391d);
FPatByClass;
LSByClass;
PenColorByClass;
Arc(-50.300000000000011,78.816660498395422,-4.700000000000001,33.21666049839542,#159.0422092305d,#101.9155815391d);
FPatByClass;
LSByClass;
PenColorByClass;
Arc(-50.300000000000011,78.816660498395407,-4.700000000000005,33.216660498395427,#279.0422092305d,#101.9155815391d);
FPatByClass;
LSByClass;
PenColorByClass;
Arc(-62.916705426566381,136.466686921752597,7.916705426566386,65.633276068619864,#240.0000000000d,#60.00000000000d);
FPatByClass;
LSByClass;
PenColorByClass;
Arc(-101.916705426566281,68.916705426566253,-31.083294573433758,-1.916705426566246,#360.0000000000d,#60.00000000000d);
FPatByClass;
LSByClass;
PenColorByClass;
Arc(-23.916705426566256,68.916705426566253,46.916705426566253,-1.916705426566252,#120.0000000000d,#60.00000000000d);
FPatByClass;
LSByClass;
PenColorByClass;
Arc(-76.999999999999986,43.999999999999972,-56.00000000000005,23.000000000000032,#360.0000000000d,#60.00000000000d);
FPatByClass;
LSByClass;
PenColorByClass;
Arc(1.000000000000002,44.000000000000007,22.000000000000004,23.000000000000004,#120.0000000000d,#60.00000000000d);
FPatByClass;
LSByClass;
PenColorByClass;
Arc(-37.999999999999993,111.549981495186259,-17,90.549981495186245,#240.0000000000d,#60.00000000000d);
NameClass('geschnitten');
FPatByClass;
LSByClass;
PenColorByClass;
Arc(-27.749999999999996,96.049981495186259,-27.250000000000004,95.549981495186245,#329.9999999999d,#360.0000000000d);
FPatByClass;
LSByClass;
PenColorByClass;
Arc(6.703366630131704,36.375000000000007,7.2033666301317,35.875000000000007,#329.9999999999d,#360.0000000000d);
FPatByClass;
LSByClass;
PenColorByClass;
Arc(-62.203366630131711,36.375000000000007,-61.703366630131711,35.875000000000007,#329.9999999999d,#360.0000000000d);
FPatByClass;
LSByClass;
PenColorByClass;
BeginGroup;
FPatByClass;
LSByClass;
PenColorByClass;
MoveTo(-66.500000000000014,33.500000000000007);
LineTo(11.500000000000002,33.500000000000007);
FPatByClass;
LSByClass;
PenColorByClass;
MoveTo(-66.500000000000014,33.500000000000007);
LineTo(-27.5,101.049981495186259);
FPatByClass;
LSByClass;
PenColorByClass;
MoveTo(11.500000000000002,33.500000000000007);
LineTo(-27.500000000000025,101.049981495186259);
EndGroup;
SetZVals(0,0);

{End of Creation Code}

{Classes}

NameClass('perforiert');
SetClFillFore('perforiert',0,0,0);
SetClFillBack('perforiert',65535,65535,65535);
SetClPenFore('perforiert',0,0,0);
SetClPenBack('perforiert',65535,65535,65535);
SetClFPat('perforiert',0);
SetClLS('perforiert',2);
SetClLW('perforiert',1);
SetClUseGraphic('perforiert',FALSE);
NameClass('Dimension');
SetClFillFore('Dimension',0,0,0);
SetClFillBack('Dimension',65535,65535,65535);
SetClPenFore('Dimension',0,0,0);
SetClPenBack('Dimension',65535,65535,65535);
SetClFPat('Dimension',1);
SetClLS('Dimension',2);
SetClLW('Dimension',1);
SetClUseGraphic('Dimension',FALSE);
NameClass('geschnitten');
SetClFillFore('geschnitten',0,0,0);
SetClFillBack('geschnitten',65535,65535,65535);
SetClPenFore('geschnitten',56797,0,0);
SetClPenBack('geschnitten',65535,65535,65535);
SetClFPat('geschnitten',0);
SetClLS('geschnitten',2);
SetClLW('geschnitten',1);
SetClUseGraphic('geschnitten',FALSE);

{End of Class Entries}

{Default Attributes}

PenSize(1);
PenPat(2);
FillPat(1);
Marker(0,0.125,15);
PenFore(0,0,0);
PenBack(65535,65535,65535);
FillFore(0,0,0);
FillBack(65535,65535,65535);

{End of Default Attributes}


END;

Run(LoadFile);