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(48.000000000000014); 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); Marker(0,0.125,15); PenFore(0,0,0); PenBack(65535,65535,65535); MoveTo(0",0"); LineTo(4'2.799999999999998",0"); FillPat(0); FillFore(0,0,0); FillBack(65535,65535,65535); Arc(-1'10.999999999999998",1'10.999999999999998",1'10.999999999999998",-1'10.999999999999998",#360.0000000000d,#60.00000000000d); Arc(-6.800000000000002",6.800000000000002",6.800000000000002",-6.800000000000002",#360.0000000000d,#60.00000000000d); Arc(10.500000000000004",2'5.599999999999995",3'4.299999999999998",-0.199999999999999",#159.0420000000d,#101.9100000000d); Oval(2.75",1.95",3.250000000000001",1.45"); 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);