Procedure LoadFile;
VAR
hatchName, gradientName, objectName:STRING;
result, index, segmentIndex:INTEGER;
boolResult:BOOLEAN;
top, left, bottom, right:REAL;
tempHandle, tempHandle1, tempHandle2, gradientHandle, objectHandle, layerHandle, viewportHandle:HANDLE;
hatchName1:STRING;
BEGIN
{VectorWorks Version 11.0.0 (29707)}
{Global Characteristics}
DrwSize(1,1);
SetUnits(0,3,2,1,'"',' sq ft');
PrimaryUnits(0,3,3,2,6,TRUE,TRUE);
SecondaryUnits(4,1,2,FALSE,FALSE);
SetPrefLongInt(162,3);
SetPrefLongInt(169,3);
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,FALSE);
SetPref(223,TRUE);
SetPref(175,TRUE);
SetPref(225,FALSE);
GridLines(0.5");
PenGrid(0.125");
DoubLines(5.500000000000001");
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}
{Begin Visible Record Format Entries}
{End of Visible Record Format Entries}
{Begin Hidden Record Format Entries}
NewField('NNA_SelectWallType','Current Wall Type','Frame-Wd 2x6 to 96" H.',4,0);
SetObjectVariableBoolean(GetObject('NNA_SelectWallType'),900,FALSE);
NewField('NNA_SelectWallType','Class','Wall-Ext-Frame',4,0);
SetObjectVariableBoolean(GetObject('NNA_SelectWallType'),900,FALSE);
NewField('NNA_SelectWallType','Height','96.00000000',4,0);
SetObjectVariableBoolean(GetObject('NNA_SelectWallType'),900,FALSE);
NewField('NNA_PrefSetPointer','Path','Plug-Ins\VW_Arch\Data\Prefs_Def\',4,0);
SetObjectVariableBoolean(GetObject('NNA_PrefSetPointer'),900,FALSE);
NewField('NNA_PrefSetPointer','Name','VA Defaults',4,0);
SetObjectVariableBoolean(GetObject('NNA_PrefSetPointer'),900,FALSE);
{End of Hidden Record Format Entries}
{End of Record Format Entries}
{Worksheet Entries}
{End of Worksheet Entries}
{Gradient Definition Entries}
{End of GradientDefinition Entries}
{Hatch Definition Entries}
hatchName1:= 'Default Hatch';
BeginVectorFillN(hatchName1,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}
layerHandle := CreateLayer('Design Layer-1', 1);
SetScale(1);
ShowLayer;
CopyMode(8);
LFillFore(0,0,0);
LFillBack(65535,65535,65535);
LPenFore(0,0,0);
LPenBack(65535,65535,65535);
Projection(6,0,39'0.479999999999961",-19'6.239999999999982",19'6.239999999999982",19'6.239999999999982",-19'6.239999999999982");
{End of Layer Characteristics}
{Object Creation Code}
NameClass('None');
PenSize(1);
PenPat(2);
FillPat(0);
PenFore(39321,65535,52428);
PenBack(65535,65535,65535);
FillFore(0,0,0);
FillBack(0,0,0);
Rect(0",20'10.000000000000002",2'6.000000000000002",0");
ClosePoly;
BeginPoly;
CurveTo(6'8.000000000000002",2'6.000000000000002");
CurveTo(7'6.000000000000002",2'1");
CurveTo(8'4.000000000000001",2'6.000000000000002");
CurveTo(7'6.000000000000002",4'2");
CurveTo(8'9.000000000000002",5'10.000000000000002");
CurveTo(10'0",4'2");
CurveTo(9'2",2'6.000000000000002");
CurveTo(10'0",2'1");
CurveTo(10'10.000000000000002",2'6.000000000000002");
CurveTo(10'10.000000000000002",2'6.000000000000002");
CurveTo(10'0",2'1");
CurveTo(9'2",2'6.000000000000002");
CurveTo(10'0",4'2");
CurveTo(8'9.000000000000002",5'10.000000000000002");
CurveTo(7'6.000000000000002",4'2");
CurveTo(8'4.000000000000001",2'6.000000000000002");
CurveTo(7'6.000000000000002",2'1");
CurveTo(6'8.000000000000002",2'6.000000000000002");
EndPoly;
BeginPoly;
CurveTo(7'4.000000000000001",1'0.000000000000002");
CurveTo(8'9.000000000000002",10.000000000000002");
CurveTo(10'1.999999999999986",1'0.000000000000002");
CurveTo(8'9.000000000000002",1'1.999999999999999");
EndPoly;
BeginPoly;
CurveTo(13'4.000000000000001",2'6.000000000000002");
CurveTo(14'2",2'1");
CurveTo(15'0",2'6.000000000000002");
CurveTo(14'2",4'2");
CurveTo(15'5.000000000000001",5'10.000000000000002");
CurveTo(16'8.000000000000002",4'2");
CurveTo(15'10.000000000000002",2'6.000000000000002");
CurveTo(16'8.000000000000002",2'1");
CurveTo(17'6.000000000000002",2'6.000000000000002");
CurveTo(17'6.000000000000002",2'6.000000000000002");
CurveTo(16'8.000000000000002",2'1");
CurveTo(15'10.000000000000002",2'6.000000000000002");
CurveTo(16'8.000000000000002",4'2");
CurveTo(15'5.000000000000001",5'10.000000000000002");
CurveTo(14'2",4'2");
CurveTo(15'0",2'6.000000000000002");
CurveTo(14'2",2'1");
CurveTo(13'4.000000000000001",2'6.000000000000002");
EndPoly;
BeginPoly;
CurveTo(14'0",1'0.000000000000002");
CurveTo(15'5.000000000000001",10.000000000000002");
CurveTo(16'9.999999999999973",1'0.000000000000002");
CurveTo(15'5.000000000000001",1'1.999999999999999");
EndPoly;
BeginPoly;
CurveTo(20'0",2'6.000000000000002");
CurveTo(20'10.000000000000002",2'1");
CurveTo(21'8.000000000000002",2'6.000000000000002");
CurveTo(20'10.000000000000002",4'2");
CurveTo(22'1",5'10.000000000000002");
CurveTo(23'4.000000000000001",4'2");
CurveTo(22'6.000000000000002",2'6.000000000000002");
CurveTo(23'4.000000000000001",2'1");
CurveTo(24'2",2'6.000000000000002");
CurveTo(24'2",2'6.000000000000002");
CurveTo(23'4.000000000000001",2'1");
CurveTo(22'6.000000000000002",2'6.000000000000002");
CurveTo(23'4.000000000000001",4'2");
CurveTo(22'1",5'10.000000000000002");
CurveTo(20'10.000000000000002",4'2");
CurveTo(21'8.000000000000002",2'6.000000000000002");
CurveTo(20'10.000000000000002",2'1");
CurveTo(20'0",2'6.000000000000002");
EndPoly;
BeginPoly;
CurveTo(20'8.000000000000002",1'0.000000000000002");
CurveTo(22'1",10.000000000000002");
CurveTo(23'5.999999999999944",1'0.000000000000002");
CurveTo(22'1",1'1.999999999999999");
EndPoly;
BeginPoly;
CurveTo(26'8.000000000000002",2'6.000000000000002");
CurveTo(27'6.000000000000002",2'1");
CurveTo(28'4.000000000000001",2'6.000000000000002");
CurveTo(27'6.000000000000002",4'2");
CurveTo(28'9.000000000000002",5'10.000000000000002");
CurveTo(30'0",4'2");
CurveTo(29'2",2'6.000000000000002");
CurveTo(30'0",2'1");
CurveTo(30'10.000000000000002",2'6.000000000000002");
CurveTo(30'10.000000000000002",2'6.000000000000002");
CurveTo(30'0",2'1");
CurveTo(29'2",2'6.000000000000002");
CurveTo(30'0",4'2");
CurveTo(28'9.000000000000002",5'10.000000000000002");
CurveTo(27'6.000000000000002",4'2");
CurveTo(28'4.000000000000001",2'6.000000000000002");
CurveTo(27'6.000000000000002",2'1");
CurveTo(26'8.000000000000002",2'6.000000000000002");
EndPoly;
BeginPoly;
CurveTo(27'4.000000000000001",1'0.000000000000002");
CurveTo(28'9.000000000000002",10.000000000000002");
CurveTo(30'2",1'0.000000000000002");
CurveTo(28'9.000000000000002",1'1.999999999999999");
EndPoly;
BeginPoly;
CurveTo(33'4.000000000000001",2'6.000000000000002");
CurveTo(34'2",2'1");
CurveTo(35'0",2'6.000000000000002");
CurveTo(34'2",4'2");
CurveTo(35'5.000000000000001",5'10.000000000000002");
CurveTo(36'8.000000000000002",4'2");
CurveTo(35'10.000000000000002",2'6.000000000000002");
CurveTo(36'8.000000000000002",2'1");
CurveTo(37'6.000000000000002",2'6.000000000000002");
CurveTo(37'6.000000000000002",2'6.000000000000002");
CurveTo(36'8.000000000000002",2'1");
CurveTo(35'10.000000000000002",2'6.000000000000002");
CurveTo(36'8.000000000000002",4'2");
CurveTo(35'5.000000000000001",5'10.000000000000002");
CurveTo(34'2",4'2");
CurveTo(35'0",2'6.000000000000002");
CurveTo(34'2",2'1");
CurveTo(33'4.000000000000001",2'6.000000000000002");
EndPoly;
BeginPoly;
CurveTo(34'0.000000000000057",1'0.000000000000002");
CurveTo(35'5.000000000000001",10.000000000000002");
CurveTo(36'10.000000000000002",1'0.000000000000002");
CurveTo(35'5.000000000000001",1'1.999999999999999");
EndPoly;
BeginPoly;
CurveTo(40'0",2'6.000000000000002");
CurveTo(40'10.000000000000002",2'1");
CurveTo(41'8.000000000000002",2'6.000000000000002");
CurveTo(40'10.000000000000002",4'2");
CurveTo(42'1",5'10.000000000000002");
CurveTo(43'4.000000000000001",4'2");
CurveTo(42'6.000000000000002",2'6.000000000000002");
CurveTo(43'4.000000000000001",2'1");
CurveTo(44'2",2'6.000000000000002");
CurveTo(44'2",2'6.000000000000002");
CurveTo(43'4.000000000000001",2'1");
CurveTo(42'6.000000000000002",2'6.000000000000002");
CurveTo(43'4.000000000000001",4'2");
CurveTo(42'1",5'10.000000000000002");
CurveTo(40'10.000000000000002",4'2");
CurveTo(41'8.000000000000002",2'6.000000000000002");
CurveTo(40'10.000000000000002",2'1");
CurveTo(40'0",2'6.000000000000002");
EndPoly;
BeginPoly;
CurveTo(40'7.999999999999945",1'0.000000000000002");
CurveTo(42'1",10.000000000000002");
CurveTo(43'6.000000000000002",1'0.000000000000002");
CurveTo(42'1",1'1.999999999999999");
EndPoly;
BeginPoly;
CurveTo(46'8.000000000000002",2'6.000000000000002");
CurveTo(47'6.000000000000002",2'1");
CurveTo(48'4.000000000000001",2'6.000000000000002");
CurveTo(47'6.000000000000002",4'2");
CurveTo(48'9.000000000000002",5'10.000000000000002");
CurveTo(50'0",4'2");
CurveTo(49'2",2'6.000000000000002");
CurveTo(50'0",2'1");
CurveTo(50'10.000000000000002",2'6.000000000000002");
CurveTo(50'10.000000000000002",2'6.000000000000002");
CurveTo(50'0",2'1");
CurveTo(49'2",2'6.000000000000002");
CurveTo(50'0",4'2");
CurveTo(48'9.000000000000002",5'10.000000000000002");
CurveTo(47'6.000000000000002",4'2");
CurveTo(48'4.000000000000001",2'6.000000000000002");
CurveTo(47'6.000000000000002",2'1");
CurveTo(46'8.000000000000002",2'6.000000000000002");
EndPoly;
BeginPoly;
CurveTo(47'3.999999999999887",1'0.000000000000002");
CurveTo(48'9.000000000000002",10.000000000000002");
CurveTo(50'2",1'0.000000000000002");
CurveTo(48'9.000000000000002",1'1.999999999999999");
EndPoly;
BeginPoly;
CurveTo(53'4.000000000000001",2'6.000000000000002");
CurveTo(54'2",2'1");
CurveTo(55'0",2'6.000000000000002");
CurveTo(54'2",4'2");
CurveTo(55'5.000000000000001",5'10.000000000000002");
CurveTo(56'8.000000000000002",4'2");
CurveTo(55'10.000000000000002",2'6.000000000000002");
CurveTo(56'8.000000000000002",2'1");
CurveTo(57'6.000000000000002",2'6.000000000000002");
CurveTo(57'6.000000000000002",2'6.000000000000002");
CurveTo(56'8.000000000000002",2'1");
CurveTo(55'10.000000000000002",2'6.000000000000002");
CurveTo(56'8.000000000000002",4'2");
CurveTo(55'5.000000000000001",5'10.000000000000002");
CurveTo(54'2",4'2");
CurveTo(55'0",2'6.000000000000002");
CurveTo(54'2",2'1");
CurveTo(53'4.000000000000001",2'6.000000000000002");
EndPoly;
BeginPoly;
CurveTo(54'0",1'0.000000000000002");
CurveTo(55'5.000000000000001",10.000000000000002");
CurveTo(56'10.000000000000002",1'0.000000000000002");
CurveTo(55'5.000000000000001",1'1.999999999999999");
EndPoly;
BeginPoly;
CurveTo(60'0",2'6.000000000000002");
CurveTo(60'10.000000000000002",2'1");
CurveTo(61'8.000000000000002",2'6.000000000000002");
CurveTo(60'10.000000000000002",4'2");
CurveTo(62'1",5'10.000000000000002");
CurveTo(63'4.000000000000001",4'2");
CurveTo(62'6.000000000000002",2'6.000000000000002");
CurveTo(63'4.000000000000001",2'1");
CurveTo(64'2",2'6.000000000000002");
CurveTo(64'2",2'6.000000000000002");
CurveTo(63'4.000000000000001",2'1");
CurveTo(62'6.000000000000002",2'6.000000000000002");
CurveTo(63'4.000000000000001",4'2");
CurveTo(62'1",5'10.000000000000002");
CurveTo(60'10.000000000000002",4'2");
CurveTo(61'8.000000000000002",2'6.000000000000002");
CurveTo(60'10.000000000000002",2'1");
CurveTo(60'0",2'6.000000000000002");
EndPoly;
BeginPoly;
CurveTo(60'8.000000000000002",1'0.000000000000002");
CurveTo(62'1",10.000000000000002");
CurveTo(63'6.000000000000002",1'0.000000000000002");
CurveTo(62'1",1'1.999999999999999");
EndPoly;
BeginPoly;
CurveTo(66'8.000000000000002",2'6.000000000000002");
CurveTo(67'6.000000000000002",2'1");
CurveTo(68'4.000000000000001",2'6.000000000000002");
CurveTo(67'6.000000000000002",4'2");
CurveTo(68'9.000000000000002",5'10.000000000000002");
CurveTo(70'0",4'2");
CurveTo(69'2",2'6.000000000000002");
CurveTo(70'0",2'1");
CurveTo(70'10.000000000000002",2'6.000000000000002");
CurveTo(70'10.000000000000002",2'6.000000000000002");
CurveTo(70'0",2'1");
CurveTo(69'2",2'6.000000000000002");
CurveTo(70'0",4'2");
CurveTo(68'9.000000000000002",5'10.000000000000002");
CurveTo(67'6.000000000000002",4'2");
CurveTo(68'4.000000000000001",2'6.000000000000002");
CurveTo(67'6.000000000000002",2'1");
CurveTo(66'8.000000000000002",2'6.000000000000002");
EndPoly;
BeginPoly;
CurveTo(67'3.999999999999887",1'0.000000000000002");
CurveTo(68'9.000000000000002",10.000000000000002");
CurveTo(70'2",1'0.000000000000002");
CurveTo(68'9.000000000000002",1'1.999999999999999");
EndPoly;
SetZVals(0",0");
{End of Creation Code}
{Classes}
NameClass('None');
SetClFillFore('None',0,0,0);
SetClFillBack('None',65535,65535,65535);
SetClPenFore('None',0,0,0);
SetClPenBack('None',65535,65535,65535);
SetClFPat('None',1);
SetClLS('None',2);
SetClLW('None',1);
SetClUseGraphic('None',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);
{End of Class Entries}
{Default Attributes}
PenSize(1);
PenPat(2);
FillPat(0);
Marker(0,0.125,15);
PenFore(39321,65535,52428);
PenBack(65535,65535,65535);
FillFore(0,0,0);
FillBack(0,0,0);
{End of Default Attributes}
END;
Run(LoadFile);