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,0,2.54,'cm',' sq cm'); PrimaryUnits(0,3,1,2,6,FALSE,FALSE); SecondaryUnits(4,1,2,FALSE,FALSE); SetPrefLongInt(162,3); 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(1); PenGrid(0.2); DoubLines(13.970000000000002); 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(25.000000000000007); ShowLayer; CopyMode(8); LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(6,0,619.759999999999991,-309.879999999999995,309.879999999999995,309.879999999999995,-309.879999999999995); {End of Layer Characteristics} {Object Creation Code} NameClass('None'); ClosePoly; PenSize(1); PenPat(2); FillPat(1); PenFore(0,0,0); PenBack(65535,65535,65535); FillFore(0,0,0); FillBack(22938,22939,38228); Poly( -39.500000000000007,160.600000000000023, -39.500000000000007,146.328573569418296, -35.121004410638378,149.000262916849493, -14.006755992300622,123.900000000000034, 3.300000000000001,123.900000000000034, 3.300000000000001,160.600000000000023 ); PenPat(-1); Marker(0,0.125,15); MoveTo(-39.500000000000007,147.500000000000028); LineTo(-34.908639325844476,150.301256396136836); MoveTo(-12.700000000000003,123.900000000000034); LineTo(-34.908639325844476,150.301256396136836); PenPat(2); FillBack(65535,65535,65535); BeginPoly; CurveTo(-16.000000000000004,137.80000000000004); CurveTo(-11.000000000000002,137.80000000000004); CurveTo(-14.000000000000004,133.600000000000023); CurveTo(-14.800000000000004,136.400000000000034); CurveTo(-16.400000000000002,136.400000000000034); CurveTo(-19.200000000000003,135.700000000000017); CurveTo(-22.000000000000004,139.80000000000004); CurveTo(-19.200000000000003,141.000000000000028); CurveTo(-19.819967320028766,139.926185102677891); CurveTo(-20.200000000000003,138.600000000000023); EndPoly; BeginPoly; CurveTo(-3.200000000000001,129.80000000000004); CurveTo(-4.585640646055099,130.600000000000023); CurveTo(-11.200000000000001,131.000000000000028); CurveTo(-11.200000000000001,130.000000000000028); CurveTo(-7.800000000000002,129.400000000000034); CurveTo(-5.375128869403571,128.000000000000028); CurveTo(-2.600000000000001,127.000000000000028); EndPoly; BeginPoly; CurveTo(0.2,133.000000000000028); CurveTo(-1.532050807568688,136.000000000000028); CurveTo(-3.200000000000001,140.600000000000023); CurveTo(-4.701110699892863,143.200000000000017); CurveTo(-6.200000000000002,142.80000000000004); CurveTo(-5.199999999999853,141.80000000000004); CurveTo(-4.200000000000001,140.800000000000324); CurveTo(-4.199999999999702,138.80000000000004); CurveTo(-1.999999999999851,135.900000000000034); CurveTo(-1.4,134.000000000000028); CurveTo(-1.4,133.000000000000028); CurveTo(-0.4762395692967,131.400000000000034); EndPoly; BeginPoly; CurveTo(-9.360931738490907,143.485006615409617); CurveTo(-8.474992908911883,142.731003969245847); CurveTo(-8.474992908911883,141.600000000000023); CurveTo(-11.575778812438461,141.600000000000023); CurveTo(-13.200000000000003,144.993011907737525); LineTo(-11.649607048236712,146.312516538524306); CurveTo(-10.906319126300692,146.945112200086783); LineTo(-10.433851748120262,146.927801253723487); CurveTo(-10.428163076788902,147.147114334926016); LineTo(-10.331559994355167,147.289517861606242); CurveTo(-10.120936477447399,147.600000000000023); CurveTo(-7.88436702252587,146.50101720006532); LineTo(-5.521863476981811,145.621347446207409); LineTo(-5.400000000000001,145.322969038660318); CurveTo(-5.964832891771321,144.490343476961641); CurveTo(-8.917962323701394,145.040915938564183); LineTo(-9.50858821008741,145.33113169238581); CurveTo(-9.530348646029779,145.341824114553702); LineTo(-9.552289476356682,145.353403923072079); CurveTo(-9.360931738490907,144.457797003105753); LineTo(-9.360931738490907,144.0505086000326); EndPoly; BeginPoly; CurveTo(-2.4,150.80000000000004); CurveTo(-2.800000000000059,150.400000000000034); CurveTo(-2.399999999999999,150.000000000000028); CurveTo(-1.600000000000001,149.53811978464833); CurveTo(-0.461880215351519,148.400000000000034); CurveTo(0.461880215351781,146.80000000000004); CurveTo(0.8,147.000000000000028); CurveTo(0.2,148.80000000000004); CurveTo(-0.492820323027475,150.000000000000028); CurveTo(-1.446410161513738,150.000000000000028); EndPoly; OpenPoly; BeginPoly; MoveTo(-23.200000000000003,145.80000000000004); CurveTo(-22.276239569296703,147.400000000000034); CurveTo(-19.400000000000002,146.600000000000023); CurveTo(-17.89888930010714,144.000000000000028); CurveTo(-15.800000000000004,143.200000000000017); CurveTo(-14.876239569296704,141.600000000000023); CurveTo(-15.200000000000003,141.000000000000028); CurveTo(-16.600000000000005,141.840000000000003); CurveTo(-17.760000000000208,143.000000000000028); CurveTo(-18.760000000000367,144.000000000000028); CurveTo(-20.800000000000004,144.400000000000034); CurveTo(-19.600000000000005,145.599999999999824); CurveTo(-21.396891108675465,146.144615242270675); CurveTo(-22.866025403784285,143.600000000000023); CurveTo(-25.000000000000007,145.100000000000023); CurveTo(-25.000000000000007,146.200000000000017); LineTo(-23.084529946162082,146.000000000000028); EndPoly; ClosePoly; BeginPoly; CurveTo(-18.600000000000005,152.000000000000028); CurveTo(-16.39999999999964,149.80000000000004); CurveTo(-16.39999999999964,146.80000000000004); CurveTo(-14.000000000000004,146.80000000000004); CurveTo(-14.353846153846167,147.200000000000017); CurveTo(-15.000000000000004,149.000000000000028); CurveTo(-16.219672131147327,150.016393442622814); CurveTo(-18.120000000000001,151.600000000000023); EndPoly; BeginPoly; CurveTo(-0.2,143.600000000000023); CurveTo(-0.2,142.80000000000004); CurveTo(1.532050807568869,141.80000000000004); CurveTo(2.532050807569017,142.80000000000004); CurveTo(1.332050807568836,144.000000000000028); CurveTo(0,144.400000000000034); EndPoly; MoveTo(-14.006755992300622,123.900000000000034); LineTo(-35.121004410638378,149.000262916849493); BeginPoly; CurveTo(-6.0582115955317,152.000000000000028); CurveTo(-7.059560337951249,154.200000000000017); CurveTo(-9.211642319106339,154.200000000000017); CurveTo(-10.000000000000002,153.600000000000023); CurveTo(-8.580956174391414,153.024000000000029); CurveTo(-8.023842146790718,151.80000000000004); CurveTo(-6.84042999665852,149.200000000000017); CurveTo(-5.894400779585981,150.400000000000034); EndPoly; MoveTo(-41.000000000000007,154.000000000000028); LineTo(-50.200000000000017,154.000000000000028); OpenPoly; FillPat(0); BeginPoly; MoveTo(-46.600000000000009,149.200000000000017); CurveTo(-45.791709623134615,147.80000000000004); CurveTo(-44.591709623134435,149.000000000000028); CurveTo(-43.400000000000006,155.600000000000023); CurveTo(-44.600000000000009,159.80000000000004); CurveTo(-47.000000000000007,159.200000000000017); LineTo(-47.000000000000007,156.400000000000034); EndPoly; MoveTo(-47.000000000000007,156.400000000000034); LineTo(-47.800000000000004,157.80000000000004); MoveTo(-47.000000000000007,156.400000000000034); LineTo(-46.191709623134614,157.80000000000004); BeginPoly; MoveTo(-39.500000000000007,160.600000000000023); CurveTo(-42.20000000000001,160.600000000000023); CurveTo(-42.600000000000009,151.000000000000028); CurveTo(-41.800000000000004,144.600000000000023); CurveTo(-38.000000000000007,142.4060689770794); CurveTo(-35.000000000000007,145.80000000000004); LineTo(-35.000000000000007,148.200000000000017); EndPoly; MoveTo(-35.000000000000007,148.200000000000017); LineTo(-35.923760430703311,146.600000000000023); MoveTo(-35.000000000000007,148.200000000000017); LineTo(-34.076239569296703,146.600000000000023); 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(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);