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.1(512839)} {Global Characteristics} DrwSize(1,1); SetUnits(0,2,0,25.399999999999999,'mm',' sq mm'); PrimaryUnits(0,2,2,2,6,FALSE,FALSE); SecondaryUnits(1,3,1,TRUE,TRUE); SetPrefLongInt(162,2); SetPrefLongInt(169,2); 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(1000); PenGrid(10); 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} {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('Top of Slab'); IF tempHandle = nil THEN boolResult := CreateLayerLevelType('Top of Slab'); tempHandle := GetObject('Top of Parapet (Layerless)'); IF tempHandle = nil THEN boolResult := CreateLayerLevelType('Top of Parapet (Layerless)'); tempHandle := GetObject('Top of Footing'); IF tempHandle = nil THEN boolResult := CreateLayerLevelType('Top of Footing'); tempHandle := GetObject('Ledge (Layerless)'); IF tempHandle = nil THEN boolResult := CreateLayerLevelType('Ledge (Layerless)'); tempHandle := GetObject('Finish Floor'); IF tempHandle = nil THEN boolResult := CreateLayerLevelType('Finish Floor'); tempHandle := GetObject('Bottom of Slab (Layerless)'); IF tempHandle = nil THEN boolResult := CreateLayerLevelType('Bottom of Slab (Layerless)'); 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(50); ShowLayer; CopyMode(8); LFillFore(0,0,0); LFillBack(65535,65535,65535); LPenFore(0,0,0); LPenBack(65535,65535,65535); Projection(6,0,247.903999999999968,-135.46666666666664,135.46666666666664,135.46666666666664,-135.46666666666664); {End of Layer Characteristics} {Object Creation Code} NameClass('None'); BeginGroup; ClosePoly; PenSize(7); PenPatN(2); FillPat(0); PenFore(65535,0,65535); 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(-80.018983070500937,-15.846209995361784); LineTo(32.042612476808912,-15.408469387755105); LineTo(33.443382421150282,-119.503185876623405); Add2DVertex(2.104800861451263,-136.337228354570414,4,11084.037512610695558); LineTo(-31.779968112244905,-147.168392277365513); Add2DVertex(-54.552589816225627,-149.70947234852315,4,5703.756265249036915); LineTo(-77.304991303339534,-146.993296034322839); Add2DVertex(-101.666437590525248,-137.157695574231212,4,6443.500946046817262); LineTo(-123.092658858998163,-121.954533279220797); Add2DVertex(-128.656021878272952,-116.794174039093647,4,6172.199245106548005); LineTo(-133.843568181818199,-111.256152829313564); Add2DVertex(-115.090052265461239,-102.218833818544908,4,8184.283175112024765); LineTo(-97.843780612244913,-90.559776901669778); Add2DVertex(-86.213832087687507,-77.95503828084702,4,2607.922836746228768); LineTo(-80.054002319109472,-61.949050788497232); Add2DVertex(-78.962649536281347,-43.560150895425984,4,12770.4985981361624); LineTo(-79.388636595547325,-25.143820500927649); Add2DVertex(-79.646118255730002,-20.491103954768992,4,10723.243159512176135); 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); PenFore(65535,0,0); MoveTo(-79.25707505461726,-27.357106354244983); LineTo(32.199096412569148,-27.037181863937732); objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); objectHandle := LNewObj; SetObjectVariableBoolean(objectHandle, 1160, FALSE); FillPat(1); BeginPoly; MoveTo(26.574999999999999,-115.194999999999993); Add2DVertex(13.98133912713277,-123.289040045012825,4,151.426026003979189); LineTo(0.65,-130.099999999999994); Add2DVertex(-13.392478551635293,-135.836511342323291,4,147.454832281123174); LineTo(-27.950000000000003,-140.099999999999994); Add2DVertex(-38.920835822336507,-142.23040581789337,4,111.313354607653778); LineTo(-50.050000000000011,-143.25); Add2DVertex(-64.712216122642303,-142.838496389629427,4,98.307919363771063); LineTo(-79.150000000000006,-140.25); Add2DVertex(-96.748276221247323,-133.434373800168402,4,97.308420397288927); LineTo(-112.700000000000003,-123.349999999999994); Add2DVertex(-118.337000604491479,-118.47205595073936,4,213.170870971763577); LineTo(-123.800000000000011,-113.400000000000006); Add2DVertex(-106.36781645784481,-106.492573572063947,4,73.517579902205597); LineTo(-91.25,-95.400000000000006); Add2DVertex(-79.413235559550941,-80.315323868905665,4,65.524265394208726); LineTo(-72.450000000000003,-62.449999999999989); Add2DVertex(-70.377040823003256,-48.874605666051202,4,73.947945371664133); LineTo(-70.850000000000009,-35.149999999999999); Add2DVertex(-71.349286322585101,-31.198184501677083,4,32.475325636965884); LineTo(-72.328610979495252,-27.337218847715135); MoveTo(26.30483290096312,-27.054100794714408); EndPoly; SetVertexVisibility(LNewObj,20,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); EndGroup; objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); BeginGroup; FillPat(0); PenFore(65535,0,65535); FillBack(65535,0,65535); BeginPoly; MoveTo(88.000000000000909,-36.815332695789685); LineTo(206.171541681724193,-36.865332695788958); LineTo(204,-189.215332695789357); Add2DVertex(171.367451102503765,-206.34966721783141,4,169.287414009041726); LineTo(135.800000000000182,-216.01533269578951); Add2DVertex(104.842837446270096,-217.230336582814942,4,111.303953164119648); LineTo(74.749999999999091,-209.865332695789419); Add2DVertex(48.421865838228769,-195.368988968225239,4,122.887416859930099); LineTo(26.400000000000546,-174.915332695789601); Add2DVertex(43.829577452658675,-166.427698377212636,4,209.509412758394546); LineTo(60.399999999999643,-156.365332695789419); Add2DVertex(75.776969536720571,-142.652876929652138,4,59.447885595042493); LineTo(85.550000000000182,-124.51533269578951); Add2DVertex(87.366265524570736,-116.932328054414228,4,40.316162764648325); LineTo(87.49129314163838,-109.135845004869424); 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); PenFore(65535,0,0); BeginPoly; MoveTo(94.199999999999818,-46.615332695789419); LineTo(199.721472821094721,-46.550276394228788); LineTo(197.850000000000364,-185.26533269578951); Add2DVertex(167.44659032585696,-200.377449038664707,4,162.937414009028942); LineTo(134.81171242457367,-209.74271062298314); LineTo(134.740882577916636,-209.753870271469367); LineTo(134.670322786806537,-209.766626478179859); Add2DVertex(106.193922122431104,-210.467284367523661,4,104.953953164133026); LineTo(78.62003603082394,-203.320458352922486); Add2DVertex(56.425791108697013,-192.355834147336935,4,116.537416859921052); LineTo(36.935281561434749,-177.093870668769085); Add2DVertex(51.581228427856331,-171.313413757748748,4,215.85941275844101); LineTo(64.900000000000546,-162.915332695789601); Add2DVertex(80.034245994592311,-148.736373097634669,4,65.797885595054709); LineTo(91.050000000000182,-131.165332695789601); Add2DVertex(93.651984982431713,-121.203072519304186,4,42.017437108515374); LineTo(94.75,-110.965332695789328); 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); MoveTo(87.940763393049565,-45.236728420617247); LineTo(206.052218841220565,-45.236728420617247); objectHandle := LNewObj; SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0); EnableDropShadow(objectHandle, FALSE); objectHandle := LNewObj; SetObjectVariableBoolean(objectHandle, 1160, FALSE); MoveTo(94.352700899314186,-70.894775686668908); LineTo(199.765016931192804,-70.894775686668908); 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(1); 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);