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);