аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЉ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{8E75DThisDrawingThisDrawingModule1Module1913-3D21-11D2-85C4-080009A0C626}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€€ џџџџџџџџЭџџxџџџџpџRoot EntryџџџџџџџџPд)НЊыХ#VBA_Projectџџџџ TФ•q?РPд)НЊыХVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ@ѕЫ•q?РPc'НЊыХ§џџџ ўџџџ ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;<ўџџџ>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyўџџџ{|}~€acadID="{D3D7A700-AB3C-11D4-B112-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="A2A00BC292C692C692C692C6" DPB="2D2F845384DF85DF85DF" GC="B8BA11621262129D" [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џџџџџџџџџџџџg_VBA_PROJECTџџџџџџџџџџџџўџџџdirџџџџџџџџџџџџўџџџ__SRP_0џџџџџџџџџџџџўџџџШ__SRP_1џџџџџџџџџџџџўџџџn__SRP_4џџџџџџџџџџџџўџџџt__SRP_5џџџџџџџџџџџџўџџџecВ€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-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft E‚: €] Ob­ Library/є;D1€„€tˆ€ƒˆ€00}#0‚€F#€0€r€ 4AA0943F-A981-11D4-B112105A110B3C9P.РOP\VBE\„G.exd /€с.E р….`PŒM ДС™Т”DТƒТ–ThisDrawi ngG€Thi€^DrawРng* 2 € HB1ЁEB,B "B+Bƒ‚oduPle1G„‚o@ЅuнBЅ1@ ТŠ2OFxЯM!HТModule1яЬ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{4AA0943F-A981-11D4-B112-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџМ{ј9џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџƒThisDrawing1v44e5c9eaџџThisDrawingџџEџџModule11w44e5c9eaџџModule1џџx џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ7ье-3ХJ‰06R…—&џџџџ6д9žжhLІ{;Лž3эЎџџџџџџџџ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№а!% „"џџџџџџџџ˜pper% „&џџџџџџџџа И„(џџџџџџџџ№ џџџџшџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ.€ € € N € .Ш€ 8p€ Ј€ А€ ј€ *€ 0€ J8€ Jˆ€ :и€ N€ >h€ PЈ€ Pј€ .H€ x€€€ џџџџ"ˆ€€˜€ €Ј€ џџџџШ&ш € џџџџJ p  И€ џџџџ ШLи(HX p€ џџџџ €џџџџ р ad_ToUpperррH This routine changes all MText and Text in a drawing to all uppercase.р2 Demand load: -vbarun;ad_ToUpper.dvb!ad_ToUpper;рр version 2.00р' Developed for AutoCAD 2000 and above.daрр# CopyrightЉ2000-2006 ActiveDwg.comџџџџџџррC This routine is provided for demonstration purposes only and mustџџџџџџрC not be used for critical applications without your verificationtions р3 that this routine will perform as you intended.e willрG This routine may be freely utilized for your own personal use so longr р8 as the entire contents of this header remain intact.tsр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.inрЭџџ@–]ђ@]ђ`]ђ€]ЌЌђ ЌЌђиэЖadSS !*%,."џџџџ .›GэЖadSS !*%,."j "B@0џџ ЌЌ+&FЖTEXTЌ+(FЌЌ+&FЖ*Ќ+( 2аа & ( "B@H&џ ў "“ !4$6 (4џ ўШ4 "B@08ЌЌ+&FЖMTEXTЌ+(FЌЌ+&FЖ*Ќ+(L 2аа & ( "B@HTџ ў "“ !4$6 (4џ ўШb "B@8foџџ0џџџџ`џџџџКГ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-6 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{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Option /licit ru BExposeTempla€teDeriv’BustomizD2Option /licit ђџџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{