╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   Ё@╘t    H` <╒  И╢                        x  ME          ▀                                                                                                                                PSP    S    S    S    <  $<  <  <      Ъ0{71E0DC53-ACBD-424D-9D40-B6600DBA42FD}{47FA2AC4-EA44-4E12-9482-0867E397CABD}    @ x                             Ф`Д           _ Д"        pFi% 0                                Ф Д2        ╨ the%А■     ╪        %Б■         0           %    └          ╪        x              Root Entry        >Ж┌V╔А;VBA_Project    аmWnТ╛└>Ж┌V╔VBA_Project_Version(            VBA        аmWnТ╛└Ёj;Ж┌V╔¤    $■    !".■   #                                    /■                                                                                                                                                                                                                                                                                                                                   ■   j ■    !"#$%&'()*+,-./0123456789:;<=>?■   ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghimk■   бnopqrstuvwxyz{|}~АacID="{CD8D1569-2A60-11D5-B117-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="16148B9A9DEECCF2CCF2CCF2CCF2" DPB="4143DCE1DDE1DDE1" GC="6C6EF120374A384A38B5" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, PROJECTwm            l\PROJECT    ThisDrawing         ▒Module1         Г UserForm1    @┴_VBA_PROJECT            0 dir            е__SRP_3            ■   eб▓А0*Р pHВdф ACADProject8@╒ = t  bЖ;( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Auto└mation^АMSFo@rms>SFErmHs3АDD452EE1-E08F-101A-8-02608C4D0BB4 Dindows\system32\FM20.DLL#MicrosPoft В: А] ObБн Libr@ary/;D1?АДАtИАБИА00h}#0ВА#А04РАrА DA95569E-9860-11D5 -B118105A11B3C9РP└OP\VBE\сДG.EXD /Ас.E ПрЕ.`МM ┤E┴Щ┬Ф┬<┬ЦThisDrawingGВАThiА^АDraw└аng 2 вАHB1б`EB,QB <"B+BГВodule1G╒ДВo@еuBе1@ ┬КM2O)O9Й─╔    Q╢zФиG║g#6╡╚Н        0А (AutoCAD"°VBAўтWin16┴~Win32Mac│▓VBA6н# ACADProjectж╘stdoleУ`MSFormsC ThisDrawing╣5 А   _Evaluate┘Module1b ad_ActiveDwg┌▀ UserForm1)╓showїComboBox1_ClickО adPickDwg7c adActiveDwgФ AcadDocumentZ ComboBox1'╪ Applicationе* Documents╝Item╫zActivateЧ|UserForm_Initialize5cadDwg?zAddItemЗ UserFormN  `                                                                 6 И╢                                                      ▀■╩+А А А  А @(А BhА *░А 4рА <А XА `А xА *АА ░А J╕А JА :XА NША >шА P(А PxА .╚А °А     АА     "БААА     Б Б0Б PБ `БpА     "БxААБИБШБ░Б╕А     А         ╚рр ad_ActiveDwgрр: This routine demonstrates populating a combobox with theр; names of the active drawings and changing between themр$ by selecting from the dropdown.р. It was developed for AutoCAD 2000 and above.    р6 Demand load: -vbarun;ad_ActiveDwg.dvb!ad_ActiveDwg;    рр version 1.00    рр# Copyrightй2001-2009 ActiveDwg.com      ррC This routine is provided for demonstration purposes only and mustF°рC not be used for critical applications without your verificationPф8Pр3 that this routine will perform as you intended.Q<╥QрG This routine may be freely utilized for your own personal use so longLр8 as the entire contents of this header remain intact.LрJ This routine is provided "as-is" and no declaration, written or implied,рJ is made as to its reliability for any particular task. Any use of thisр' routine is solely at y0, C Module1=22, 22, 803, 760, Z UserForm1=0, 0, 463, 526, , 220, 220, 776, 746, rawingModule1Module1UserThisDrawingThisDrawingModule1Module1Userour own risk.Qр═  °Ц]Є@]ЄX &!d' d^э  !(!*%,."╨` "B@.$b   A@rfor AutoCAD 2000ВaboDve Demload: -v@barun; ?.UserForm1            ■   *__SRP_1            ■   ЎUserForm1    АRQ"з,┴АRQ"з,┴f            ь^БВ■   ДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯав■   гдежзийклмноп░■   ▓│┤╡╢╖╕╣║╗╝╜╛┐└┴■                                                                                                                                           хцчш■   ъ■   ■   э■                                                                           ╨dvb! ;@version 1.00┼CopАyrightй@д1-9 ╞Q.@F ╩RАUproviОdD,╟V┴pur┴z╤@Nnly0mnE not be u┴В;critical appjlt@sBb└m your └-if├ДDthatАSИwwill per└m АT@ in8ten└(ГNJ0ma┬yБ!free└(@Иxliz3┬@hAs onА&+ so xlonБЦA1└Й └entireРt<БК%headРer rkinБ!П! ╞("as-╚is"┬%no B┴ibaб!, w`$  Е`Ciрdied,ф m@ to i@reliabi lity с+an`y par`,^r task. AчАБB[isД %eА 8solс"А,ж!ri   OpM `z@6itAPw@k Sub CБjBox1_Cрk() DВiр2dPick tр As SАб*E╞NБAcadDo╕cum@,аaЖB=' .Texр 0 Set`Аg= ес=Dгu.AЗK.┼ Аs.Item(╞ щвadF."`БдUnAn M`ГEGаНх╕_In Za/сI Дь ┐ Each`!In Л╞┴ (Addm#.A╢!Nтh Ё\╘И    c#<<  ╢  Ё\╘И    c#<<  ╢                        x  ME          ▀                                                                                                                                          H                                 Д    8                                                                                            ▀■╩А А А  А @(А BhА *░А 4рА <А XА `А xА *АА ░А J╕А JА :XА NША >шА P(А PxА .╚А °А     А"ББ Б     0рр ad_ActiveDwgрр: This routine demonstrates populating a combobox with theр; names of the active drawings and changing between themр$ by selecting from the dropdown.р. It was developed for AutoCAD 2000 and above.    р6 Demand load: -vbarun;ad_ActiveDwg.dvb!ad_ActiveDwg;    рр version 1.00    рр# Copyrightй2001-2009 ActiveDwg.com      ррC This routine is provided for demonstration purposes only and mustF°рC not be used for critical applications without your verificationPф8Pр3 that this routine will perform as you intended.Q<╥QрG This routine may be freely utilized for your own personal use so longLр8 as the entire contents of this header remain intact.LрJ This routine is provided "as-is" and no declaration, written or implied,рJ is made as Form1UserForm1г¤  @■ X       ═а@■ to its reliability for any particular task. Any use of thisр' routine is solely at your own risk.Qр═  °Ц B@4o  ╪    ╨    ф▓Attribute VB_Name = "Module1" ' ad_AcАtiveDwgLThis routine demonstrates popula.g a combobox wi@th theа  n╓s of  a] drawings anАd chang between(m=by sele6ng fromFdropdown.&It wasЫveloped for AutoCAD 2000faboDveDemnБ!П!@ ЖQ"a s-is"ВKno1@Дcla└к@C, Цw└H@2 └Жim@I╪ed,─A@mА<to iА reliabilityУany par└X╝r task8. A5В╢is╟E╩sol┴EYFCri@@ И OpБi ExБl"iАvSubJр() ┴IUserForm1.sho0w E═└     ╦?<<  #И╢  Ё─╘    ╦?<<  #И╢                        x  ME          ▀                                                                                                                                   (SL    S    SФ    <      N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}    8А■       (          %    H                                                                                            ▀■╩АА         ═  x    p    ╨░Attribute VB_Name = "ThisDrawingИ" ИBasИ0{7AABBB95-79BE-4C0F-8024-EB6AF2А71231C} |@Global╬SpacТFalse dCreatablPredeHclaId░Tru BExposeTemplaАteDerivТBustomizD2Option /licit .Item(Ж) ВOad├.Act ivА2БUnload MАVEnd7═:EЙ_Init└ialize╔;S4В └Х Each@-▒AIn ╞&Б ╚8╪AddA+C .зANB>╚$ ╢        <  вVХ┌`Ш╒▒Z│╔┘uО!=╥Е─ а╞&бVХ┌`Ш╒▒Z│╔            x·Ъ8    <<  #ИбVХ┌`Ш╒▒Z│╔вVХ┌`Ш╒▒Z│╔  ╢ЄЄ*    4    ▀                                                                                                                                    (SL    S    SФ    6"      N0{8E75D913-3D21-11D2-85C4-080009A0C626}bЖ; $*\Rffff*113b866335▀     рБ■         (          МM ┤$    H    0    (Г■       p               $Ва    ■   а  ■           L6 $Г■       ╨              ░6 $    @                                    xи@tt    rUААА         @prUААА шБ й ╤     1 4∙ ┴! LayersВ┘ А ActiveLayerД>CommandButton1_Clickф┴UserForm_Initialize5centryй╧А AddItemЗ  adPickDwg7cadNewDwgCїdrawing<0 А Applicationе*Item╫zdrawing_numberёА ActivateЧ|А ClickКу А   Initialize╙NА   _B_var_drawing?$ adActiveDwgФ adCurrDwgDB А   _B_var_SetРА ValueфKthe'┘ retri                                                                                                                            Vc                  8ME          ■╩А__SRP_7            ■   @__SRP_4            ■   f__SRP_5            ■   п__SRP_0            ■   А o    ы8CompObj        щaVBFrame            ф)__SRP_6            ■   ╢            /WХ┌`Ш╒▒Z│╔+WХ┌`Ш╒▒Z│╔!WХ┌`Ш╒▒Z│╔            x▐м Z    <╒  И  ╚ ╓╓    ▀                                                                                                                                @SP    S    S    S    <  А PPА PаА .ЁА  А     АА     "БшАЁА°А     Б Б=└Б рБ °БHА     "БpАxБ$АБ1РБ иБ░А     А         р┼  x    pПhZъ    Zъ    Zъ    о'Hў DЎ >М H D!Vо\ D! 4'H╬ЯFкў┐ >!@д Х$▓'FЁ|Я┤оC:/adDwgList.txt Fг─ Fг H╫Ёh  ( FSl  ПZъШZъШ b!f'zх h %n.|   A@t j (pl  ░Пp   A@tl  РП░ZъЁў DЎ >Мn D! bB@xў┐Hl  @    @х z !А!>%В.О ОB@Ж    И   A@t          р    ° !'Р        @    P    ╪╪ ad_ActiveDwg╪╪; names of the active drawings and changing between them╪> drawing date information from the internal AutoCAD format╪: to Julian format and conversion of the elapsed timer.╪# It was developed in AutoCAD 2000.╪╪ version 1.00╪ 8/24/2001╪╪ Copyrightй2001 ActiveDwg.com╪╪C This routine is provided for demonstration purposes only and must╪C not be used for critical applications without your verification      ╪3 that this routine will perform as you intended.     ╪G This routine may be freely utilized for your own personal use so long  ╪8 as the entire contents of this header remain intact.  ╪J This routine is provided "as-is" and no declaration, written or implied,╪J is made as to its reliability for any particular tА         ┼  x    p┬░Attribute VB_Name = "ThisDrawingИ" ИBasИ0{8E75D913-3D21-11D2-85C4-080009АA0C626} |CreatablAЖFalse ╝PАredeclaDIdКTru "E xposeTemplateDeriv$eCus`tomizИ2O@ption /licit VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Select ActiveDwg" ClientHeight = 570 ClientLeft = 45 ClientTop = 330 ClientWidth = 2610 StartUpPosition = 1 'CenterOwner TypeInfoVer = 3 End ■      Microsoft Forms 2.0 FormEmbedded ObjectЇ9▓qAАHА,Й,5АеTahomaо  }№э0о(х А8ComboBox1╘╘А         ┼  x    p┬░Attribute VB_Name = "ThisDrawingИ" ИBasИ0{8E75D913-3D21-11D2-85C4-080009