аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№ЌдАџџџџДЈ ЛПџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ< џџ<џџџџџџџџџџp Јџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „џџџџџџџџXЙ;ѓ%`„џџџџџџџџџџr@лS`„ џџџџџџџџџџoped`„"џџџџџџџџџџd ab ,џџџџџџџџџџџџџџџџџџџџџџџџџџџџ „ „џџџџџџџџ% .џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ „ „џџџџџџџџ`џџџџ%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ<€ Root Entryџџџџџџџџ яK“рVЩ€VBA_Projectџџџџ`˜Tх$ЬС яK“рVЩVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ`˜Tх$ЬС€hJ“рVЩ§џџџўџџџўџџџ ўџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;ўџџџ=>?@ABCDEFGHIJLўџџџMўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacID="{94CB53D6-37E5-11D6-B11A-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="B2B0131C6420642064206420" DPB="FFFD5ED3E66D326E326E32" GC="4C4EEDA277EE78EE7811" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=198, 198, 752, 698, Z Module1Module1PROJECTwmџџџџџџџџџџџџK>PROJECTџџџџЂThisDrawingџџџџ<Module1 џџџџџџџџЙ_VBA_PROJECTџџџџџџџџџџџџu dirџџџџџџџџџџџџlџџџџџџџџџџџџџџџџџџџџџџџџhВ€0* pH‚dф ACADProject8@е = t  2і‘<( 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€ 9EF5624F-3719-1Р1D6-B1_@4761254F9PРOP\VBEТ\„G.EXD /€с.E р….`ŒM ŠДС™Т”ТЛТ–ThisDrawingG€Thi€^DrawAРng 2E €HB1СЁEBЂ,B Й"B+Bƒ‚odule1ЊG„‚o@ЅuBЅ1@ ›ТŠ2OЎ O(П!HТ000204EF-0Ь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{9EF5624F-3719-11D6-B11A-0004761254F9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџ2і‘<џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЛThisDrawing1Z4abdd602џџThisDrawingџџЙEџџModule11[4abdd602џџModule1џџПЎ џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџb‹jŠdх^B† ;ЌоWБpџџџџ ˆ N+FЛcЫVQџџџџџџџџH€џˆ'AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйModule1bad_FormatLayerNamesnбDwgLayer™г AcadLayerз HoldChar GHoldStrќpStrLenяLayers‚йLCase:щUCase5 Right ad_LayersLowerCaseАлad_LayersUpperCaseк8 AcadDocumentZџџTџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $оЏѕ№ФдџџџџЫ?ЛЙџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџ€ €  € J(€ 4x€ А€ И€ а€ *и€ € J€ J`€ :А€ N№€ >@€ P€€ Pа€ . € P€X€ џџџџ"`€ >h€ :Ј€ Dш€0€8€@€H€ џџџџPh €АШ ш ј€ џџџџ"€ >€ DX€ € џџџџЈР иш€ џџџџ"№€ >ј€ D8€€€ џџџџˆ  ИШ€ џџџџџџџџирр ad_LayerRenameбtррD This routine demonstrates the manipulation of drawing layer names.$їр. It was developed for AutoCAD 2000 and above.рр 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 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рЭџџ –р8This routine reformats all layer names so that the firstzр4 character is uppercase and the rest are lowercase.y< yр> Demand load: -vbarun;ad_LayerRename.dvb!ad_FormatLayerNames;Ўз?]ђ@]ђ`]ђx]ђџ ў !$“ !$& ( !'  !Ќ$м$('O !Ќ '"  ! "$*' ,  (Zџ ўШoџџ№–Јр8This routine reformats all layer names to all lowercase.р?р= Demand load: -vbarun;ad_LayerRename.dvb!ad_LayersLowerCase;4@]ђшџ ў !$“ !$& (џ ўШи?Hсzoџџ–р8This routine reformats all layer names to all uppercase.р= Demand load: -vbarun;ad_LayerRename.dvb!ad_LayersUpperCase;W]ђHџ ў !$“i !$( (џ ўШ№?oџџ0џџџџ(џџџџДAttribute VB_Name = "Module1" ' ad_LaРyerRen„TThis routine demonstrates the manipulation of dr€awing l Žs.ИIt was@veloped for AutoCAD 2000 andР above03versW1.00Copyr ightЉ4-9 Active€Dwg.com( ЗТprovid<‡c/purpoBs€honly‚Cmust7 no€t be uscritical` appl|s with€‘ your €[if a„"that˜Ѕw€ill per€ƒ m €Œ€ inten€Q™Š`mayaCfree€Q€ЦlŒiz„H‚9own&sonMV soр long„?kentire cRotsAltСwheader remain!act!‰Q"as-is"‚KnovclacР…РS, wРH@2 ‰€xim@Ied,Ф! @m€