╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   йAll╝, !b д aF F░Each└т0I└Рп@Aс a.БS ЯУ= UCaseю(#5(B"N"ЪЖ8Б√л7M__^JlВУMйbA╞D┴Qte E`║└] ^JlВУЁ─╘    ╦?ГБ  #И╢                        x  ME          ▀                                                                                                                                   (SL    S    SФ    <      N0{7AABBThisDrawingThisDrawingModule1Module1B95-79BE-4C0F-8024-EB6AF271231C}    8А■       (          %    H                                                                                            ▀■╩АА         ═  x    p Root Entry        Р┘;<уV╔#VBA_Project     T─Хq?└Р┘;<уV╔VBA_Project_Version(            VBA        @ї╦Хq?└ЁR:<уV╔¤    ■    ■   ■                                                                                                                                                                                                                                                                                                                                                                                                                               ■   ■    ■    !"#$%&'()*+,-./0123456789:;<■   >?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy■   {|}~АacID="{D3D7A700-AB3C-11D4-B112-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="9F9D36FF56010B050B050B050B05" DPB="585AF102F202F202" GC="1113B8BDB9BDB942" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=-10, 8, 751, 713, Z , 713, Z PROJECTwm            Б>PROJECT    ЪThisDrawing    zModule1         =6_VBA_PROJECT            е dir            o_VBA_PROJECT            ■   dir            ■   __SRP_0            ■   ╚__SRP_1            ■   n__SRP_4            ■   t__SRP_5            ■   ek▓А0*Р pHВdф ACADProject8@╒ = t  ╝{°9( 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А 4AA0943F-A981-11D4-B112105A11B3C9РP└OP\VBE\ДG.exd /Ас.E ПрЕ.`М(M ┤┴Щ┬Ф"┬Г┬ЦThisDrawingGАThiА^Draw└ng 2 АHB1бEЛB,B Б"B +BГВodulиe1GДВo@еuBеn1@ ┬К2Oxг╧MП!H┬odule1я╠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{4AA0943F-A981-11D4-B112-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E ПрЕ.`МM ┤          ╝{°9                                                            ГThisDrawing2h4abdda7e  ThisDrawing  БE  Module12i4abdda7e  Module1  Пx       8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Р┘nВ ОJй·iW\4.    Я▀Щ╩л─сEЖШ<аS1Е        HА 4(AutoCAD"°VBAўтWin16┴~Win32Mac│▓VBA6н# ACADProjectж╘stdoleУ`MSFormsC ThisDrawing╣5 А   _Evaluate┘Module1b ad_ToUpper&єadText┘╨AcadTextЫ~adMText╫r AcadMText °adSS$·AcadSelectionSet╦╔fTypeifDatahC SelectionSets╙AddўrErroКClearу═acSelectionSetAll.┬ TextString UCase5 Delete╕x AcadDocumentZ  T                                                         $ГП  ╢  ЁT╘░    ^r ГП  ╢                        x  ME          ▀                                                                                                                               (<  <   <$<                                           Д Д        X% Д        xрJav% Д"        Шnd a% Д&        ╨ -v╕Д(        ion Ё     ш                                                                                            ▀■╩.А А А N А .pА 8аА ╪А рА °А *А 0А J8А JИА :╪А NА >hА PиА P°А .HА xААА     "БИАРАШАаАиА     Б╚Б&шБ А     БJ БpБРБаБ ╕А     Б ╚БL╪Б(БHБXБ pА     Б АБР    ар ad_ToUpper3tррH This routine changes all MText and Text in a drawing to all uppercase.avр' Developed for AutoCAD 2000 and above.р2 Demand load: -vbarun;ad_ToUpper.dvb!ad_ToUpper;рр version 2.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 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.zр═  xЦ]Є@]Є`]ЄА]ммЄаммЄ╪zэ╢adSS !*%,."\cz .ЫGэ╢adSS !*%,."jol "B@0r own мм+&F╢TEXTм+(Fмм+&F╢*м+(Є└ 2╨╨ & ( "B@H"rm  ■ "У !4$6 (4th  ■╚izes t "B@0 valueмм+&F╢MTEXTм+(Fмм+&F╢*м+( 2╨╨ & ( "B@H    ■ "У !4$6 (4Ы  ■╚м "B@8$ o  h    `    ║│Attribute VB_Name = "Module1" ' ad_ToU0pper8DThis routine changes all MText and in a drawing t oDuРcase.ФDeveloped for AutoCAD 2000Fabo v)mXload: -vbarun;Ь.dvb!;^aversion 2.00CopyriPghtйi-9 ActiveD└wg.comКtБzprovidДVdemonstratБ/purpoBsДonly^m(ust$ noАt be uscritical` applБ s withАк yРour А[if БД"that t ╛wiА║А╠Юm asБ intenGАQ░К`mayCfreeАQА▀lizCD$┬own @s onА&+ so 0long─thАe entir~Вots of%header rema@~А!act!ЙQ"as-is"ВKno dec─la├S, w└H@2 └Еim@Ied,╗─!@mА<@ХiА reliabilityТany (par└Xu t└ask. A5П─+┼▒sol┴E3YFCri@@ дOpВyExliv SubH╟()@ DibdщВ┐AsХa┬GГ╚GД╟SS Sele└гonSe@CfType(А0 To 1) I└_ger, fЁDataEБ┴@S'А= ┴АDГс.Is.Add(" adSS"ВIf Errрen  tю! .Cle▓a@Е бД)аК 0:б"TEXT"@в= 83в"*└ПбПSSД acВ■   ГДЕЖЗИЙКЛ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ╨░Attribute VB_Name = "ThisDrawingИ" ИBasИ0{7AABBB95-79BE-4C0F-8024-EB6AF2А71231C} |@Global╬SpacТFalse dCreatablPredeHclaId░Tru BExposeTemplaАteDerivТBustomizD2Option /licit ru BExposeTemplaАteDerivТBustomizD2Option /licit Є    4    ▀                                                                                                                                    (SL    S    SФ    6"      N0{