╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (SL    S    SФ    <      N0{8E75D913-3D21-11D2-85C4-080009A0C626}    8А■       (          %    H                                                                                            ▀■╩АА         ═  x    p    ╨░Attribute VB_Name = "ThisDrawingИ" ИBasИ0{8E75D913-3D21-11D2-85C4-080009АA0C626} |@Global╬SpacТFalse dCreatablPredeHclaId░Tru BExposeTemplaАteDerivТBustomizD2Option /licit     Г      Р              $ Д*@X   P ДG    t   XГ      Ё                 $░88       0@■ (       ° `ДB    p     `$Д,    @   иRoot Entry        p7В7@ь┼#VBA_Project    рзч'P╣┴p7В7@ь┼VBA_Project_Version(            VBA        рзч'P╣┴p╞7@ь┼■   ¤    ■    ■                                                                                                                                                                                                                                                                                                                                                                                                                               ■   ■    ■    !"#$%&'()*+,-./0123456789:;<■   >?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy■   |■   }~АacadID="{87473D9B-2507-11D6-B119-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="64661F4061E565E565E565E565" DPB="05077E23BEC5BFC5BFC5" GC="A6A4DDBEDFFE81FF81FF7E" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=176, 176, 757, 676, , Z le1Module1PROJECTwm            {>PROJECT    гThisDrawing    zModule1         =.b▓А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-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft EВ: А] ObБн Library/Ї;D1АДАtИАГБИА00}#0ВАF#А0РАrА 5D3A8932-2053-11D6-B1194761254F9P.└OP\VBE\ДG.exd /Ас.E ПрЕ.`М(M ┤┴Щ┬Ф"┬Цx┬ЦThisDrawingGАThiА^_VBA_PROJECT            д dir            f__SRP_2            ■   \__SRP_3            ■   e_VBA_PROJECT            ■   dir            ■   )__SRP_0            ■   #__SRP_1            ■   nDraw└ng 2 АHB1бEЛB,B Рx"B +BГВodulиe1GДВo@еuBеn1@ ┬К2OGг╧MТx!H┬ect 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{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}#1.1#0#C:\Program Files\Common Files\Autodesk Shared\acax16enu.tlb#AutoCAD 2006 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                                                             ЦxThisDrawing0O44e6c412  ThisDrawing  РxE  Module10P44e6c412  Module1  ТxG       8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        PИN  MФV╝D~2ё    Фў>╧=ЇMБ│=ч9╡яK        HА (AutoCAD"°VBAўтWin16┴~Win32Mac│▓VBA6н# ACADProjectж╘stdoleУ`MSFormsC ThisDrawing╣5 А   _Evaluate┘Module1bad_TextOnLayer╤ЄadText┘╨AcadTextЫ~adSS$·AcadSelectionSet╦╔myLayer┴чfTypeifDatahC SelectionSets╙AddўracSelectionSetAll.┬MsgBoxЧRCount0v TextString Delete╕x AcadDocumentZ ad_TextLayerН╩  T                                                         $ЦxТx  ╢  ЁМ╘░    ХA ЦxТx  ╢                        x  ME          ▀                                                                                                                              (<  <   <   <      P    8                            Д Д        X% Д        x%`Д"          ies Д$        ╚, an░Д&        perfш 8                                Д    ░                                                                                            ▀■╩(А А 0А А BА BXА <аА .рА <8А А А HА *А PА JXА JиА :°А N8А >ИА P╚А PА .hА ШАаА     "БиА░А╕А└А╚БшБ Б$Б @Б`БАБРБ>аБ рБ ЁБ    Аррр; 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.  рр version 1.00    р ad_TextLayer    ррр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 task. Any use of thisр' routine is solely at your own risk.р═  ╪Ц]Є@]Є`]ЄА]ммЄШммЄ╨э╢adSS !(%*.╢0'"мм+$F╢TEXTм+&мм+$F "м+& ,╨╨ $ & B@H !0A@.  ■ У╢* !2╢* (2р8Your modifications here  ■╚ B@4БВГДЕЖЗИЙКЛ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   o  xр# Copyrightй2000-2006 ActiveDwg.comр6 Demand load: -vbarun;ad_TextLayer.dvb!ad_TextLayer;    А    у│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-6 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р