╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                     ME          ▀                                                                                                                                   (SL    S    SФ    <      N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}    @А■       (          %    H    @                                                                                    0c┼цD ▀■╩АА         ═  x    p    ╨░Attribute VB_Name = "ThisDrawingИ" ИBasИ0{7AABBB95-79BE-4C0F-8024-EB6AF2А71231C} |@Global╬SpacТFalse dCreatablPredeHclaId░Tru BExposeTemplaАteDerivТBustomizD2Option /licit        $░88       0@■ (       ° `ДB    p     `$Д,    @   иRoot Entry        0└bfKн╔А#VBA_Project    рзч'P╣┴0└bfKн╔VBA_Project_Version(            VBA        рзч'P╣┴а`afKн╔■   ¤    ■    ■                                                                                                                                                                                                                                                                                                                                                                                                                               ■   ■    ■    !"#$%&'()*+,-./0123456789:;<■   >?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz|■   ■   ~АacID="{87473D9B-2507-11D6-B119-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="EEEC95896D995F9D5F9D5F9D5F9D" DPB="DCDEA7B77BA47CA47CA4" GC="CAC8B1AD9EAE9EAE61" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=176, 176, 757, 676, Z , Z le1Module1PROJECTwm            {>PROJECT    вThisDrawing    }!Module1         =╡i▓А0*Р pHВdф ACADProject8@╒ = t  c┼цD( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE AutomatioFn^АMSForms>BSFEr@ms3АDD452EE1-E08F-1 01A-8-02608C4D0BB4 Dindows\system32\FM20.DLL#MicАrosoft В:" А] ObБн Library/·;D1АДАtИАБAИА00}#0ВА#гА0РАrА 5D3A8932-2053-11D6-B1194761254 F9РP└OP\VBДE\ДG.exd /Ас.E ПрЕ.`МM ┤┴Щ┬Ф┬Цx┬ЦThisDrawingGА_VBA_PROJECT            Ц dir            m__SRP_2            ■   \__SRP_3            ■   e_VBA_PROJECT            ■   dir            ■   )__SRP_0            ■   #__SRP_1            ■   nThiА^DraВw└ng К2 АHBВ1бMBE,B Рx"B+BГВoduleT1GДВo@еuBе1╖@ ┬К2O╢╧QMТx!H┬ ThisDrawing╠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{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlb#AutoCAD 2009 Type Library╕*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation▐*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Libraryф*\G{5D3A8932-2053-11D6-B119-0004761254F9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E ПрЕ.`МM ┤        c┼цD                                                             ЦxThisDrawing0E4b52d44b  ThisDrawing  РxM  Module10G4b52d485  Module1  Тx╢       8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        │LСЎ╣DsHД_ ikл└    б52 H┼M╢╫nДV░kГ        HА Ё' AutoCAD"° VBAўтWin16┴~Win32Mac│▓VBA6н# ACADProjectж╘stdoleУ`MSFormsC ThisDrawing╣5 А   _Evaluate┘ Module1b м(ad_TextLayerН╩adText┘╨AcadTextЫ~adSS$·AcadSelectionSet╦╔myLayer┴чfTypeifDatahC SelectionSets╙AddўracSelectionSetAll.┬MsgBoxЧRCount0v TextString Delete╕x AcadDocumentZ  T                                                         $ ЦxТx  ╢  ЁД╘░    ▄░ ЦxТx  ╢                      x  ME          ▀                                                                                                                               (       6     <          H     `            |             Д Д        X№j% Д        x| j%`Д"          ies Д$@    ╚, an░Д&        perfш     Г      8              %    ╕                                                                            c┼цD $*\Rffff*0G4b52d485*\R1*#132*\R1*#19c▀■╩(А А А  А B(А BpА <╕А .°А <(А hА pА ИА *РА └А J╚А JА :hА NиА >°А P8А PИА .╪А АА     "БА А(А0А8БXБ xБ$ИБFXБ░Б╨БрБ>ЁБ 0Б @БP    ирр ad_TextLayerрр; This routine demonstrates the creation of a selection setр; containing all text entities on a specified layer, andр5 stepping through the entities to perform a task.р' Developed for AutoCAD 2000 and above.  р6 Demand load: -vbarun;ad_TextLayer.dvb!ad_TextLayer;    рр version 1.00    рр# Copyrightй2000-2009 ActiveDwg.com      ррC This routine is provided for demonstration purposes only and mustрC not be used for critical applications without your verificationtT tр3 that this routine will perform as you intended.tTtрG This routine may be freely utilized for your own personal use so longtр8 as the entire contents of this header remain intact.tр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 your own risk.р═  шЦ]Є@]Є`]ЄА]ммЄШммЄ╨eэ╢adSS !(%*.5╢0'"мм+$F╢TEXTм+&▓ ,╨╨БВГДЕЖЗИЙКЛМН■                                                                                                                                                                                                                                                                                                                                                                                                                                                                            $ & B@H# !0A@.  ■ Уp╢* !2╢* (2р8Your modifications herep  ■╚d A B@4 Fio  Имм+$F "м+&р$change this to the target layerp    X    √│Attribute VB_Name = "Module1" ' ad_TeАxtLayerLThis routine demonstrates the creation of a sele"csetв containing all t` entitiC96peci@fied ly, and=ste$pp;thДghu>to perform}task.7Devel opP AutoCAD 2000- aboveЕm6 load: -vbarun;ЙГ.dvb! ;1В2verBs}1.00Е CopyrightКйБ6-9 AЙveDwg.com лА░providДX│Б/purHposЦly`musпnot bРe uscrмcal applic╬s withАp your ?└-@[ГА#АhUat│Hzwi└j╞VsA└ inten└(ГNJ0mayБ!fre╞e└(ЛlizD$┬ИownAjsonА&С+ so]ng─vaCУ┴urХ@МАsХtБЯheade`r remТБ!a ct!ЙQ"as-His"ВKnoоcМlaАн└S, w└HБ@2 or im@IXed,─!@mА !┴#o it@╛eliability Уany paаrticu ┬Ь№ A5┴┴+═qsol┴EYFCrBiCл OpВ╠E xliv Sub у() DiА╣dAш AsMАХa┬GSS┼S═тS┴сCmyтzAS`Бa/fType(0 To 1 )┴Iр