аЯрЁБс>ўџ ўџџџiЬFџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_7џџџџџџџџџџџџ(z__SRP_a$џџџџ<0__SRP_1џџџџџџџџм__SRP_9џџџџџџџџџџџџЩа *\G{000204и30-C 0046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB# Aut€omation/‚>AecXA@rchBas€G€ A€CcXArchBPas‚MŸ€•#€‚MCF5O1-59F3-11D@2-9B3EˆM00}#3…MProgram Files\CommonKdesk €Shared\‰H30.tlb#AEC Ritec@tural , Obj Lib0rary€Kю€!hhd’@ˆР28B589BB-4F0B02A7F1260B0572ACњ823Y,2A!1Р.3д.ŠС.SchXeduˆ dS‚ceU‹u‹šР0Ф1C37B7293-F1ACФ18880C7D6CCќA4ї1E$Ш2…и3‚аi˜UI‡˜Р+…˜UдI™І@œРAg842B17BD -8A01C59C~4O5„РlgчшMA`pplicBg­M р 6sX!;>[СRoot EntryџџџџџџџџpRЋ…#˜ТРХVBA_Projectџџџџ(ьЎЋх–ТpRЋ…#˜ТVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ rАЋх–Т@љБЋх–Т> §џџџ#  ; !"$3%&'()*+,-./0124p56789:P<=?D@ABCE~FGHIJKLMNOSQReTUVWXYd\]^_`abcўџџџhfgkўџџџ§џџџlqmnouиrstwvxzy{ƒ|}‡€ўџџџ ўџџџ$ !"#$%&'()*+,-./51234ўџџџ6ўџџџ89:;<=>?@ABCDEFGHIJKTM1OPўџџџRS8UVWXYZ[\]^_`abcdўџџџfghijklmzop'rstuvwxy.{|}~€acadID="{2DDDEEDF-BD3A-4AEA-AABA-F89185E85F54}" Document=ThisDrawing/&H00000000 Module=Drawing Module=Layer Module=Display Module=Object Module=Styles Module=Structural Module=Schedules Module=ObjectDBX Module=Office Module=Test Module=Tools Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frmBuilding Name="ADT_VBA_Primer" HelpContextID="0" VersionCompatible32="393222000" CMG="A3A1CD4C1450145014501450" DPB="E6E488118817CAPROJECTwmџџџџџџџџџџџџIPROJECTџџџџрThisDrawing џџџџADrawingџџџџџџџџџџџџQr18CA18CA" GC="292B479848984867" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 649, 416, Drawing=0, 0, 891, 416, Layer=22, 22, 913, 438, Display=44, 44, 935, 460, Object=66, 66, 957, 482, Styles=88, 88, 979, 504, Z Structural=110, 110, 1001, 526, Schedules=132, 132, 1023, 548, ObjectDBX=154, 154, 1045, 570, Office=176, 176, 1067, 592, Test=198, 198, 1089, 614, Tools=110, 110, 810, 526, frmBuilding=132, 132, 853, 548, , 88, 88, 809, 504, 70, ctObjectStyleThisDrawingThisDrawingDrawingDrawingLayerLayerDisplayDisplayObjectObjectStylerU€€€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~+ьЖ€0* pH‚dфADT_VBA_€PrimerDЈ@  = Vz ‡@Ы6? J<  rstdole>stdole( f%\Layer џџџџ#џџџџ1ћ0Displayџџџџж Object џџџџJ8Stylesџџџџџџџџџџџџп5-Structuralџџџџ-џџџџЗsSchedules џџџџЏїEObjectDBXџџџџџџџџџџџџeЛOfficeџџџџ џџџџ“щTest  џџџџ7| _VBA_PROJECTџџџџџџџџџџџџќMdirџџџџџџџџџџџџ№__SRP_6 џџџџ*^ТMs hN‰р`AF3FA03€62-D3EBA@3-A214NC04FA137C E51Nc:\pa"g~1\c‚fa9ydeЉ2trufd1єL™Exc el>  EŠx@Ke€J “рЁ!`Œ20813—@@c!Ž-№1.RcMicrosoft Office 2k\#\EXРCEL9.O“ЇЁт 9.0tMSForms>AbГMSFрІr”mр“3 ЂD452EE1-E08F-101A-8-02608C4D0BBaЕІFM20.DиLL#'b ,ш/;`1`„%!$AS…%"&‚„}#0MЂ#`@œ0aa%•F87792€ 349E-4€46C-9D2`}E948B48143BШСDOCUMEРDJOHNW~1.JAN\L OCALS€Te€mp\VBE\d*0.exdЄЌс.E р….@`ŒM Дщ‚baXDB15@ВeaXD Ш15@Lib м‘ ‡`&6D4`“0E5-7@_У{B6 @Щ00Џ87E2 35}#1‚&D:\Ы{Ч+vDesk€top 3\A‚†.рbХDBX €   Type›<b rt– ThisDrawingG+№piа&DАqa‚w ngЭŽ2ЯЦёOHРЈ1B‚mр8’EA,(~"+ѕR‚"d•aU‘$Є 2т1 _іb]є!ZqBL ayerGrBL€кyаMrІ2ЌŸf@ :К›т iРsplayGф qтp0Iay№ѕ › _Ћ]R[ЋЁ˜S„GТO*jт[Жt з2оџє€@‰§*7џsty UѓS Ÿy e %=‚ЁSвѓйџ­(Yџ€ћС]SaGŒаQru_jtPr lА›2гŸ/lžрГ}œUЄ{‘Aх‚sGRrmЭŒs@j2os™ЎPИЧЗп“0@Щ1JXf7o?У€›@[Џв$’pЕ&fРОi‚wŸГгqЕ&зџXП ќІћ`testtGБTВQ-qTmprU€€€ џџџџџџџџ€$`Эџџџџџџџџџџ$A`бџџџџџџџџџџ$`дџџџџџџџџ$С`иџџџџџџџџ$`мџџџџџџџџ$A`р џџџџџџџџnџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ2z?Ё€Д= †M;A@Tool0§$TаxqЬБІѓAЇЩŸОп ,4›бXfrmBuildUжXf@)mаeupXlљ`БiзXШгXЯСЭпѕp^}*MгX 743Y‘ХљЁЫE.5i*E› Ц№”д(џџџџ››t–MџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџ<џџ< џџ<џџ<џџ<џџ<<џџ<џџџџ<џџ< џџ<$џџ<(џџ<,џџ<0џџ<4џџ<8џџџџXр |џџџџ`џџџџџџџџџџџџ|џ@џџџџџџџџџџ „`„Œџџџџxџџџџџ ƒzџџџџџџˆџџџџџџџџџџџџџџ%џџџџhџџџџа№(џџџџX№џџџџ№`„Аџџџџtџџџџџ џџџџ@@X@„~џџџџdџџџ џџ џџџџИџџџџpџџџџˆџџџџ0Аџџџџјџџџџ˜џџџџџџџџ€џџџџˆџџџџh`џџџџЈH@џџџџџџ(џџџџрџџџџhhрџџџџ€џџџџјP8`џџџџџџџџџџџџџџџџџџџџџџџџ„џџџџРџџџџxџџџџ џџpџџџџ``џџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ џџџџhџџџџџџџџ@џџџџџџџџpџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 0 ќЦи  и”lCtџ.hџlџ$ lџ llhџ=D™`§џџџџџџџџџџџЁЙi=)=)$С`§џџџџџџџџџџџЬamџ  ф њ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#D:\Program Files\Autodesk Architectural Desktop 3\ACAD.TLB#AutoCAD 2000 Type LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB#OLE Automation**\G{0CF50021-59F3-11D2-9B3E-000000000000}#3.0#0#C:\Program Files\Common Files\Autodesk Shared\AecXArchBase30.tlb#AEC Architectural 3.0 Object Library*\G{08B589BB-4F00-11D2-A7F1-0060B0572AC8}#3.3#0#C:\Program Files\Common Files\Autodesk Shared\AecXBase30.tlb#AEC Base 3.3 Object Library *\G{C37B7293-F1AC-11D2-A880-0080C7D6CCA4}#3.3#0#C:\Program Files\Common Files\Autodesk Shared\AecXSchedule30.tlb#AEC Schedule 3.3 Object Library8*\G{842B17BD-8A01-11D2-9C40-0080C7D6CCA4}#3.0#0#C:\Program Files\Common Files\Autodesk Shared\AecXUIArchBase30.tlb#AEC Architectural 3.0 Application Libraryў*\G{F3FA0362-D3EB-11D3-A214-00C04FA137CE}#3.1#0#c:\progra~1\common~1\autode~1\AecsXBase30.tlb#AEC Structural 3.1 Object Library*\G{00020813-0000-0000-C000-000000000046}#1.3#0#C:\Program Files\Microsoft Office 2k\Office\EXCEL9.OLB#Microsoft Excel 9.0 Object Libraryк*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{F8779200-349E-446C-9D2C-1E948B48143B}#2.0#0#C:\DOCUME~1\JOHNW~1.JAN\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д*\G{6D4C7DE5-704F-11D2-B6D2-0060B087E235}#1.0#0#D:\Program Files\Autodesk Architectural Desktop 3\AXDB15.TLB#ObjectDBX 1.0 Type Library  Њџџџџџџџџ‡Ы6?џџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџt– ThisDrawing?63f36cb87џџThisDrawingџџ(~mџџDrawing?73f36cb87џџDrawingџџєіџџ Layer?83f36cb87џџ@ Layerџџ:К0+џџDisplay?93f36cb87џџBDisplayџџRHЋџџ Object?:3f36cb87џџ Objectџџ*7`є1џџ Styles?;3f36cb87џџD Stylesџџ€x­(џџStructural?<3f36cb87џџFStructuralџџUЄžџџSchedules?53f36cb87џџHSchedulesџџЧЗЈЎ=џџObjectDBX?43f36cb6dџџJObjectDBXџџ@[РУ Office?=3f36cb87џџL OfficeџџќІиXџџTest?>3f36cb87џџzTestџџM№Ёџџ Tools?33f369ef8џџF Toolsџџ,4ОџџfrmBuilding??3f36cb87џџ“frmBuildingџџ*M0ѕџџџџџџXџџџџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‹‰пЋ2>uA—н™ћ`ЉЫКџџџџД+"(ЧцGЕGэіђcGщџџџџ{‘t^єj|H‰ДO тЌџџџџ|оз“яиN“ЕSёр8Ієџџџџ>~јmPљЋH•їN…˜ЏАџџџџ,1к}Э GИЌЎ{4eфџџџџп:ИнцћEB™TЙњALџџџџёікKZЩ?@Ÿ_ЉіСГ!”џџџџ›х†sа)ЛD›ЗрtŸœœџџџџхE*Ц|‘вCАаfŒЩkнЫџџџџ;BеъЯKL™už…€—шџџџџџџџџ№Ш†jiв*џDЏрФ{GBŸџџџџџџџџ№е1œ.N›ЁBВYџџџџџџџџџџџџH€Ыјџ– €џAs€џByVal€џCase=€џDim@€џdoC€џEachD€џelseG€џEndH€џendifO€џ ExitQ€џfnН),б`§џџџџџџџџџџџ,™ `§џџџџџџџџџџџ‰™/$С `§џџџџџџџџџџџ4щ `§џџџџџџџџџџџЁ‰=, `§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜иx\џџџ џџ џџџџ@ўџXџџџ џџ џџџџ@ўџTџџO џџ РЖ”`А‡иPџџџџџ \џџџџojeџџџџШџџџџаџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ €€ џџџџ" €h 8HЈˆИ и€ џџџџџџџџЭџџx–oџџh @!”'~kџџџџHџџџџЌ$~'Œer Œ @%’'~) џџџџР]ђ@ђађ'џџџџэ Œ А @%Š.~џџџџЈЌ$~'Аye Œ А @%а'~џџџџџ˜ @!t'~rKeyџџџџРџџџџPџџџџXџџџџрџџџџ(џџџџрџџџџзАAttribute VB_Name = "Test" Option Explicit Sub ttLyr@s() Dim lyrKe@yStyleˆAs SАng, WT4 *vvvмLayer.GetFs X= vЬ(0x`џџџџџџџџџџџџ@џ@џџџџџџџџџџ„џџџџxЈxџџџџџ%и Єwџџџџ`џџџаxџ%hџџџ џџiƒŠџџџџ џџџџШ„+tx`џџџџџџџџџџџџXџ@P џџ„iƒHџџџџ џџџџџџџџ€џџџџџџџџ(џџџџpџџ‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™Ё›œ)žŸ ЮЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБВГДЕЖўџџџИЙКЛМНОПРСТЬФХЦЧШBЪЫ[ЭЮЯабвгдеўџџџзийклмноћрстуфхNчшщъыьэюя№ёђѓєѕіїјљњйќ§ўџџџx ‚џџџџ`џџџџџџџџџџџџtџ№џџџџџџ,„iƒHџџџџџџџџџџџџ„џџџџ`„xџџџџџџџџџџџџџџ  иP@ˆxxџџџџи0lџџџ џџиdџџџ џџ и Єwџџџџhџџџ %`„Šџџџџxџџџџџ€џџџџ`„Hџџџџtџџџџџ€џџџџ`„Šџџџџxџџџџџ€€`„Hџџџџtџџџџџ€и`„Šџџџџxџџџџџ€P`„Hџџџџtџџџџџ€и`„Šџџџџxџџџџџ€ `„Hџџџџtџџџџџ€и`„Šџџџџxџџџџџ€№`„Hџџџџtџџџџџ€и`„Šџџџџxџџџџџ€Р`„Hџџџџtџџџџџ€и`„Šџџџџxџџџџџ€`„Hџџџџtџџџџџ€џџџџp`џџџџџ `„bџџџџdџџџxџџџџ€џџџџ`„jџџџџ`џџџџџџџџџШ „џџџџ\џџџ€џџџџџџџџ+ˆ`џџџџџџџџџџџџ,џ@И џџџџŒiƒHџџџџџџџџџџџџ€џџџџџџџџ€ @џџџџџџџџџџџџџџџџџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ+€" Npx€ џџџџB h"€ˆ€ џџџџ$  *$И@ш Ај 0p€ џџџџB x€Ј€ џџџџ ˆ Ш€ џџџџ! # 8 ˜ Аа Hƒ  ˜€€ џџџџ"  P€`&иBPhXџџџџШЭџџxџџџџp–@Ж REGSVR32 /s Ќ"$ B Ж AXDB15.DLLЗ F%@rU€€€ џџџџџџџџ$ `§џџџџџџџџџџџ$Љ `§џџџџџџџџџџџ(б `§џџџџџџџџџџџ‰4љ `§џџџrU€€€€~|  Љ q ( ™Љ™qСЉ 1i Q& %)!!љ Ё%Љб Ќ"$ B ЌA@DdS–ioџџhџџџџx]ђИ H vB@ М!ТЌœk М!Т­ћПџœр.Invalid filenameџџ H vB@kџџјэ v.ton dbxџџџџј H$~ЖœџџџџџџkџџџџџџA@>џџџџP–ˆoџџ@]ђш x B@j|–xiШэ H$t.v b'эА.v]ђ`ђ№ђ8ђXd fileЌ'jk HЖ\аЌ$VЖ/$l'xџ Œў v!Ž“ЌŽЖModel Œ!ЌŽЌœЮ jс@bџЧЖ(command "._Layout" "_T" " xЖ" " ŠЖ") 'x)  Œ! j+bџџ jЌ 'jџџџџxџџџџєВAttribute VB_Name = "ObjectDBX" Option Explicit Sub re‚gŒ() Shell "REGSVR32 /s " + C€hr$(34)Tools.findfile("AXDB15.DLL", True$/, 0 End o Func‰dbxOpen(fn As SОng) NLib.AxDbDocum enАœIf Dir3) <> €"" ThenЗDim dwgТX#New %ѕ.B )‡#‡8Err.Numbter90 9#-2147467259 'Inv alid ˜nЯџ‡0 ‰Х•TЎ IfЧ ЭSet џD[@…AУ Х С…eŠhListLayouС@HUjVar iaEfЃ^, Lst(), cntALong, lТyСAcadCƒ'wC/t=Х0‡j=С—AAƒ For EHachСInƒ.=s Рk€1Comp("Mode"lР­ly.Э, &1‚–‘yRe9PrРeserveB2@ џ„ЭССС7A@Z„ЧСР€A+ 1‡cХbNex„Л?NРothingC f/€ƒlЩ8S|Impord8(ByVœal#Тƒfn, уЧъpУ СcmdыCХ= Join( S Št3, "\g€)Ё(@/"„#Ї"@(commaр""._#3Рx""_BTТ" & Ѕ&5|"b&ЅB) р™%ThisDrawр".Send :B шŽ"._#3№tдиџџџџ|˜t–UЄџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP<џџ<џџZ<џџ<џџ< џџ<џџ<џџ<џџџџџџџџџџƒFџџџџџџ0џџџџџџџџџџџџџџ%џџџџ@+Tџџџџ`џџџџџџџџџџџџxџ€Рџџџџ„iƒ џџџџ џџ џџ €џџџџiƒџџџџџџ џџџџџџ€џџџџ%џџџџАџџџџШџџџџаџџџџиџџџџрџџџџшџџџџ№џџџџјџџџџrU€€€ Ibщqbџџџџ™49iaџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџV`Љ#!бЙ!Щљ! Љ"б"Q Y#rU€€€ џџџџџџџџ@n§џџџџџџџџџџџ‘a//0Љ`§џџџџџџџџџџџСЁ/0б`§џџџџџџ@џџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€€ џџџџB "0  X€ џџџџџџџџpЭџџxџџџџp–@iџџ  T(.эЖ AecsMember !%.T  T(L8џџџџџџџџбАAttribute VB_Name = "Structural" Option Explicit FuncPAddMember(sp As VarianPt, e )4AˆecsV 0Set |tThisDrawing.ModelS pace."CustomObject("G")IE.StartPointPsp hEnde ЩjPt, e )4Aˆe№єд(џџџџ§Ѕt–RџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <$џџ<и<џџк<џџ< џџ<џџ<џџ<џџ<џџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџ€@%ƒrU€€€ џџџџџџџџ,`§џџџџџџџџџџџIН),Љ`§џџџџџџџџџџџIН),б`§џџџџџџџџџџџIН),љ`§џџџџџџџџџџџIН),!`§џџџџџџџџџџџIН),I`§џџџџџџџџџџџIН)@q` §џџџџџџџџџџџЁЙi=)=)rU€€€€~|  Љ 1щ2™Y4 43Љб бCс? DЉ)!i N95IAN7y60и €ќcћв-Xџ$ 0lXџ=dџXџH€=[Xџdџ$ tXџ ѕq`џ!Xџdџ$ | QXџ[TџhџўˆPџ Сѕl`џ\џў€Lџhџ XlLџl`џl\џ;/Lџl`џѕЊq`џ hџў‹Pџ ul\џM<џ §lџ§• @иD*lџTџPџhџ\џdџLџXџ0и €ќcћв-Xџ$ 0lXџ=dџXџH€=[Xџdџ$ tXџ ѕq`џ!Xџdџ$ œQXџ[TџhџўˆPџСѕl`џ\џў€Lџhџ XlLџl`џl\џ;/Lџl`џѕЊq`џ hџў‹Pџul\џM<џ §lџ§•r @иD*lџTџPџhџ\џatdџeLџXџ0и €ќcћв-Xџ$ 0lXџ=dџXџH€=[Xџdџ$ tXџ ѕq`џ!Xџdџ$ ˜QXџ[TџhџўˆPџ Сѕl`џ\џў€Lџhџ XlLџl`џl\џ;/Lџl`џѕЊq`џ hџў‹Pџ ul\џM<џ §lџ§• @иD*lџTџPџhџ\џ     %ўџџџ& !"#Ж96'/)‚+,-.м0`23ўџџџ5ўџџџ7cA:;ўџџџ=>?@CDEFGHIJKLMNOPQRSTUVWXYZŠ\]^_eabdЯ…fghijklmnopqrstuvwxyz{|}~€dџLџXџ0и €ќcћв-Xџ$ 0lXџ=dџXџH€=[Xџdџ$ tXџ ѕq`џ!Xџdџ$  QXџ[TџhџўˆPџ Сѕl`џ\џў€Lџhџ XBџџџџџџ0џџџџџџџџџџџџџџ %џџџџ@+џџџџ`џџџџџџџџџџџџ`џџџџџџ ŒИ@€A\ „єџџџџџџџџџџџџ+@`џџџџџџџџџџџџџџџџџџџџџџ Œ%џџџџPџџџџџџџџџџџџџџџџ€џџџџџџ Œшшшџџџџ )ƒџџџџџџџџјџџџџ€џџџџ@„мџџџџџџџџ џџџџџџ@„оџџџџџџџџ џџџџџџ`„ўџџџџџџџџџџџџџџ „цџџџџџџџџрџџџџ%џџџџџџџџшџџџџ№џџџџјџџџџџџџџџџџџџџџџџџџџ џџџџ(џџџџ0Иџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€€ џџџџB€ (8P0X ˆЈА€ џџџџB И€Риј€   8HPџџџџ`Эџџxџџџџpџџџџ–И]ђ  !і јœ !њ$'&nbdџџИэЖAEC_DISP_REP_CONFIGURATIONS %ќ.є єА›G є$'jkџџ`iџџX–@]ђ€ђ˜ђА</ЖAECBASE о м B@р м$т фœB]ђШэЌ$м %ш.цР ц џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ!' kџџАiџџЈџџџџ€џџџџвБAttribute VB_Name = "Display" Option Explicit @ FuncPGet Control|() As SЈng Dim dic‚t.AcadDІary>If ThisDraw ing.A\veSpacŠacPaperThe>n3W~Н fig•aPView port))ElDse.SetZ= N†]ies("AEC_DISP_REP_CONFIGURATIO8NS"„*TpNoˆt (‚Is Šh€t)€,en *c!…Wnd If  E€ЩЯPrivaчг…‡Obj>eЩCNn/AoxDat, xDty№, vpr x CJ.3X a СFB№ASE"Х С‡W€DVarType() <> vbрEmptyBEG Х јobjУ‹Сk‹kHandleTЦoC ‚(2)ˆfAя `ФG€‘@.ŽЧAZO\*c!…Wnd If  E€ЩЯPrivaчг…‡Obj>eЩCNn/AoxDat, xDty№, мфˆ уgt–(~џџ#ˆЖџџџџџџџџџџџџПV \лNˆ.0U/ййuŽ!=в…Ф  Ц&йЈAmFІсч˜ЂНТџџџџџџџџџџџџxџџMEџџџџџџџџџџ @(xџtџpџ€D+hџlџ$ 0lџ |lhџ=pџ)lџhџ`џpџ Ho`џttџD(pџlџhџ0 ќЦ@  0 ќЦР  0 ќЦ   x<+pџtџsStylesStructuralStructuralSchedulesSchџџџџџџџџџџџџџџџџџџ !Б spпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџrU€€€ џџџџџџџџ$`§џџџџџџџџџџџ(Љ`§џџџџџџџџџџџёrU€€€€~| џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  9ќЦP  „Dl Cxџ+lџpџ $ 0 pџ |llџ= tџ)pџlџ lxџtџ t Dџџџџџџџџџџ SLџџџџSџџџџS”џџџџ<џџ< џџR€џFalseT€џForY€џFunctionZ€џget^€џGoTo_€џIfb€џInk€џIss„џlinex€џLongy€џloop{€џMe…€џNot†€џNothing‡€џnullˆ„џObject‰€џOnŒ€џoptional€џOr€џPreserve’€џPrivate”„џpSet›€џReDim€џResumeЄ€џSetЏ€џSubВ€џThenГ€џToД€џTrueЖ€џTypeOfЗ€џUBoundЛ€џUntilМ€џVariantAutoCAD"јVBAїтWin16С~Win32MacГВVBA6­#Project1 stdole“` ACADProjectІд ThisDrawingЙ5 €џ_Evaluateй AcadDocumentZModule1bdrawing<0GetDrawingScale"dbPrefтAecArchBaseDatabasePreferences‡rAecArchBaseApplication1i€џActiveDocumentг\ €џPreferences– DatabaseScalexвSetDrawingScalejsclг GetAnnoScaleLЋ €џTextHeight_њ SetAnnoScaleU` GetFacetDevЌFacetDeviationыш SetFacetDevU€dev9ƒ SaveAsDefё SaveAsDefault+ „џLayerКЦDisplaystyles p StructuralRж Schedules ObjectDBXЇOfficeuGetLayerKeyStyleList„МdwgŸ…dbы\AecBaseDatabase•ѕ LyrKeyStyleuйAecLayerKeyStyleЈv IsMissing˜э€џInit\[LayerKeyStylesmЪ ListBoxFormжБLstАAddItem‡ „џkeysqИ €џ_B_var_keysžcnt+ €џ_B_var_redim•ВGetLayerStandard2‹ LayerStandard@RSetLayerStandard„ŠLyrStd’9 GetLayerFile№__SRP_8џџџџУˆ __SRP_bџџџџџџџџџџџџтh__SRP_0џџџџџџџџ o:__SRP_cџџџџ2 LayerFileч–test4ЋtestLyrs[Кvm€џLayers‚й €џ_B_var_LayersьS AecXArchBaseДAecXBaset• AecXSchedule[ GetLayerKey гlyrKeyStyleNameЏglKeyз› €џAecLayerKeyЩЋ GetLayerKeysiИGetLayerKeyStylesmф„џkeyЇЈ €џ_B_var_KeyИeredumd№ €џ_B_var_redumQД€џ_B_var_GetLayerKeyStyleListPItemзz€џ_B_var_GetLayerKeyьДGetLayerKeyLayerпškNameжд€џ_B_var_LyrKeyStyleNameBQlyrKetStyleNamenLyrKeyА €џ_B_var_vЂ LyrKeyNameL} €џAecLayerKeysёa €џ_B_var_Set€џ_B_var_Function™OcrtLayerFromKey% std‰еErroŠClearуЭ €џGenerateLayerє NumberЃ- €џ_B_var_IfPђ €џ_B_var_On6ѓerrCheck†П€џUtility1J€џPromptmvbCrLfЏЌCreateLayerFromKeyљvAcadDocument_ObjectModified!† €џAcadPViewportТ*aecDisplayCfgNameП€џAcadDictionaryЮ €џAcadObjectЅxDatјЙxDtyИМ€џGetXData—VarTypeЏpvbEmptyЫœobj‘Н€џHandleToObject"…MsgBox—RCurrentDisplayCfgNameO$€џObjectModifiedЧ!€џ_B_var_aecDisplayCfgNameљgetDisplayCtrlS%dictlc €џActiveSpaceжe €џacPaperSpacen1€џActivePViewport%* €џDictionaries|svptхGetDisplayControlSettingDУGetDisplayCfgNameЄxGetDisplayControlNameКGetDisplayConfigNameђ0AddWall№Х €џ_B_var_SubН’sp$_ep]€џAecWall™J €џModelSpace_ж€џAddCustomObject“addpallО#€џ_B_var_addpallС €џStartPoint№ŒexnI‹€џEndPointдyaddAwall8Й€џGetPoint/А AddWindow%XipВ] €џAecWindowН AddDoorь*€џAecDoorдЏ€џLocation-рwl_wiŒ_drћ\ AddWinAssemy‹€џAecWindowAssemblyЄd AddOpeningS! €џAecOpening.ћws–_op^ AttachToWallљШ €џAecObject‡q„џdeltaўwAnchџS €џ_B_var_wAnchь€џAecAnchorEntToWallџ%anch- €џAecAnchorщД€џAecAnchorOpeningBaseToWallQ €џReferenceїe €џ_B_var_Select'Etypenameјѕ €џAttachAnchorзd[€џ_B_var_dЂ€џ_B_var_AecObjectKkExample_Referenceє`massџ-€џAecMassElement‘€џAcadLineeanchor#r€џAecAnchorEntToCurveќ pt1kХpt2lХ€џAddLine8!€џ_B_var_AecAnchorOpeningBaseToWallКFdiђ\ €џ_B_var_dišё€џUpdateвќ €џXPositionFromM€џaecCurvePositionStartZ0from~ aecs€џAecCurvePosition0 €џXD__SRP_dџџџџџџџџџџџџšd__SRP_e&џџџџЏь __SRP_fџџџџџџџџџџџџ­d__SRP_4!џџџџцЮistanceђ”datlaч2 €џ_B_var_datlaїIsArrayœ• €џYPositionFrom: addwindassm]€џ_B_var_addwindassmrN addwindassemъ €џ_B_var_addwindassemFDwldlфwsAnch+Л€џAecAnchorWinAssemblyToWallO AttachDoorToWallo`AttachWindowToWallЇAttachOpeningToWallфшAttachWinAssemToWall[ГMoveDoorAlongWallIїGetDoorAlongPositionп €џGetAnchorxLocЕц €џ_B_var_objЂzdisЪƒsjSetDoorAlongPosition3рGetDoorPositionFromYЧsunИе €џ_B_var_sunЩ’SetDoorPositionFrom9"€џaecCurvePositionEndF%€џaecCurvePositionMiddleсGetDoorWithinPositionŒм €џYDistanceч functiomnХSetDoorWithinPositionyxgetDoorPositionWithinл–€џAecCurveWidthPositiontЦGetDoorPositionнhSetDoorPositionжА XPositionžYGetDoorAlongPositionDist‘›SetDoorAlongPositionDistySetDoorWithinPositionDistАiGetDoorWithinPositionDistЯЂ€џaecCurveWidthPositionLeftbЁ€џ_B_var_GetDoorAlongPositionш2€џ_B_var_SetDoorAlongPosition€CGetDoorHeightPosition‘є€џAecCurveHeightPosition˜Ÿ €џZPositionFromяNSetDoorHeightPosition~getDoorHeightDist оSetDoorWithinDistа€GetDoorWithinDistyШSetDoorAlongDistПГGetDoorAlongDistmДobjectsхL€џ_B_var_objectsiP€џaecCurveHeightPositionBottom_ю €џZDistanceћXetDoorHeightDist5ЬSetDoorHeightDista–distМe GetDoorStyleЂQ„џStyleХp €џFrameWidthA_ €џFrameDepthBF€џaecCurveWidthPositionRightл GetWallStyles&SwStyleš €џAecWallStyleЭIAecArchBaseDocumentЊLstyšе €џ_B_var_styЋ’ €џ_B_var_forjL €џ_B_var_db“ёforeachРwa„_foreкachжr €џ_B_var_foreFve\ €џWallStyleshr€џAecArchBaseDatabaseˆw€џ_B_var_AecArchBaseApplicationљS€џ_B_var_AecArchBaseDatabase:ўAecXUIArchBaseј] GetDoorStylesАedStyleLѕ €џAecDoorStyleiћ €џDoorStylesђ„GetWindowStyles§L€џAecWindowStyleД €џWindowStylesR3GetWinAssemStyleso+€џAecWindowAssemblyStyle:˜€џWindowAssemblyStylesќ‰GetMemberStylesžУ AecsXBaseЙAecs-§€џAecsBaseDatabase|  €џMemberStylesѓЉ€џ_B_var_AecWindowAssemblyStyleƒ€џAecsMemberStyle8ž AddMember‚raas—rvarут €џAecsMemberРЩen]ddim†I €џ_B_var_ddimђЎmemQГ GetMemberType/ВsMem€џAecsMemberTypeKп€џObjectIDoМ€џOverrideSettingsPЄ€џ_B_var_crtLayerFromKeyїєCount0v€џ_B_var_OverrideSettingsJHGetLayerOverrideSettingsчЭgetCurrentLayerKeyECurrlKeyжHovr}Р€џAecLayerOverrideSettingулeaach^ €џ_B_var_cnt<<ov–^ €џ_B_var_ov>ѓ€џValueфKerrTrapРЛGetPropertSetDefinitionsJЁGetPropertDefs‡єpsdName„‚GetPropertyDef7pdNamel€џAecSchedulePropertyDefХЖCreatePropertySetDefinitionG@CreatePropertyDefЏ<AttachScheduleDatanеGetScheduleData<ОGetScheduleDataListЬn€џAecSchedulePropertySetЫGetScheduleDataItemyVpropNamej€џAecSchedulePropertyYAttachScheduleTagѕњmvbNameYы €џAecMVBlockRef–ёschг€џAecScheduleApplicationvFpsds/нpsdYХ€џAecSchedulePropertySetDefо=€џPropertySetDefsЊ’defsvN €џ_B_var_defsтГpNameZЎpDefpropjйpropSetH›GetPropertySetDefinitions)€GetPropertyDefs(b€џAecSchedulePropertySetDefs‹€џHas˜ €џPropertyDefs}HerroirAЮAddїrschedule•€џ_B_var_scheduleЃlGetDataFormatStyleskGetAppliestoList‚SetAppliestoListT €џAppliesTo Й €џ_B_var_uboundлdtmpый €џ_B_var_nullѓТIsNullЏФ €џ_B_var_AecSchedulePropertySetDefе €џ_B_var_EraseЧD€џ_B_var_AppliesToаВ€џ_B_var_AecScheduleApplicationН!dictsІ€џAcadDictionariesIœi`recЮ €џAecDictRecord­ €џPropertySetsСпaecschі‰propSetsа\€џAecSchedulePropertySetsЈм propdsetsЃq€џ_B_var_propdsetsшz€џ_B_var_propSetЬž €џProperties+€џAecAnchorTagToEnt1mvbЛЕ€џAecMaskBlockRef ptЙ^ €џGetEntityˆ €џStyleNameЮФ€џ_B_var_i ЂGetAllThatApplyEobjName.4ub`_€џ_B_var_AcadObjectGtpoYкL1^l2^ €џ_B_var_l2Ћђisnulд €џ_B_var_isnulё—PropS-appLstЛЕlstcntдJ €џ_B_var_lstcnt}ХiiЋ]appls*§ €џ_B_var_applsСge]]getpropertysetdefт regObjectDBXjЇfindfileў[ChrK~ShellVзTools6fnA] doProject ЪpthsуfNameRћ €џApplicationЅ*€џFileswX €џSupportPathЌЂSplit)€џPath2Trim@яRight  €џGetVariable~€џGetProjectFilePathдIsEmpty љ cmdStringШD cmdString1На _B_str_Chrm#€џ_B_var_cmdString1ш> _B_var_TrimmT _B_var_Midэp _B_var_LeftQс _B_var_Right9йdbxOpenЋdwgX‰Љ AXDB15LibБЎ AxDbDocument~LayoutTemplateˆ  AXAUTO15LibыЋaX€џ_B_var_AXDB15LibіЗdbxЬ‚openFileњя €џ_B_var_dbxн?€џ_B_var_regObjectDBXЦрoptiona•“AllMasterStylesы_sFnameдoAxDocІhoLayerKeyStyleщбadtDoc"ЪaecDbх7lStylesхR€џAecLayerKeyStyles›*lStyleНЊbDbNxbddPx €џ_B_var_bdda5bdvbx €џ_B_var_bdvs5ADT_VBA_PrimerСЛ €џDocumentsМAd~\€џ_B_var_AecArchBaseDocument\г CopyWallStyleXCopyWallStyleFrom›fDwgмжwsNameи< џџ<$џџ<џџ<џџ<(џџ<,џџ<ЁБ=(,Y`§џџџџџџџџџџџЁ =4`§џџџџџџџџџџџЁй=+nџџpџџџ џџ џџџџ˜8џџCH1Yџџџџb8БшыnдНФЄЛЎЏ`8ep !Щip !Й( ! 8 !Q HQ?x  ˆPoint1edulesObjectDBXObjectDBXOfficeOfficeTestTestToolsToolsfrmBuildingfrmBuildingџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџrU€€€€~|  Љ 1ЉY€D+hџlџ$ 0lџ |lhџ=pџ)lџhџ`џpџ 8o`џttџџD(pџlџhџ|@+pџtџ$ 0tџ |lpџ=xџ)tџpџ  xџ <Point2dwgNamekeyName љeQ?˜”X.pџtџ$ tџ llpџ=xџ)tџpџ§ `џ%xџ X§`џ%xџ `7D6 ,X(xџtџpџ0 ќЦј  €D.pџtџ$ tџ llpџ= xџ)tџpџ§ `џ%xџ и,D(xџtџpџ0 ќЦа €wObjki„џowner%Ž€џAcadModelSpaceѕ"wLstп[ €џ_B_var_wLstKС €џAcadEntityІiwmwls{ф €џCopyObjectsХwlLst0Ъ€џDeleteИxCopiedљ>sList= isInArray †arr uvalнтdListБwcListух €џ_B_var_wlLstŽcdwgУ…€џActivate—|€џ_B_var_AcadDocumentw“Example_ActivateMethod„ NewDrawing1) Newdrawing2*ImportWallStyleFromИ€џJustify`™€џaecWallJustificationBaselineУЁFromDwgyŽToDwgЭExcel€+xlsAppДxlsWb˜€џWorkbookkxls-я €џ _B_var_xls>ЌxlsWsЉ €џWorksheetСў GetObjectzУ€џ_DefaultjТitЖ] CreateObjectјŠxlsObj†жdidInit * €џWorkbooksBьWrite_To_ExcelН~data; €џWorksheetsМјmsgboѓ €џ _B_var_msgbo|ЗwriteitШzThe'йThA_TkvbYesNovbYesa?vbNoЇ%wndif$)€џSave’а€џSaveAsf;€џQuit9Ў„џrow‰Я €џ _B_var_LongЇcolH€џCells €џNumberFormatеRRead_From_ExcelWS €џ _B_var_do ёocol‘У €џ _B_var_ocolО(rDatЦ €џ _B_var_rDat2}cDatЧ‚ €џ _B_var_cDat3шGetLayerOverrideState虈џOverridesEnabled.еSetLayerOverrideStateХ5flag›ў UserForm1)жMSFormsCUserFormNTextBox1ІSLabel1,TextBox2ЇSLabel2Ž, ComboBox1'иLabel3, ComboBox2(иLabel4, ComboBox3)и ComboBox4*иLabel5‘,Label6’, ComboBox5+иLabel7“,TextBox3ЈSCommandButton1|дUserForm_Clickлј€џ ClickŠу txtMasterDwgжШtxtScaleT„cmbLayerЮ:cmbWall\оcmbDoorXC cmbWindoiwŠ~ cmbWindow3“cmbTagџ…cmdGo frmBuildingсmUserForm_Initialize5c €џ InitializeгN applocationIЉ€џ _B_var_applocationЋš€џList*“ MasterDwgсinitMasterDocumentМa getMvbStyles*€џAecMVBlockStyle“і €џMVBlockStylest8executeYЭ cmdGo_Click{—ss'_€џAcadSelectionSetЫЩ €џSelectionSetsг€џSelectOnScreenЛ thisdrawiung]€џ _B_var_thisdrawiungЙA€џDistanceToReal+€џacDefaultUnitsEДmd€џShowѕ €џListCount6 €џListIndexїQfmScrollAction! ReturnSingleоtUserForm_Scrollи=ActionXActionY RequestDx ў RequestDy ўActualDxпTActualDyмT€џ Scroll”UserForm_TerminatelD €џ TerminateyLtxtMasterDwg_ChangeХ—€џChangeЃЧtxtMasterDwg_AfterUpdateй‡ €џ AfterUpdateНФ€џFullNameаž €џ _B_var_fnщё initStylescmб\Mecm Adeg*ƒ €џ _B_var_deg;@ImportDoorStyleFromЩ_ImportWindowStyleFromFЩImportStyleFromO"tNameіsNamed„џln^ txtdroffset–!te>_€џ _B_var_AcadLine™< €џ _B_var_wsNameћ€џHide9zGetAlongPosition$ŽttM_GetAlongDistanceљиSetAlongPositionvSetAlongDistanceKи Adjusting €џ _B_var_Adjusting[)€џPositionнalongXс€џLengthYФos“^of†^withinЇ”GetWithinDistanceFђSetWithinDistanceКGetWithinPositionqЇSetWithinPositionIoGetHeightPositionvПSetHeightPositionN‡ getHeightDistЈу SetHeightDistє›getHeightDistance SetHeightDistance#в GetWithinDistЮLabel8”,Label9•, txtDoorOffsetь txtDoorSizeJ txtWinSizeХц txtWinOffsetP} €џHeadHeighty‰tg@_€џScaleXN€џScaleYN€џScaleZN getcentroidоЯll^urp_ €џAcadEllipseљg€џGetBoundingBox˜YDistanceБ'Point1§Point2ў__SRP_18џџџџџџџџџџџџ[Ъ__SRP_190џџџџ0"frmBuildingџџџџ4№i*ЦмЮž˜ЊWJOР2р'˜ТhЦ-#˜ТfџџџџџџџџџџџџOКrU€€€  +Ё(б#1ЉAсGaBЁFYL™‰Bљщ*Ёб3Љбљ€ M)MaMyЉЉqљ ™Q;‰MQ!СMБ бI9‰)Йб й L1Lё<YLџџџџсG8A= i=мммџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<A= >рррџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@>)A>ббб‚€`‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџD>)i>гггџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH‰>IБ>еееџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџL‰>Iб>зззџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP‰>Iщ>кккџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџT‰>I?йййџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX‰>I!?сссџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\A= 9?вввџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`Q?Щy?џџџџџџџџџџџџњџџџ`љџџџ`ЩIџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdA= a@дддџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ hy@‰Ё@тттЈ§џџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџlA= Й@жжжџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpA= б@иииџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџtA= щ@лллџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџlW—зW<Kџџ1ѕlџpџ pџ l>lџF\џ 1tџpџ5\џ ltџ ћ= Š4ќcћвУk'<џ%ќfLџ%X4 4+8џpџ$ ,pџ 0l8џ=xџ)pџ8џclџpџ pџ l0џcLџ%llџ4џ8џ$ ,8џ  4џ 0l0џ=[,џ§ˆ4/lџ) pџ8џ4џ0џ,џ xџ 0а,lџX4 Ьllџpџ pџ h/lџpџP<,tџxџ(lџpџ8џ4џ0џ,џ\џФ„84lџ lџ'(џ'Hџhџ Јhџ Ь hџ6Hџ(џlџ'$џhџ Јhџ є l$џѕлhџ (lџhџ Јhџ  hџ5lџ84lџ lџ'(џ'Hџhџ Дhџ Ь hџ6Hџ(џlџ'$џhџ Дhџ є l$џѕлhџ (lџhџ Дhџ  hџ5lџ84lџ lџ'(џ'Hџhџ Аhџ Ь hџ6Hџ(џlџ'$џhџ Аhџ є l$џѕлhџ (lџhџ Аhџ  hџ5lџX„$ hџlџHџ(џ0 ќЦ@  МpFtџxџ$ ,xџ Lltџ*#lџpџ pџ h2tџlџ)xџpџxџ ˜xџ hxџЬAќc=xџxџ\џ \џ'џ'<џpџ Фpџ Ь )xџpџ6<џџ\џ'џxџ Фxџ є lџѕлxџђ (\џxџ Фxџ  xџ5\џ2\џ \џ'џ'<џxџ  xџ Ь xџ6<џџ\џ'џxџ  xџ є lџѕлxџk (\џxџ  xџ  xџ5\џdp$( (tџlџxџpџ\џ<џџЄ@!tџ$ ФQtџ[pџxџўˆlџUhџxџ (lhџћ0/hџH xџ X xџў‹lџ#.dџtџ$ Фtџ ,ldџ=xџ)tџdџ'Dџ%'Tџ%xџ TOhџtџ ˜tџ l<џѕџџџџlhџdџ$ №dџ $o<џ§Щ4џ /hџ)tџdџ&hџtџ  tџ ” lhџ /hџtџ Lhџtџ Јtџ ” lhџV=dџdџ4 ldџ=§П/hџ)tџdџLhџtџ Аtџ ” lhџV=dџdџ4 ldџ=§П/hџ)tџdџLhџtџ Дtџ ” lhџV=dџdџ4 ldџ=§П/hџ)tџdџ$ѕ,џџxџ lџѕЎўdџ< l0џў 0 l0џ= (џ-џ(џ Ь №ў(џ д №ўџ !$џ6џ№ўѕ$џ $")hџtџ Јtџ ” lhџ$џ ќ"/hџtџџ(џ Ь џ # џ5џ $џ џ $ѕYџ џ %њ8@§Щ<џ џ &ѕYџ џџ ' 5џ2<џtџ џ (tџ t)єыo<џєыЖЏ§Щ4џ џ *tџ ,џfџџŒ@D,pџlџ0џxџ џџ$џ(џ hџtџdџџ№ў0 ќЦ   @`h`0э ќ! ќ! %.0 џџ!†!d 0Sqr(е €џPolarPointK€џAngleFromXAxisŒї€џImportiХ €џ _B_var_Importг?ImportLayerKeyQт €џSendCommandcњJoinM& vbTextCompare QdwgNameHžkeyNameуЭ _B_var_Chr\;keynlИcmdNameчдlyrFn$(lyrDwgчщ frmBuilding1о SetLayerFileЇД ImportLayoutj4 cmdDone_Clickt\lOutŠГ €џAcadLayoutˆ…lyNameжСly&^€џLayoutsОм ListLayoutDBXŸtstЭкwgxЧу €џџџ_B_var_wgxи џџ,x џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 0 ќЦ  0 ќЦа  0 ќЦX  0 ќЦ   0 ќЦ`  И`€=[dџxџ$ `dџ€ ќјdџdџMTџ @ 1Pџldџ= §/ >Pџ1Lџdџ lLџћ0… € = pџxџV=[dџpџ №dџ pџ ЄZ lLџћ0У € = tџxџV=[dџtџ №dџ tџ ЄZ lLџ!ћ0 € ="lџ€=[dџHџ$# `dџHџV#=[dџlџ №dџ lџ ЄZ lLџ$ћ0X € =%hџxџV=[dџhџ №dџ hџ ЄZw 4`@T(LџhџlџHџpџtџxџPџdџ?0 ќЦР   d,tџH ьltџ=&xџtџ €xџ p'~ ,(xџtџl4lџH ьllџ=&pџlџdџpџ d'odџttџrU4(pџlџd,tџH ьltџ=&xџtџ xџ h'џ ,(xџtџ0 ќЦ   d,tџH ьџџџџџСб/0љ`§џџџџџџџџџџџСё/0!`§џџџџџџџџџџџС/8I`§џџџџџџџџџџџ1A=б=a8q`§џџџџџџџџџџџQA=Ё=a8™`§џџџџџџџџџџџaџџџџџџџџџџџџџџџџџџџџџџџџџџџџX џџџџіџџ,џџџџџџ{ џџџџџџџџџџџџџџџџџџ„џџ†џџˆџџG (Њџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџA&C&E'GI)K*M +“ %џџџџџџџџџџџџHџџџџџџџџ-2ъ‚ўџџџ„”†ˆ‰Š‹ŒŽ‘’ўџџџ™•–—˜š›œЉžŸЧЁЂЃЄЅІЇЈСЊЋЌ­ЎўџџџАБВГДЕЖЗИЙКЛМНОПРТаУШХЦђЩЪЯЫЭ§џџџЮвйблгдежзкјымсноўџџџрюўуфхцчшщъўџџџьэФя№ёџѓєѕіїљ…њћќ§?Рфд Яяt–*MџџˆЖџџџџџџџџџџџџ№…ёє0„ЗG…ˆƒšлЊ ф;[ЦFЉ‘FЋ`ЕV—}HЕS$ЮнЪА O›!dmU(j0$№”ь=ŽH‚ѓMhњЎРјџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ0џџџџ џџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџ,џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SPџџџџSџџџџSџџџџSџџџџ<џџ<џџЎ<џџк<џџh<<џџ,<$(<0џџ<4џџ<8џџ<<џџ<џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626}ИШ€ўџџџџџџџ(џџџџџџџџџџdrwlwiopws i %џџџџƒўџџџџџџџ`џџџџџџџџџџџџџџ%‚ A==a8С`§џџџџџџџџџџџqA=ё=a8щ `§џџџџџџџџџџџЁA==a, `§џЌ<4џџ<8џџ<<џџ<џџџџџџš0{C65B3BE4-A946-4691-AB60-B556977D48B5}{DDCE2453-B0CA-4FA0-9B21-646D0855286A}p`€ўџ0џџ(џџџџџџџџџџ%ўџџџџџџџџџXџџ0џџџџџџџџ %0%0%€%аџџџџџџFi  `џџџџџџџџџџџџџџџџџџџџфџџ ” „рџџџџџџџџ№%`„Hџџџџџџџџџџ™бЮ шP`џџџџџџџџџџџџџџџџџџџџшџџ ” р`џџџџџџџџџџџџџџџџџџџџьџџ” ”№`џџџџџџџџџџџџџџџџџџџџ№џџ” „|џџџџџџџџшextW% Њ@`џџџџџџџџџџџџџџџџџџџџєџџAA” „ЌџџџџџџџџH %@„Дџџџџџџџџ џџџџџџ „цџџџџџџџџ€%`„єџџџџџџџџџџ „ќџџџџџџџџИР% „0џџџџџџџџи % „4џџџџџџџџј$% „2џџџџџџџџџџџџ(% „Fџџџџџџџџ8џџ,% иџџџџ`џџџџџџџџџџџџџџџџџџџџјџџ”"€ŸЈ4џџx@џџџџџџџџb€zџџџџ8џџџџ@џџџџџџџџџџџџ0P€@Јџџџџ˜џџџџџџџџџџџџјƒўџџџџџџџ`џџџџџџџџџџџџџџ‚ ’џџџџўџџџhџџўџџџџџџџџџџџџџџџ ˜џџџџџџџџџџџџџџџџ@џџџџџџџџ0џџџџџџџџџџџџ0œќфџџџџџџџџџџџџџџџџџџџџџџ џџџџпўЪ{€ џџџџ€€€€ џџџџ"€ 08 P`€" ИШаи№"ј( € џџџџH(h€ џџџџ(Аи"рш№€ џџџџ"јBH`xЈ€ џџџџР€ ‚ƒ„‡†‰ˆ™’‹ŒŽ‘ђ“”ЉЃ—˜ўš›œžŸ ЁЂўџџџўџџџЅІЇЈўџџџЊЋЌДЎ|АБВГЊиЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭаЩ–бвгдежзэцклмнопрстуфх4чш0ъыьюя№ёџѓєѕіїјљњћќ§ўџџџџџџџџџџџџџ1=б49 `§џџџџџџџџџџџ1Б=б(,a `§џџџџџџџџџџџ1 =б4‰ `§џџџџџџџџџџџ1Щ=б+,Б`§џџџџџџџџџџџ1 =б4й`§џџџџџџџџџџџ1Щ=б+,`§џџџџџџџџџџџ1=б4)`§џџџџџџџџџџџ1Б=б(,Q`§џџџџџџџџџџџ1=б4y`§џџџџџџџџџџџ1Б=б(,Ё`§џџџџџџџџџџџ1 =б4Щ`§џџџџџџџџџџџ1й=б+$ `§џџџџџџџџџџџn      z  d,tџH ьltџ='xџtџ €xџ p(l ,(xџtџl4lџH ьllџ='pџlџdџpџ d(odџttџ|84(pџlџd,tџH ьltџ='xџtџ xџ h(e ,(xџtџ0 ќЦ   d,tџH ьltџ='xџtџ xџ €( ,(xџtџ0 ќЦ@   l0dџH ьldџ='hџdџ €hџ ˆ(§•0,lџhџdџ0 ќЦ   d,tџH ьltџ='xџtџ €xџ  ( ,(xџtџ0 ќЦа  d,tџH ьltџџџџџўџџџџџўџџџџџџџџџџџ%џџџџ`џџџџXџџџџPџџџџH@8рџџџџt „ ='xџtџ xџ ˜( ,(xџџџџџШ(р€ џџџџ€  € џџџџ@(`€ џџџџ ˆ˜€ џџџџ"  Ј€ џџџџ€ИР&и  (€ џџџџ(8€ џџџџ`€ ˜€ џџџџ*Ј,и*€ џџџџ€8@€ џџџџ€,`   А€ џџџџ Р р №€ џџџџ    8 P h €   И€ џџџџ и№  . @ ` €€ џџџџ   И а ш  6 P h ˆ  € џџџџАИ Ра€ џџџџ"ир џџџџ Эџџx]@ђ€]@ђЈ–˜]tџр`/јў:џ%'џ%(џ$ №(џ \ џџ џџџџџџ„oџџџџ8џџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџltџ=&xџtџ xџ €' ,(xџtџ0 ќЦ@   l0dџH ьldџ=&hџdџ €hџ ˆ'§•џџ0,lџhџdџ0 ќЦ   d,tџH ьltџ=&xџtџ €xџ  ' ,(ђиђјsЩH џџ!€!d$~'Hk HЖœrs žА›GЗ žB@Bjэ P!$.рџџэ џџ!€!dЗ P!Ќ%.ž рB@тџџџџџџA@шkџџ( ž!ф џџ!€(doџџ– ž D%  џџ!†,œЈ џџ!†!РЌ ›GЌ џџ!†(Тj ž D%2 џџ!ˆ,œџџџџ џџ!ˆ!РЌ ›GЌ џџ!ˆ(Тj ž D%: џџ!Œ,œџџџџ џџ!Œ!РЌ ›GЌ џџ!Œ(Тjoџџ –PA@ oџџ– P!XЖ(\template\AEC Arch (Imperial - Intl).dwt џџ!€(dЖ96 џџ!‚(dЖ36 џџ!>(dЖ12 џџ!<(dЖ36 џџ!@(dЖ12 џџ!B(dA@  D!Ђ џџ!Ž,œ џџ!Ž!РЌ ›GЌ џџ!Ž(Тj]ђа @!v'zэ zЗ P!Ќ%.| | @%” џџ!„,œ џџ!„!РЌ ›GЌ џџ!„(ТjЗ |B@Boџџ`–№ џџB@]ђ0џ Ќў !А“ Ќ!ЖBuilding›G ЌB@ЮjџЧјэЖBuilding !А%вxџtџ0 ќЦа  d,tџH ьltџ=&xџtџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаР`„џџџџxџџџ џџ€џџџџXџџџџџџџџџџџџџџrU€€€ џџџџџџџџ@nLyrStdlyrKeyStyleName I!hkName 9xpsdName СQ.Ќ ЌB@Вџџ џџ!‚!d К !Ъ%И B@* z џџ!„!d @B@h џџ!„!d @B@r B@< ž ЖAecWall џџ!†!d DB@і ž Ж AecWindow џџ!Œ!d DB@іgr ž ЖAecDoor џџ!ˆ!d DB@іhit]ђPЖ AecDbDoor H%'Дd:]ђhђˆђ ђРђрђђ k џ цў Ќ“c цœ deэ ц.ќ 3\э ќ! ќ! %.0 № 0(ю џџ!†!d 0(Coэ ќ! %*.4 џџ!ˆ!d 4(9 џџ!>!dX 4(€x 4 0 B@Bron 4 ~ B@ Pa 4 џџ!<!dX B@re 4  B@(ry 4 4!!Ќ B@$џ єўЌ Д‘’0 4 є$Д HB@šџЧ№э 4 џџ!Ž!d 4 F%N H%Ј.FS ! !. F(HDIT ! !. F(J2 ! !. F(Lsteэ ќ! %$.2 џџ!Œ!d 2(Vi џџ!@!dX 2(€e 2 0 B@Bito 2 ~ B@ 2 џџ!B!dX џџ!<!dX 4!€ B@ 2  B@( 2 4!!Ќ B@$ 2 ј B@, 4!D 2(DkџџHџЧ@ џџA@roџџ(–@ žА›GЗ žB@Bjoџџјџџџџ№џџџџ$ЗAttribute VB_Name = "frmBuildingˆ" ˆBasˆ0{C65B3BE4-A946-4691-AB60-B556977D48B5}{DDCE2453-B0CA-4FA0-9B21-646D0855 286A} dGlobalSpa‚coFalse ŠCreatablPredeclaIdжTru BExpose0Templat@eDeriv–C€ustomiz‹D Option 1licit P€"€& Master__SRP_5џџџџџџџџџџџџпT__SRP_2"џџџџTJ__SRP_3џџџџџџџџџџџџlвTools џџџџџџџџџџџџ…Dwg As AcadDo cumenly(rFnS€Юng Sub 0init„() Dim Фcd), fŠ#OJrror R„es€; Nex€AР = Dir( Me.tx…wgL.T€DIf<> "" ThenУA@Not Ђ(Ч7Is @h€‘F)Т ‡>.Cl^ GD]AСSetC1=P App€MaP.јActР_GI‰ Ы E s.Open4ќ, A„„5СP€iЧ5A]StylesУEnd IfУ‡J€šF%.FulВќ  qGrУEp@cmbWall.@List()€sсB.GetСФ ЦdЬCount H> 0]e.IIаndex0C0цс`DoorБсНfВІИWindќowВ"ўч3 чЈЦ2Хsm‰__AfёРuUpd€B…5qш;'}A UserForm_I€wialxizeH>Ўl3I_Path & "\td‘\AEC Arch (Imp“al - In€tl).dwt Љ!YB Scalecbw  "96Š!2S €ц3яOffsфet&12*р5?РѕcN‘()RTag.ЭagetMvўbЃAc C`Хђ?…?RPЈ ЎВВ#В= `Layer!rFќil@ЪсA—ф‘т*ЩЃ УРKќeyD` эЃв?Ч 3{YЖ1+-cm dGo_C№YkЈ,ИHidАг бsРm!ѓmSele \onЧ@ѓ1 Ea@,@In`JisDrazw€b.ЩWё sМs.Šж‰ND0оtДmQ =eаs.Add("і4sOnScЌreUnУ d– tD ‚6:Utility.D \anceРToRealdhw9, acDefaаultUрAsфscP>ortВ с`Fn, у.Сy` ‚Stand8ardЯ"ƒf avјeAsP3S”gУaR'Fromї{,h6, "Aec!j^"• СrCяtяg§яcрCа`У[З џ  !OС s q+8psdУ€pSSc0heduРA?Al lThatZy(9ADbBzAob"jеObjа/, ЂiLonРl2™ЁŸLine, w†lТ3, drфБа’2, tgєMVBlocxkReдˆf5сp5s 4TypeOf ПТ“9сp+YœЦLnР ГQ1л&Б = 3Б4(ln.Р'rtPoint|, рDТ„хwˆl.JрГifyРfaѓicВŸсЦlџ0{`B$ф@У0,'%? р A L drа рŸкQш#еАWid0{= CDbŸ?СІrмЅtt№PќToQ 1!› t „Al@$Posi1LƒВCurveEгТяctаUtтuI?тœ X{П  ,AWi>t`НO@ђ•RiќghФХ%‡ CЊЕˆ.FrАшDep И/ 2Л лA/iр#!аЎo UBАЏd( ;Ќ бЇ< эаѕDч`ф‚`(iŒЧd sQ/ 8= џЃB€†(Œiƒжџџџџ џџ џџЈ€џџџџIƒиџџџџџџ џџџџџџ€џџџџџџџџphx`џџџџџџџџџџџџаўDџџџџPŒh8 џџ џџ0€џџџџIƒ\џџ џџџџџџ€џџџџ`„єџџџџhџџџџџpЈџџџџаџџџџџџџџџџџџIƒZџџџџџџџџ џџ€0ИџџџџиџџџџР+XџџџџџџџџџџџџџџџџџџџџˆџџџџџџŒIƒ\џџџџџџџџ џџџџџџ€џџџџџџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ќџџџSџџџџpHџџџ џџ @ўџ@џџџџџ .oџџџџ(<џџџ џџ gi@ўџ,џџџ џџ </@ўџ$џџџџџ hP˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ №Аџџџџptџџџџџrdрort№dџџџџџ gTyp`џџџџ Fies;џџџџшPџџџ џџ ><@ўџ@џџџ џџ mlЈ@0џџџ џџ ri@ўџ џџџ џџ n@ўџџџџ џџ 'T@ўџџџџ џџ anи№ўџџ џџ tx@ўџрўџџ џџ srџџџџаўџџ џџ m'џџџџth=100 џџџџt=1џџџџ€џџџџџџџџџџџџџџџџџџџџаџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ^€€ џџџџB  €( 0€ џџџџD@3X€ џџџџ x>˜€ џџџџА2YР(ј((0€ џџџџ@X(h €˜   А€ џџџџ"И а ир ш€ џџџџ№€ џџџџ € џџџџ"G@` 3p€ џџџџ Ј(Иаш №€ џџџџ" (0  8€ џџџџ@H€ џџџџP€ џџџџB  ` p €€˜  Ррш и АИh€ џџџџB ј€(NmаB € џџџџ€@€ џџџџ P*Gp   А€ џџџџ И€ џџџџШ€ џџџџџџџџ(Эџџx–]ђ€ђ˜ђАЩP МB@О P!&!R!T'L LЖ;аЌ$V'LЮ L‘Ќ с@Lр P!X L‘+L H$Z'H HЌЌ$њЖ:›G HЌ$њ'Hj HЌ$мЖ\є HЌ$њ'Hѓџџа H$Z'Hџ єўЌ L‘’ є$L'N NЌ$\Ж\œ NЖ\ H'Ndџџ` N H'NkџџH N$~Жœ N'@yџџ kџџџЧЖ projectname %^'NЗ 'L JЗ @Ж NЖœ N P!&!R%`'L L$bœ LЖ;аЌ$V'Lџ єўЌ L‘’ є$L'N NЌ$\Ж\œ NЖ\ H'Ndџџ N H'Nkџџј N$~Жœ N'@yџџаkџџШџЧРkџџИkџџАiџџЈџџџџ –HiџџPЌ'д ж$Œœ]ђ8џ єўЌ ж‘’џЧkџџ є$ж иœkџџр є'дzџџаџџџџШ–˜iџџш]ђPђh­u–аЩ P R цB@VЌuDyЌu]ђ€ђP­uџ єў ZŠ Z‘’­uжЎu  є$Z є$\ Ќ 'ЌubyЌu М›GyjDу­uџЧ8 $^'XЎuiџџ І  P P R !Ъ%b P R$XД@ !Ъ%`'NЎuџџџџШџџџџXДAttribute VB_Name = "Tools" Option Explicit FuncPfindfile(ByVal fn As S˜ng, p,doProj(ect:BЌeaDn)R Dim pths,, fHi+Long)OŒrro@r ResuЋN ex•CErr.рClear(T)ЯApПaЖ.Preferences.FОs.SupportPa”thŠSt(ƒK";", , 1f)ƒƒRe\(serve‚`(UBound‚) +ї"Š ) K†>ƒ-Ї= Trim(fn:If Mid1€, 2E€ ":@" ThenО=%†3Wh€o L(eft19"\?ы—2ЦE enVdж F`i€0№ To I<ƒ‚„’>i„@1RigŽh€$AТ1<> €%Џ2 C…&B &Р:!G Elseл fnСH nd IfЧG!@%Dir() џ$VGТ#„М€>B K`Exit €FGE?ШGЊAУThisDrawing.GetVarHiab@ж"pУЮn=€х"ФPCUEmјptyCCР1Gмpue A@!ыР "ў"ChQ:d ›fР{?hag„'уa`No`t (IsТcb)џа<јmС a‡ ЁпPяЁb%-A (ЩQ%€џпR…ф… убSЯTџ%mЩUІ8ЩVхЋ!яЁ пXХ ˆBТя џAЯZЩ[eЫ\ЁЇ sщi ЁЫŠЬisInArray0(arrAСbcntр, valтШgУf™€\-1У"IsџOСЗ Ь!ёJРˆ˜Ёџ@ €€IР €№ZЁ‰ўiG!Aaƒ+DъЫ)$A'+%сВ&get@centroРХobjс&AcadEрntityЂ&Ф(#Сall, uДs ‡aH’l IBox щ‡и ЙKUtil.PolarPoаint(_‡ пy.AngleFromXAxisur), Distapz / |2#@kч‚1, r2тDouя№T‘%‘ёdРq“|, h г Ÿ†•†х!LЃ~у %ІpWТ=Т b+ ((Ё#-T А) ^ 2ї8&№%0 т};8“ уУESqr(!05 ›fР{?hag„'уa`No`t (IsТcb)џа<јmС a‡ ЁпPяЁb%-A (ЩQ%€џпR…ф… убSЯTџ%mЩUІ8ЩVхЋ!яЁ пXХ ˆBТя џAЯZЩ[eЫ\ЁЇ sщi ЁЫŠЬisInArray0(arrAСbcntр, valтШgУf™€\-1У"IsџOСЗ Ь!ёJРˆ˜Ёџ@ €€IР €№ZЁ‰ўiG!Aaƒ+DъЫ)$A'+%сВ&get@centroРХobjс&AcadEрntityЂ&Ф(#Сall, uДs ‡aH’l IBox щ‡и ЙKUtil.PolarPoаint(_‡ пy.AngleFromXAxisur), Distapz / |2#@kч‚1, r2тDouя№T‘%‘ёdРq“|, h г Ÿ†•†х!LЃ~у %ІpWТ=Т b+ ((Ё#-T А) ^ 2ї8&№%0№LдШџџџџVRt–ќІџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџџџ<џџ<џџ<џџџџіPіќіИј%ƒLџџџџџџ0џџџџџџџџџџџџџџџџV`џџ„iƒ,џџџџџџџџџџџџџџ€ „џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh8@ttџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€€ џџџџџџџџ Эџџxџџџџpџџџџ`џџџџ€џџџџаАAttribute VB_NrU€€€ џџџџџџџџ4`§џџџџџџџџџџџ‘a//0ЉrU€€€~| љ ( Љ)!Б Q!Йљ Љ#i !бЙ!Щљ! Љ"б"Q UY#‰M”X.pџtџ$ tџ lame = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080rU€€€ џџџџџџџџ$$ 0tџ |lpџ=xџ)tџpџ xџ ˜0 <(xџtџpџMnhџ=pџhџ l •§Lџ%pџ l @œ4xџtџpџlџhџdџ`џ0 ќЦX  0 ќЦP  0 ќЦа  0 ќЦ`  0 ќЦ  0 ќЦ`  0 ќЦ˜        %,џTџXџhџdџ`џ(џPџLџHџЌKЇ9Tџ\џ$ hl\џ=[Xџtџ$ lTџ=lџ)\џXџTџRџ€ lџ \kRџЅ \џ€ F@џ%lџ `l\џ=pџ\џ/Xџ€F@џ%\џpџ d\џ (lXџ=xџ)\џXџ <ЌD*xџ`џdџtџpџlџ\џXџTџШpKl9Xџ`џ$ hl`џ=[\џxџ$ lXџ=pџ)`џ\џXџVџ€ pџ \kVџУj`џ€ pџ d`џ(p@&dџhџxџtџpџ`џ\џXџ@єKџџ hџhџHhџ9`џhџ$ hlhџ=[dџtџ$ l`џ=lџ)hџdџ`џ^џ€ lџ \k^џя hџ€ FLџ%lџ `lhџ=pџhџ/dџ€FLџ%hџpџ dhџ (ldџ=xџ)hџdџ 0 ќЦ8  ЌXobjfromdisdistџџ%џџџџ@%%`„єџџџџџџџџџџ % %"„€џџџџp@џџџџџџџџ`„џџџџџџџџ џџ@џџџџИ0№/џџџџџџџџџџИ/ %ˆ "„јџџџџџџџџH@џџџџџџџџ`„џџџџџџџџ џџ0@ `„4џџџџџџџџџџ"„њ˜џџџџh@џџџџџџџџH р И`џџџџџџџџџџџџ|џшџџџџџџџџ..„iƒHџџџџ џџџџ`€ џџЈ€џџџџ „јџџџџџџџџџџџџ`„џџџџџџџџ џџ iƒџџџџџџ џџ€€iƒ4џџџџџџџџ˜€ј „њРџџџџ@џџџџ „џџџџџџџџ@мџџџ џџ џџ`„єџџџџџџџџџџ(`„4џџџџџџџџџџX@џџџџЈ`„Bјџџџџџџ„Fџџџџџџџџ„JИџџџџP+>џџџџ`џџџџџџџџџџџџlџј џџџџџџ))ŒiƒHџџџџџџџџ€џџџџiƒ4џџџџџџџџР€џџџџџџџџџџџџџџџџ8џџџџџџџџџџ€џџш€s\iƒ8џџџџџџџџџџџџ€џџџџiƒ8џџџџџџџџџџџџ€€џџџџРџџџџшЈџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪX€"… €0€ џџџџ(j €ˆ€ џџџџ ˜€€€ €€ џџџџ@$Ј H 8 "ај€ џџџџXx€ џџџџ  8&ˆ(`А.Иш0№ X0€ џџџџР ЈИаи№јp€ џџџџB… (€H€№€lxџќcћвя+dџ€hџpџ dhџ 0ldџ=xџ)hџdџ 0є4xџtџpџlџhџdџ`џФKџџ \џ\џH\џ9Tџ\џ$ hl\џ=[Xџhџ$ lTџ=`џ)\џXџTџRџ€`џ \kRџМ \џ€F@џ%`џ `l\џ=dџ\џ0џdџ h0џќіlџlџќ5IєќЫѕџџџџЧМ ќd@џќіlџ§• LФ4lџhџdџ`џ\џXџTџ0џр˜9dџlџ$ hllџ=[hџxџ$ ldџ=pџ)lџhџdџbџ€ pџ \kbџ‘ lџ`§џџџџџџџџџџџ (Љ`§џџџџџџџџџџџбlLџl`џl\џ;/Lџl`џѕЊq`џ hџў‹Pџ ul\џM<џ §lџ§• @иD*lџTџPџhџ\џdџLџXџ0 ќЦ€  0 ќЦh  0 ќЦ`  lCxџlCtџ+,џlxџ0џH  0џ ll,џ=pџ)0џ,џltџFџ%pџў›lpџѕTџќЈ0џH  l0џ=lџ0џ9*#џltџ*#џ*#џ0џH №0џ l2џџџ0џ1Ьў'мўllџ§o џ%TџYќўџ:џ %H ( Ьўќі4џ5мў pџ ,(џ%4џўЏЬў§Ÿў˜5ЬўАdLxџpџtџTџe>divRМІlџ4џ(џџџ0џ,џмўЬўi 0 ќЦШ  +$б`§џџџџџџџџџџџ (љ`§џџџџџџџџџџџб+$!`§џџџџџџџџџџџ (“K*m џџџџrU€ €€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~c с/То9fЌnQHЛu3ф@:  фџџџџ ƒ џџџџџџџџџџџџџџЙџџџџџџџџџџџџџџџџџџџџџџy;џџџџџџџџџџџџџџџџџџџџџџёџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџ!џџџџџџџџџџџџџџџџџџџџџџ4џџџџџџџџџџџџџџџџџџџџQџџџџџџџџџџџџџџџџџџџџџџqџџџџџџџџџџџџџџџџџџџџџџ‘џџџџџџџџџџџџџџџџџџџџБџџџџџџџџџџџџџџџџџџџџџџЩџџџџџџџџџџџџџџџџџџџџџџ‘&џџџџџџџџџџџџџџс: Ё щ!IСљ  ™8‘9й- ThisDrawingDrawingLayerDisplayObjectStyles Structural Schedules ObjectDBXOfficetest ACADProjectяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA џџџџ )‘0тС”РЦWв…у  Ц&:D:\Program Files\Autodesk Architectural Desktop 3\ACAD.TLBAutoCADIыр1аqв›Ѓ AddWinAssem љџџџџ!Ё@0РFC:\WINNT\System32\STDOLE2.TLBstdole aџџџџ‰бP!ѕ ѓYв›>@C:\Program Files\Common Files\Autodesk Shared\AecXArchBase30.tlb AecXArchBase Aџџџџiљ`Л‰ЕOвЇё`АW*Ш<C:\Program Files\Common Files\Autodesk Shared\AecXBase30.tlbAecXBase yџџџџЁ)p“r{УЌёвЈ€€ЧжЬЄ_Mсqв›ЄAddDoor@C:\Program Files\Common Files\Autodesk Shared\AecXSchedule30.tlb AecXSchedule Ёџџџџ ™€Н+„Šвœ@€ЧжЬЄBC:\Program Files\Common Files\Autodesk Shared\AecXUIArchBase30.tlbAecXUIArchBase  џџџџA б bњѓыггЂРOЁ7Ю -c:\progra~1\common~1\autode~1\AecsXBase30.tlb AecsXBase Q џџџџy с  testLyrs AddWall2qx$Zв›D AddWindow&kcSдНЁЄЛЎЏ AddOpeningGыр1аqв›ЃAttachDoorToWallAttachWindowToWallAttachOpeningToWallAttachWinAssemToWall AttachToWall юW[šЪбЖ`А‡т5GetDoorPositionSetDoorPositionGetDoorAlongDistSetDoorAlongDistGetDoorWithinDistSetDoorWithinDistGetDoorWithinPositionSetDoorWithinPositionGetDoorHeightPositionSetDoorHeightPositiongetDoorHeightDistSetDoorHeightDistaddAwallЂюW[šЪбЖ`А‡т5{8БшыnдНФЄЛЎЏz8БшыnдНФЄЛЎЏ1Yџџџџb8БшыnдНФЄЛЎЏ`8БшыnдНФЄЛЎЏП/@Uв›GetLayerStandardSetLayerStandard GetLayerFileGetLayerKeyStyles GetLayerKeys GetLayerKeyr[І[NЎг™Ў`АУЙŠCreateLayerFromKey JoeйuŽ!=в…Ф  Ц&Њн]ЁйВтAЛЭ‹aLаZйuŽ!=в…Ф  Ц&)ч%йxLFŒШЦ&#$wсXh—{ а‰п€_ТћК AcadDocument @…ЙЂЙ(вЖx`А‡т5FЪqѓ{в›б€ЧжЬЄEЪqѓ{в›б€ЧжЬЄб џџџџУˆЉщ‚вœ€ЧжЬЄp[І[NЎг™Ў`АУЙŠ| !Иtв›В€ЧжЬЄn[І[NЎг™Ў`АУЙŠt[І[NЎг™Ў`АУЙŠ„д()“ЪбЖ`А‡т5  The layer key < D> does not exist in the keystyle < >!ŠјфJmЯ“ћ žГЗ |[І[NЎг™Ў`АУЙŠGetLayerOverrideSettings+›”Тš ЛKГ4m>яu&­ФБТЂ'EЋхh9›Lsz[І[NЎг™Ў`АУЙŠ :Шˆј€€ @€ џџџџ $( P ` "h€ џџџџ`А€ џџџџ@€ џџџџx ˜ А˜&`  Ш а8€ џџџџ р№ј (€ џџџџ€ џџџџџџџџЭџџxџџџџp]ђ]ђp]ђxЗ'џЧЗ'Щ8 јАœeskэ ј!!в.њsapp =oџџ0эЌ њ%.Appl H$~ЖœProэаЖExcel.application$.јftэЖexcel.application$ .ј98\kџџ]ђ ЙЖ The file HЖ exists! ЮЖDo you wish to overwrite? &Ж File Exists!$ъ *œ\З'kџџpkџџh ЗœџџX њB@BЖэА. H њB@0эА.њ З›G јB@2jэА.јkџџїЌЌ–Ј]ђPђXџ єўЌ ‘’џ 4ўЌ є$‘’џЧ Ж@ 4 є 8 4 %:(< 4 є$#$XЖStringœdџџHЖGeneral 4 є 8 4 %:(<kџџ 4 є$# 4 є 8 4 ,:џџџџиїЌЌ–ИЙ 8'B H$~Жœ hэ H ј!%.њ 4 8 %:Жa overwЮ 4Ќ с@F˜il 4 8 %:Жa' 4Ќ '4F B'8­uDу­u]ђ]ђА]ђШ 8Ќ '8­u F'>Щ эаЖExcel.application$.јJу­u јАœЎuЎuЗ'эЖexcel.application$ .ј$nЌukџџАЮ 8Ќ с@J ­uэЌ њ%.4­u J 4Ќ +F’­u њB@BэА.эА.њ З›G јB@2jэА.јkџџ iџџ]ђ8ђ0Ex]ђђ(ђXђpђ  4 8 %:!† 8Ќ +JџџџџџџџџДAttribute VB_Name = "Office" Option Explicit Sub Write_To_Excel(fn As SŒng, dataVariant, „al row0LongEЦ12col ) Dim €didInitBoolean,| w~ /= TrueIf DirЈ) <> "" ThenhMsgBox(" fi€le " & l&exists!vbCrLf "Do you wish to over‚@aZFals„Z Eрnd IfU‰ƒ\‡w - xlsиApp ‚ж.хžaы" WbЧ Workbook… s shee†…iAСy, iЦGO€–rro@r Resu€žN„exˆSet „/= GetObj0ect(РUƒ2ap{AЅ‚2"ФŒA @ED I€s NothiœK| …– ŠССJC reate"e§СМ.”‰hСG:D@X =Ф4.EXs.AdšdO s€‹Р1Wb БBYs(1Ш9‡ F@Pi€ 0 To UРBound(Сс ЧA#‚ б (i)LССр(typen`‚Ђ й (i  "Ѓ} iЁeAs.Cells(!+ i, }i).Number matн @€ЩaEJaЉŸ Š GeneraўlQ шk Р”ЂС+"ч0!KXЋ'b .Save@Їfh‘ёCloЉ€…GABZG )KŽ`8ы\"„%PQоuAКх Ё…=хfУ ХZсSub FuncBУRe€ad_FromВСŸŸПbB€ С…р*1)a‡џ„ЧЃ“…фРcрџ9ЛфšA   с3  , oн, rрDat()€bтуџa1'пЃРу5пЃХ<@&ЯЄпЃPvяQ š"яQўlяQУu$Ѕ—яQрoks.O@HС{ян?Rt?RгВ=б&gƒ—р|Until‘1.WhK"K{"ЬCReБ%PreservцeГaN- )ZЁЏпQЏƒ Rьc!"С#?ясъ@4№O .V|al‘2Dar + 1бLoo~p2+u‘oЎwp!р:в==‚/џgk DСаз—a ќb.ПQC€ПQ„b%§ПQfцЅC.ПQrЈ‘/š5-qEQR pen`‚Ђ й (i  "Ѓ} iЁ№t+дџџџџˆ+Ј= t–ЧЗџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ,|џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџ`џџџџ\dџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€<œџџ<џџ”<џџк<џџ < І<џџЌ <џџА<Ж<џџЪ< џџ<$џџ<џџ<(џџ<0џџ<4џџ<8џџ<<џџ<@џџ<џF,џl`џlXџR5,џl`џѕЊq`џ џ xџ ˜' ,(xџtџр`/јў:џ%'џ%(џ$ №(џ \јўќіlџ(џ/јў:џ%ќэlџ(џ$ №(џ \јўќі\џ(џ\џlџ Xџі @Xџ  lџ Pџ"XџlPџ= (џ(џ l(џ= Pџ(џ Pџ t№ўѕYьўPџ њ$@§ЩфўPџ ѕYьўPџјў  5јў4фў(џPџ  (џ |oфўњ@Ж§ЩмўPџ Žџџџџxџџџџџ€€`„Žџџџџxџџџџџ€h`„Žџџџџxџџџџџ€P`„Žџџџџxџџџџџ€8`„Žџџџџxџџџџџ€ `„Žџџџџxџџџџџ€`„Žџџџџxџџџџџ€№`„Žџџџџxџџџџџ€и`„Žџџџџxџџџџџ€Р`„Žџџџџxџџџџџ€Јџџџџ Hџџџџџџџџџџџџџџџџџџџџ˜ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪЃ€B€№ `?аР( И8€ џџџџ€ џџџџB  €.ш h9ИP и  p € ˜ ЈАа€ џџџџ(€ џџџџB  0€.@Ј9pˆ ˜/РИ€А8€ џџџџ"  @€.р9@X0€     ўџџџ'Z !"#$%&(3)*+,-./0ўџџџ254:6789<;Z=>A@UBCDEG§џџџHIJKLMNOPўџџџRSi[VWXYcg\]^_`ab‚defvhkjuwmnopqrstўџџџxyz{†’|ўџџџџџџџџџџџџџџџЈH€ џџџџB  P€и8 А9h˜ ˆ/Р&7€X€ џџџџB @€h€ ˆ9˜А Р арH€ џџџџ"  P€(9@X h  x ˆX€ џџџџB 0€ јш Ш(8 h а x  `0р8€ џџџџ" `€Ј)И$R№ h€ џџџџB  p€ша 0Hриx€ џџџџB  €€XhИˆ€ џџџџB  € р˜€ џџџџB  €Ш&(џѕYьўPџ њ§ЩфўPџ  `lTHџlџLџ0џam Fes\Com’AePџTџ\џXџ(џјў     zЩЈpropName I!И\џў‹@џilXџMDџ §lџ§•PаD*ТьївЈ–€ЧжЬЄIqџџџџсu6ЊјвЈž€ЧжЬЄ сu6ЊјвЈž€ЧжЬЄЩ\ ›нxв›Р€ЧжЬЄ сu6ЊјвЈž€ЧжЬЄ John KidsИfФЄŸIЛxЊ8<ЛVBE6.DLL љџџџџ­ ШGetAppliestoListSetAppliestoListGetDataFormatStyles љџџџџ0  љџџџџ, P:’еЄжєбЂШ мcš 0AEC_PROPERTY_FORMAT_DEFSа2нјпїбЂШ мcšрЄИ$*CаЈ“ › SaveAsDef (Select start point: $Select end point: чњ&жї~в›я€ЧжЬЄ AecWallˆ%“^чџбЖI`А‡т5 AecDoor IAecDoor IAecWindow $IAecWindowAssembly}8БшыnдНФЄЛЎЏ|8БшыnдНФЄЛЎЏY""џџџџ IAecOpening љџџџџO шd8БшыnдНФЄЛЎЏйuŽ!=в…Ф  Ц&Љ#1џџџџ *Select Door to tag... Tag loca. € X а (8Ј€ џџџџB p€&` x Ј+Ш р @  (  P А  3ˆ Ј И а №  РИ ˆ €€ џџџџџџџџ0 Эџџxџџџџp–Hiџџ–X"iџџ–@iџџ–Аoџџ0–Xiџџ –Иoџџ–аiџџ–Piџџp–и iџџ`–iџџPџџџџHџЧЮ jс@КИџ Дў !X Ў%И“]ђPђhђ€ђ˜fЬ3 Д! j+К3fџ™ jЌ 'j К'Цџџџџ(џџџџ@ Ž В%ЬœЌ'jЌ'jЮ jс@Ка Р! j+КeduleP jЌ 'jopџЧ` К'Шэ !X Ў%И.Вkџџэ Ž$В.ДІ]ђЈђ№ђђ0ђHђ€џџџџџџџ Рў Д!Ю“џџPџџџџАІ]ђ˜ ђА ђШ ђр ђј ђx џџэ !X Ў%И.В Ž В%Ьœэ Ž$В.ДЩˆ Ѓˆkэ ’ Д%Ю.џџџџ0І]ђ ђђ(ђЈђРђј ТЩˆ8э !X Ў%И.ВkЩ Ž В%Ьœ‰Џ* Ž ВB@вэ !X Ў%И.Вkэ Ž$В.Д Ž В%ЬœЃˆp МB@О?$э ’ Д%Ю.˜e€]ђЈђШђш`АУџџџџ(џџџџx ˜А›Gэ ’ Д!Ю%в.˜jџџџџј–Xiџџ–@ iџџи–X oџџШџџџџР]ђђ ђ0 jЩ МB@О~э !X Ў%И.В Ž В%Ьœэ Ž$В.Д Д!о'кџџџџkџџАџџџџЈџџџџ€џџџџ˜ к‘Ќ›GЗ'кj: saџџџџp]ђр ђ ђ э !X Ў%И.В Ž В%Ьœэ Ž$В.Д b Д(оhџkџџ€ b$ŒœџџџџkџџџџhџџџџЈџџџџрџџџџxЌ'jЮ jс@~8 ~'иэ !ќ.№]ђXђpђˆђђ0ЩP єАœtskэЖAEC_PROPERTY_FORMAT_DEFS$№.єџЧџ іў є“re і! j+~ jЌ 'jџџџџ]ђ  ђИ э ц Ў%њ.ўew AЌ'j ~'žџЧ8]ђ@ ђђ ђ8B@вџ Фў ц Ў%њ“Ю jс@~ Ф! j+~Sets jЌ 'jњ]ђа ђ№ э ц Ў%њ.ўmon~  Ј(.џџsX]ђђH э ц Ў%њ.ўџэ Ž$ў.œ]ђА ЈB@z'Ђэ Є Ž$ў%.ЂэЖ AecMVBlockRef !%.Јom ц N(T N ЈB@Zџџџџџџџџ Њ Ј(џџџџИ –˜ Ц'Вiџџ џЧџ єўЌ В‘’Ќ'jdkџЧ є$В$к'. .$цœ'kџџџџ˜ џџџџа џ 4ўЌ .‘’џџ b' є$В j+bm prЮ jс@bј jЌ 'jar]ђ`ђxђиђ№ђђ8 L  4$.ЌŽЌœ’@Ю jс@bp є$В j+bCњ8 jЌ 'j.3џџџџш џџџџ Ž !X Ў%И# ўB@в`џџџџ џџџџ џџџџ0џџџџнДAttribute VB_Name = "Schedules" Option Explicit@ FuncHGetPropertySetўџџџ     ўџџџўџџџџџџџџџџџeўџџџўџџџ !"#$%=,(&*+Q-ўџџџ/@ўџџџ234567ш9™;<y>?HABCDНFўџџџПIJKLMNўџџџPQRSTUVWіYZ[]:ўџџџ_ўџџџabcdf\ghijklmnopqrsўџџџuvwx›z{Р}~€lџ@џ\џhџdџXџ<џTџ,џ0 ќЦP  0 ќЦа  0 ќЦ`  0 ќЦ  0 ќЦ`  0 ќЦX        %Defini0s() As Varia n` Dim sch.New HAecЦApXaС8, psd"A a, cnt!Long, def…lSХng k"= 0 For˜ EayZIn„. Ss(ThisDrawing.Database&)'Re^PrРeserve:€1пˆ‚C ž€3.Ѓ‡G € + 1 NCWJR(^pB5„—AЄ:oSub CreatўeЋІdНVŽ"п<п</§пtion:  aec3_door_tag AecMVBlockRef…8БшыnдНФЄЛЎЏ„8БшыnдНФЄЛЎЏQ%y%џџџџGetAllThatApply door AecDbDoorуlЕЭlівЈ“€ЧжЬЄModule1Toolsfindfile regObjectDBX REGSVR32 /s  AXDB15.DLL љџџџџ АXJ0ƒŽBвЖ”`А‡т5 ; \ projectnameЉ#а љџџџџЧ р љУЁ  ` §Œп<ПŽЮЩРЁ#Ÿ>!_$П„žCЂ˜estрoList/#г3Я„}O>SФПАZЇŸП dПП\ ІП П П @=Ÿ_ЃŸvŸП П eП mЯyЃd TToW#а€UBound(=2)@-1Уџ Nјullc…A§ AQ#ЯDЏ 4ˆQLsвЕЄЛїDbџџn’D:\Program Files\Autodesk Architectural Desktop 3\AXAUTO15.TLB AXAUTO15Lib Щ+џџџџ ,‘,Шх}LmOpвЖв`А‡т5<D:\Program Files\Autodesk Architectural Desktop 3\AXDB15.TLB AXDB15Lib -џџџџ1-Й-иdbxOpenё}LmOprU€€€ џџџџџџџџ$ `§џџџџџџџџџџџ (Љ `§џџџџџџџџџџџб+$б `§џџџџџџџџџџџ (љ `§џџџџџџџџџџџб+$! `§џџџџџџџџџџџ (I `§џџџџџџџџџџџс+$q `§џџџџџџџџџџџn!™\ќHџ Hџќіlџ(8џ%lџўЎHџ`1hџ5HџlhџHџ Hџќіlџ(8џ%lџўЎHџ`1dџ5Hџldџlhџ `џlhџHџ Hџќіlџ:8џNHџHџlhџ 5Hџ   `џHџ Hџќіlџ:8џNHџHџ 5HџHџ Hџќіlџ?:8џ%џўЭl$џќј џ џўЮџ$ №џ hl џ=$џ) џџ/Hџ:(џ%'8џ%џ$ №џ \Hџќіџџ/l$џќјџџM8џ @ 1џlџ=$џ>џFHџќіlџџHџ Hџќіlџѕџlџќ5IєќЫўdќўу$џ§“@lџўЎHџ§ўџ$џ /џ5Hџ џfќўЕџ$џ  џџ€ќD,`џ$џhџ\џdџџXџlџџџ џHџ Ќ ѕq`џ?PџXџ$ hlXџ=[Tџhџ$ QPџ[Lџdџ)XџTџўˆHџ—ѕl`џ\џў€Dџdџ X lDџl`џl\џ;/Dџl`џѕЊq`џ dџў‹HџKl\џM4џ §lџ§•тHЌD*lџLџHџ\џohhџdџKDџXџTџPџplChџ ѕqXџ9DџLџ$ hlLџ=[Hџdџ$ lDџ=\џ)LџHџDџBџlhџ\џ \kBџљ LџlhџF0џ%\џ `lLџ=`џLџLџ`џ dQLџ[,џPџўˆ(џ!ыѕlXџTџў€$џPџ ,!l$џlXџlTџ;/$џlXџѕЊqXџ Pџў‹(џ!ŸlTџM0џ §lџ§•( XP6 lџ,џ(џPџhџTџ edџ`џ\џt$џLџHџDџИl CtџlCpџKГ9LџTџ$ hlTџ=[Pџlџ$ lLџ=dџ)TџPџLџJџltџdџ \kJџБ TџltџF8џ%dџ `lTџ=hџTџ/PџlpџF8џ%Tџhџ dTџ ("lPџ=!xџ)TџPџ DИL2xџXџtџ\џ lџpџhџdџTџPџLџдxl CxџKr9Tџ\џ$ hl\џ=[Xџtџ$ lTџ=lџ)\џXџTџRџlxџlџ \kRџУp\џlxџlџ d\џcM,xD*`џxџdџnдНtџpџlџ%\џXџTџTl CtџlCpџKџџ `џ`џH`џ9Xџ`џ$ hl`џ=[\џlџ$ lXџ=dџ)`џ\џXџVџltџdџ \kVџћ `џltџFDџ%dџ `l`џ=hџ`џ/\џlpџFDџ%`џhџ d`џ ("l\џ=!xџ)`џ\џ lxџќcћвћ+\џlpџ`џhџ d`џ 0"l\џ=!xџ)`џ\џ 8<$xџtџlџpџhџdџ`џ\џXџ ЬlChџKџџ XџXџHXџ9PџXџ$ hlXџ=[Tџdџ$ lPџ=\џ)XџTџPџNџlhџ\џ \kNџТ XџlhџF<џ%\џ `lXџ=`џXџ,џ`џ h,џќіlџlџќ5IєќЫѕџџџџЧТ ќd<џќіlџ§•lџ PЬ8 lџhџdџ`џ\џXџTџPџ,џшœl Cxџ9`џhџ$ hlhџ=[dџtџ$ l`џ=lџ)hџdџ`џ^џlxџlџ \k^џ— hџlxџFLџ%lџ `lhџ=pџhџ l •§Lџ%pџ l @œ4xџtџpџlџhџdџ`џ,аTџ$ <lTџ=#hџTџKџџ ѕq`џTџ:Dџ$%hџ P#lTџ=%dџTџ ldџќcћвУИldџ\џўˆ@џ Иѕl`џXџў €<џ\џ X ><џF,џl`џlXџR5,џl`џѕЊq`џ \џў‹@џ ilXџMDџ §lџ§•@PаD*lџ@џ\џhџdџXџecXUrc<џTџ,џ0 ќЦdœИ  0 ќЦа  0 ќЦP  0 ќЦи  0 ќЦ  дxlChџ(џ (џќіXџ ѕq8џѕTџXџќ5IєќЫўd џa+Tџ§“@XџўЎ(џ§ў џќў ќўќі@џ/ џ5(џ @џ &Йѕl8џ<џў €Tџ§“@XџўЎ(џl8џl<џR5(џl8џѕЊq8џUѕPџ@џќ5IєќЫўdєўU3lhџFфўPџ§“@@џўЎ(џѕџќў(дў]ћ36(џќўIѕl8џ<џў €Tџ§“@XџўЎ(џl8џl<џR5(џl8џѕЊq8џ Pџfєўе Tџf џ=l<џMџ §lџ§•s A Иx@&lџ<џ As @џhџXџs  џ(џќўФў     %xџtџpџ0 ќЦр  0 ќЦ@  0 ќЦР  0 ќЦ   x<+pџtџ$ 0tџ |lpџ=xџ)tџpџ xџ ˜ <(xџtџpџM!$!&. , ((8oџџx–р]ђ э009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Option /licit sDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Option /licit /licit VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmBuilding Caption = "Convert to Building..." ClientHeight = 3345 ClientLeft = 45 ClientTop mvbNamepsdnamelstLstpt = 330 ClientWidth = 6375 StartUpPosition = 1 'CenterOwner TypeInfoVer = 52 End UpPosition = ўџ џџџџ№i*ЦмЮž˜ЊWJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.1є9Вqs 2.0 FormEmb€H€,о {5€ЅTahoma (€Master Drawingь 5€ЅTahoma€H€,ь {5€ЅTahoma(€Scaleaь Xј%ƒDџџџџџџ0џџџџџџџџџџџџџџP%џџџџ@`„Иџџџџxџџџџџ€рD%D%D% %%PD%D%% „џџџџhџџџ)ƒQџџџџџџ`џџџџ€џџџџ0џџџџџџ€ +:€`џџџџџџџџџџџџ<џ@ш џџџџ7Œ ЄSџџџџdџџџ€h ` D%$%`„j@`џџџџџџџџџ „џџџџ\џџџˆ џџ%%+ Ј`џџџџџџџџџџџџ<џ@ џџџџŒ)ƒQџџџџџџ€џџџџ€ (џџџџX%€+@h`џџџџџџџџџџџџ џџџџHŒ „џџџџџџџџР ЄRџџџџџџџџШ0џџџџ`„jџџџџџџџџџџџџџџ „џџџџџџџџ№џџџџџџџџџџџџH +FШ`џџџџџџџџџџџџlџX џџџџYŒ+2`џџџџџџџџџџџџ<џ@Р џџџџ&Œ)ƒQџџџџџџhџџџџ€)ƒQџџџџџџџџpџџџџ€xD%8 )ƒQџџџџџџџџџџ€Иџџџџ џџИD%H „џџџџhџџџHрџџџџ џџpP% pџџџџџџ „џџџџhџџџˆ ЄSџџџџdџџџH( 4% ЄSџџџџdџџџh%`џџџџ(џџџџ)ƒђџџџџџџџџ0 €„%џџџџH`„jP`џџџџџџџџџ „џџџџ\џџџџџџџ€џџџџџџџџшџџџџ`џџџџ`„j`џџџџџџџџџ „џџџџ\џџџ˜џџџџ€џџџџџџџџ8 8џџџџџџџџџџџџџџџџџџџџџџџџџџџџ„)ƒєџџџџџџџџ€% ь џџџџџџџџџџџџџџџџˆџџџџџџџџ „iƒИџџџџџџџџџџџџџџ„ џџL%hџџџџџџџџ€ш аЈШџџџџџџџџ`џџџџ`@% D%џџџџ +Ђа`џџџџџџџџџџџџ<џ@а џџџџŒ)ƒQџџџџџџ˜џџџџ€Ё=<9 `§џџџџџџџџџџџЁ‰й=@a ` §џџџџџџџџџџџЁamearrvalFromDwgToDwgscldevflag Љ=A=ш Љ=>ј Љ=‰> @Q?( €Door Styledaь 5€ЅTahoma( €Window Styleь 5€ЅTahoma(€Door Tagь 5€ЅTahomaagA€H€,\  0 ќЦ  0 ќЦ(  0 ќЦР  0 ќЦ˜  0 ќЦЈ    > hџў‹Pџul\џM<џ §lџ§•ќ !QQ?Ш iRQ?и Д{5€ЅTahomaag(€Go...aagўЪu€ЅTahomaag(€SizeE5€ЅTahomaag(€OffsetagE5€ЅTahomaag€H€,E{5€ЅTahomaag€H€,E{5€ЅTahomaag€H€,E{5€ЅTahomaag€H€,E{5€ЅTahomaagTahomaag€H€,E{  4}э+ Œ•(х €4txtMasterDwgк O(ѕ€2@Label1agŸю$х€4txtScaleк (ѕ€28Label2leŸЙ$х€8cmbLayerк ф(ѕ€2@Label3erŸƒ$х€8cmbWallrк Џ(ѕ€2<Label4lrŸN (х € 8cmbWindowDwgк D$х€ 8 cmbDoorrк y (ѕ€ 2< Label5rrŸ (ѕ€ 2< Label6rrŸу(ѕ€VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmBuilding Caption = "Convert to Building..." ClientHeight = 3345 ClientLeft = 45 ClientTop = 330 ClientWidth = 6375 StartUpPosition =  ™иdwgDWGwsN 1 'CenterOwner TypeInfoVer = 52 End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9ВqаАAttribute VB_Name = "Thi€H€,о {5€ЅTahomar (€Master Drawingь 5€ЅTahomar€H€,ь {5€ЅTahomar(€Scalearь 5€ЅTahomarA€H€,Д{5€ЅTahomar (€Layer Standardь objNamefn doProject й-I.Ш5€ЅTahomarA€H€,Д{5€ЅTahomar( €Wall Styledaь 5€ЅŠƒ„…†‡ˆ‰ўџџџ‹ŒŽ‘’“”•–—˜1šЈœžŸ ЁЂЃЄўџџџІЇўџџџЉСЋЌ­ЎЏАБВГДЕЖЗИЙКЛМјОўџџџєчТУФХЦЧШЅЪЫЬЭЮЯабвгдежзийклLнопрстуфхцEGщъыьэюя№ёђѓўџџџѕїљњћќ§ўџTahomarA€H€,Д{5€ЅTahomarA€H€,Д{5€ЅTahomar( €Door Styledaь 5€ЅTahomar( €Window Styleь 5€ЅTahomar(€Door Tagь 5€ЅTahomaagA€H€,Д{5€ЅTahomaag(€Go...aagўЪu€ЅTahomaag(€SizeE5€ЅTahomaag(€OffsetagE5€ЅTahomaag€H€,E{5€ЅTahomaag€H€,E{5€ЅTahomaag€H€,E{5€ЅTahomaag€H€,E{5€ЅTahomaag(ѕ€ 2< Label5rrŸ  4}э+ Œ•(х €4txtMasterDwgк O(ѕ€2@Label1agŸю$х€4txtScaleк (ѕ€28Label2leŸЙ$х€8cmbLayerк ф(ѕ€2@Label3erŸƒ$х€ Љ=y@( yCQ?8 љDQ?H IFQ?X ‰GQ?h IQ?x 1JQ?`§џџџџџџџџџџџСЁ/0б`§џџџџџџџџџџџСб/0љ`§џџџџџџџџџџџСё/0!`§џџџџџџџџџџџС/8I`§џџџџџџџџџџџ1A=б=a8q`§џџџџџџџџџџџQA=Ё=a8™`§џџџџџџџџџџџa$б`§џџџџџџџџџџџ,љ`§џџџџџџџџџџџIН),!`§џџџџџџџџџџџйё00(I`§џџџџџџџџџџџ 4q`§џџџџџџџџџџџ Q1,™`§џџџџџџџџџџџ Q$С`§џџџџџџџџџџџ$щ `§џџџџџџџџџџџ( `§џџџџџџџџџџџё#nxџ`џdџ\џfA==a8С`§џџџџџџџџџџџqA=ё=a8щ `§џџџџџџџџџџџЁA==a, `§џџџџџџџџџџџ1=б49 `§џџџџџџџџџџџ1Б=б(,a `§џџџџџџџџџџџ1 =б4‰ `§џџџџџџџџџџџ1вЖв`А‡т5openFile љџџџџX 0 ZH:\BooraCadADT\Content\Layers\AecLayerStd.dwg ˆADT_VBA_Primer7 дD:\Program Files\Autodesk Architectural