Procedure LoadFile; VAR hatchName, gradientName, tileName, objectName:STRING; result, index, segmentIndex:INTEGER; boolResult:BOOLEAN; top, left, bottom, right:REAL; tileRepPoint, tileOffPoint:POINT; tempHandle, tempHandle1, tempHandle2, tempHandle3, tempHandle4, tempHandle5, tempHandle6, gradientHandle, objectHandle, layerHandle, classHandle, viewportHandle, tileHandle, tileGroupHandle, textHandle:HANDLE; dynCharArray, tempDescriptionText:DYNARRAY [] OF CHAR; BEGIN {VectorWorks Version 25.0.2(530873)} {Global Characteristics} DrwSize(1,1); SetUnits(0,3,0,25.399999999999999,'mm',' sq mm'); PrimaryUnits(0,3,3,2,6,FALSE,FALSE); SecondaryUnits(1,3,1,TRUE,TRUE); SetPrefLongInt(162,3); SetPrefLongInt(169,3); SetPrefLongInt(171,3); SetPrefLongInt(172,3); SetPrefLongInt(212,3); SetPrefLongInt(219,3); SetPrefLongInt(221,3); SetPrefLongInt(222,3); SetPrefInt(174,0); SetPrefInt(224,0); SetPref(167,FALSE); SetPref(173,TRUE); SetPref(223,FALSE); SetPref(175,FALSE); SetPref(225,TRUE); GridLines(10); PenGrid(2); SetPrefReal(73,0); SetOriginAbsolute(0,0); SetPref(37,FALSE); SetPref(38,TRUE); SetPref(5,FALSE); OpenPoly; SetPrefInt(121,0); SetPrefReal(68,0); SetPrefReal(69,0); SetPrefReal(70,1); {End of Global Characteristics} SetDocDrpShadowData(FALSE,0,0.1,0.05,#315.0000000000d,75,0,0,0); {Record Format Entries} {Begin Visible Record Format Entries} {End of Visible Record Format Entries} {Begin Hidden Record Format Entries} NewField('NNA__MassAndForceUnits','Mass Unit','2',1,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Mass Precision','2',1,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Show Mass Mark','True',2,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Custom Mass Unit Name','Kilograms',4,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Custom Mass Unit Mark','kg',4,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Custom Mass Unit Scale','1000',3,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Custom Mass Unit Link','2',1,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Custom Mass Unit Type','-1',1,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Mass Distr Unit','1',1,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Mass Distr Precision','2',1,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Show Mass Distr Mark','True',2,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Custom MassDistr Unit Name','',4,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Custom MassDistr Unit Mark','kg/m',4,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Custom MassDistr Unit Scale','1',3,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Custom MassDistr Mass Unit','2',1,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Custom MassDistr Lenght Unit','9',1,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Force Unit','1',1,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Force Precision','2',1,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Show Force Mark','True',2,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Custom Force Unit Name','Kilonewton',4,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Custom Force Unit Mark','kN',4,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Custom Force Unit Scale','1000',3,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Custom Force Unit Link','1',1,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); NewField('NNA__MassAndForceUnits','Custom Force Unit Type','-1',1,0); SetObjectVariableBoolean(GetObject('NNA__MassAndForceUnits'),900,FALSE); {End of Hidden Record Format Entries} {End of Record Format Entries} {LineType Definition Entries} SetDashStyleN('VW-01 Short Dashed',TRUE,2,0.041656,0.041656); SetDashStyleN('ISO-07 Dotted',TRUE,2,0.005,0.03); SetDashStyleN('ISO-02 Dashed',TRUE,2,0.12,0.03); {End of LineTypeDefinition Entries} {Worksheet Entries} {End of Worksheet Entries} {Gradient Definition Entries} {End of GradientDefinition Entries} {Tile Definition Entries} {End of TileDefinition Entries} {LayerLevelType Entries} tempHandle := GetObject('Foundation'); IF tempHandle = nil THEN boolResult := CreateLayerLevelType('Foundation'); tempHandle := GetObject('Ledge'); IF tempHandle = nil THEN boolResult := CreateLayerLevelType('Ledge'); tempHandle := GetObject('Bottom of Structure'); IF tempHandle = nil THEN boolResult := CreateLayerLevelType('Bottom of Structure'); tempHandle := GetObject('Top of Structure'); IF tempHandle = nil THEN boolResult := CreateLayerLevelType('Top of Structure'); tempHandle := GetObject('Finish Floor'); IF tempHandle = nil THEN boolResult := CreateLayerLevelType('Finish Floor'); tempHandle := GetObject('Ceiling'); IF tempHandle = nil THEN boolResult := CreateLayerLevelType('Ceiling'); {End of LayerLevelType Entries} {Story Entries} {End of Story Entries} {Hatch Definition Entries} {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,247.903999999999968,-143.594666666666654,143.594666666666654,143.594666666666654,-143.594666666666654); {End of Layer Characteristics} {Object Creation Code} SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('Design Layer-2', 1); SetScale(1); ShowLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(6,0,247.903999999999968,-143.594666666666654,143.594666666666654,143.594666666666654,-143.594666666666654); {End of Layer Characteristics} {Object Creation Code} SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('Design Layer-3', 1); SetScale(1); ShowLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(6,0,247.903999999999968,-143.594666666666654,143.594666666666654,143.594666666666654,-143.594666666666654); {End of Layer Characteristics} {Object Creation Code} SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('Design Layer-4', 1); SetScale(1); ShowLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(6,0,247.903999999999968,-143.594666666666654,143.594666666666654,143.594666666666654,-143.594666666666654); {End of Layer Characteristics} {Object Creation Code} SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('Design Layer-5', 1); SetScale(1); ShowLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(6,0,247.903999999999968,-143.594666666666654,143.594666666666654,143.594666666666654,-143.594666666666654); {End of Layer Characteristics} {Object Creation Code} SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('Design Layer-6', 1); SetScale(1); ShowLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(6,0,247.903999999999968,-143.594666666666654,143.594666666666654,143.594666666666654,-143.594666666666654); {End of Layer Characteristics} {Object Creation Code} SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('Design Layer-7', 1); SetScale(1); ShowLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(6,0,247.903999999999968,-143.594666666666654,143.594666666666654,143.594666666666654,-143.594666666666654); {End of Layer Characteristics} {Object Creation Code} SetZVals(0,0); {Layer Characteristics} layerHandle := CreateLayer('Design Layer-8', 1); SetScale(10); ShowLayer; LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(6,0,247.903999999999968,-143.594666666666654,143.594666666666654,143.594666666666654,-143.594666666666654); {End of Layer Characteristics} {Object Creation Code} NameClass('None'); BeginGroup; ClosePoly; PenSize(14); PenPatN(2); FillPat(0); PenFore(65535,0,0); PenBack(65535,65535,65535); FillFore(0,0,0); FillBack(65535,65535,65535); boolResult := SetDefaultBeginningMarker(0,15,0.125,0,34,0.05,FALSE); boolResult := SetDefaultEndMarker(0,15,0.125,0,34,0.05,FALSE); BeginPoly; MoveTo(-1401.579740935821974,364.067448984093573); Add2DVertex(-1355.617800158696355,383.105508206968068,4,65.000000000000171); LineTo(-1336.579740935821974,429.067448984093573); LineTo(-1336.579740935821974,440.674507807623002); Add2DVertex(-1126.579740935821519,650.674507807622945,4,210.000000000000341); LineTo(-916.579740935821519,440.674507807623115); LineTo(-916.579740935821519,429.067448984093517); Add2DVertex(-897.541681712947252,383.105508206968295,4,65); LineTo(-851.579740935821974,364.067448984093573); LineTo(-851.579740935821974,-508.370198074729728); LineTo(-1401.579740935821974,-508.370198074729956); EndPoly; objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); objectHandle := LNewObj; SetObjectVariableBoolean(objectHandle, 1160, FALSE); OpenPoly; PenSize(7); PenFore(0,0,0); BeginPoly; MoveTo(-1349.064967691181664,315.633774129295546); Add2DVertex(-1296.248485708372755,361.759747550973827,4,125.00000000000027); LineTo(-1276.579740935821974,429.067448984093517); LineTo(-1276.579740935821974,440.674507807622888); Add2DVertex(-1232.645758113803822,546.740524985605134,4,0); LineTo(-1126.579740935821974,590.674507807622831); Add2DVertex(-1020.513723757839671,546.740524985604907,4,0); LineTo(-976.579740935821974,440.674507807622888); LineTo(-976.579740935821974,429.067448984093573); Add2DVertex(-956.910996163270738,361.759747550973827,4,150.000000000000227); LineTo(-904.094514180461829,315.633774129295546); EndPoly; SetVertexVisibility(LNewObj,10,false); objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); objectHandle := LNewObj; SetObjectVariableBoolean(objectHandle, 1160, FALSE); PenSize(2); OvalN(-1216.579740935821974,391.629801925270044,1,0,180,150); objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); objectHandle := LNewObj; SetObjectVariableBoolean(objectHandle, 1160, FALSE); EndGroup; objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); BeginGroup; ClosePoly; PenSize(14); PenFore(65535,0,0); BeginPoly; MoveTo(-792.807632993793277,417.966676243565246); Add2DVertex(-742.667292180619143,438.925675642027784,4,65.000000000000171); LineTo(-721.898482993793095,489.525176243565227); LineTo(-721.898482993793095,502.303387302388785); Add2DVertex(-492.807382993792771,733.492387302388693,4,210.000000000000341); LineTo(-263.716282993792902,502.303387302388956); LineTo(-263.716282993792902,489.52517624356517); Add2DVertex(-242.947473806966627,438.925675642028011,4,65); LineTo(-192.807132993792948,417.966676243565246); LineTo(-192.807132993792948,-542.499929403493184); LineTo(-792.807632993793277,-542.499929403493411); EndPoly; objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); objectHandle := LNewObj; SetObjectVariableBoolean(objectHandle, 1160, FALSE); OpenPoly; PenSize(7); PenFore(0,0,0); BeginPoly; MoveTo(-735.518741713482541,364.646043595918172); Add2DVertex(-677.900713353616538,415.42612773584375,4,125.00000000000027); LineTo(-656.443882993793068,489.52517624356517); LineTo(-656.443882993793068,502.303387302388671); Add2DVertex(-608.515861793425302,619.07146561362913,4,0); LineTo(-492.807382993793226,667.438387302388605); Add2DVertex(-377.098904194160696,619.071465613629016,4,0); LineTo(-329.170882993793384,502.303387302388671); LineTo(-329.170882993793384,489.525176243565227); Add2DVertex(-307.714052633969459,415.42612773584375,4,150.000000000000227); LineTo(-250.096024274103456,364.646043595918172); EndPoly; SetVertexVisibility(LNewObj,10,false); objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); objectHandle := LNewObj; SetObjectVariableBoolean(objectHandle, 1160, FALSE); PenSize(2); OvalN(-590.989282993793267,448.310070596506421,1,0,196.363799999999998,165.134999999999991); objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); objectHandle := LNewObj; SetObjectVariableBoolean(objectHandle, 1160, FALSE); EndGroup; objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); BeginGroup; ClosePoly; PenSize(14); PenFore(65535,0,0); BeginPoly; MoveTo(-140.159197597587536,450.503944375541209); Add2DVertex(-85.460598401087751,473.577706813308623,4,65.000000000000171); LineTo(-62.803696771087743,529.282697025541211); LineTo(-62.803696771087743,543.350229580199994); Add2DVertex(187.11407512991309,797.866199680199884,4,210.000000000000341); LineTo(437.031847030912559,543.350229580200221); LineTo(437.031847030912559,529.282697025541211); Add2DVertex(459.688748660913461,473.577706813308851,4,65); LineTo(514.387347857411896,450.503944375541209); LineTo(514.387347857411896,-606.873741781305398); LineTo(-140.159197597587536,-606.873741781305625); EndPoly; objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); objectHandle := LNewObj; SetObjectVariableBoolean(objectHandle, 1160, FALSE); OpenPoly; PenSize(7); PenFore(0,0,0); BeginPoly; MoveTo(-77.662173210984292,391.803259893746485); Add2DVertex(-14.8060898929225,447.707054523390639,4,125.00000000000027); LineTo(8.601380914912626,529.282697025541211); LineTo(8.601380914912626,543.350229580199994); Add2DVertex(60.886538522605406,671.900206993044776,4,0); LineTo(187.114075129912635,725.147351080199883); Add2DVertex(313.341611737219409,671.900206993044662,4,0); LineTo(365.626769344912191,543.350229580199994); LineTo(365.626769344912191,529.282697025541211); Add2DVertex(389.03424015274777,447.707054523390639,4,150.000000000000227); LineTo(451.890323470809108,391.803259893746485); EndPoly; SetVertexVisibility(LNewObj,10,false); objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); objectHandle := LNewObj; SetObjectVariableBoolean(objectHandle, 1160, FALSE); PenSize(2); OvalN(80.006458600912538,483.908987218694165,1,0,214.215233057999995,181.797121499999975); objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); objectHandle := LNewObj; SetObjectVariableBoolean(objectHandle, 1160, FALSE); EndGroup; objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); BeginGroup; ClosePoly; PenSize(14); PenFore(65535,0,0); BeginPoly; MoveTo(568.414499172142314,486.324222862034105); Add2DVertex(628.085748021595009,511.726127929772247,4,65.000000000000171); LineTo(652.802388578779301,573.051751654419149); LineTo(652.802388578779301,588.538698243842987); Add2DVertex(925.440185123299216,868.735329726932946,4,210.000000000000341); LineTo(1198.077981667819586,588.538698243843214); LineTo(1198.077981667819586,573.051751654419036); Add2DVertex(1222.794622225003422,511.726127929772474,4,65); LineTo(1282.465871074456118,486.324222862034105); LineTo(1282.465871074456118,-677.742871828038346); LineTo(568.414499172142314,-677.742871828038574); EndPoly; objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); objectHandle := LNewObj; SetObjectVariableBoolean(objectHandle, 1160, FALSE); OpenPoly; PenSize(7); PenFore(0,0,0); BeginPoly; MoveTo(636.593128045731532,421.700639316026297); Add2DVertex(705.163457898237994,483.245126823801513,4,125.00000000000027); LineTo(730.698901877212847,573.051751654419036); LineTo(730.698901877212847,588.538698243842759); Add2DVertex(787.737303163022261,730.05936837764375,4,0); LineTo(925.440185123299216,788.679149303192844); Add2DVertex(1063.143067083576625,730.059368377643523,4,0); LineTo(1120.18146836938422,588.538698243842759); LineTo(1120.18146836938422,573.051751654419149); Add2DVertex(1145.716912348360438,483.245126823801513,4,150.000000000000227); LineTo(1214.287242200866785,421.700639316026297); EndPoly; SetVertexVisibility(LNewObj,10,false); objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); objectHandle := LNewObj; SetObjectVariableBoolean(objectHandle, 1160, FALSE); PenSize(2); OvalN(808.595415175647304,523.099834528061137,1,0,233.689539895302772,200.140451059349971); objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); objectHandle := LNewObj; SetObjectVariableBoolean(objectHandle, 1160, FALSE); EndGroup; objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); SetZVals(0,0); OpacityN(100,100); {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); boolResult := SetClassBeginningMarker('None',0,15,0.125,0,34,0.05); boolResult := SetClassEndMarker('None',0,15,0.125,0,34,0.05); SetClFPat('None',1); SetClLSN('None',2); SetClLW('None',2); SetCLDrpShadowData('None',0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableCLDropShadow('None',FALSE); SetClUseGraphic('None',FALSE); classHandle := GetObject('None'); NameClass('Dimension'); SetClFillFore('Dimension',0,0,0); SetClFillBack('Dimension',65535,65535,65535); SetClPenFore('Dimension',0,0,0); SetClPenBack('Dimension',65535,65535,65535); boolResult := SetClassBeginningMarker('Dimension',0,15,0.125,0,34,0.05); boolResult := SetClassEndMarker('Dimension',0,15,0.125,0,34,0.05); SetClFPat('Dimension',1); SetClLSN('Dimension',2); SetClLW('Dimension',2); SetCLDrpShadowData('Dimension',0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableCLDropShadow('Dimension',FALSE); SetClUseGraphic('Dimension',FALSE); classHandle := GetObject('Dimension'); {End of Class Entries} {Default Attributes} PenSize(2); PenPatN(2); FillPat(0); boolResult := SetDefaultBeginningMarker(0,15,0.125,0,34,0.05,FALSE); boolResult := SetDefaultEndMarker(0,15,0.125,0,34,0.05,FALSE); PenFore(0,0,0); PenBack(65535,65535,65535); FillFore(0,0,0); FillBack(65535,65535,65535); SetDocDrpShadwByCls(True); {End of Default Attributes} END; Run(LoadFile);