╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       -цThisDrawing0J4abdd070  ThisDrawing  *ц%  Module10K4abdd070  Module1  (ц       8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        4~Ч,iW-LД╦Ю█Qю{Ё    OХ┤"нCЩ■-┘xNЯ        HА ┤'AutoCAD"°VBAўтWin16┴~Win32Mac│▓VBA6н# ACADProjectж╘stdoleУ`MSFormsC ThisDrawing╣5 А   _Evaluate┘Module1bad_ColorToLayer▀/ent▌Й AcadRoot Entry        а╡ЄN▌V╔@VBA_Project    └!sдHG└а╡ЄN▌V╔VBA_Project_Version(            VBA        р┬zдHG└p@ЄN▌V╔ ¤    ■    ■   ■   ■                                                                                                                                                                                                                                                                                                                                                                                                                           ■   ■    ■    !"#$%&(■   )*+,-./0123456789:;<■   >?@ABCDEFGHIJKL■                                                                                                                                                                                                               acID="{0138C2BB-B311-11D4-839C-0080C6F93F62}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="25278FDE91E995E995E995E995" DPB="34369EEFA2FFA3FFA3FF" GC="4341E9E4F9E5F9E506" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=-6, 1, 627, 379, Z ngModule1Module1PROJECTwm            '>PROJECT    ЭThisDrawing    =хModule1         к_VBA_PROJECT            u dir            l_VBA_PROJECT            ■   dir            ■   __SRP_0            ■   __SRP_1            ■   n__SRP_4            ■   А__SRP_5            ■   ╕h▓А0*Р pHВdф ACADProject8@╒ = t  єб:( 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А 138C2AC-B311-11АD4-839C80C6F93F 62РP└OP\VBДE\ДG.EXD /Ас.E ПрЕ.`МM ┤┴Щ┬Ф┬-ц┬ЦThisDrawingGАThiА^DraВw└ng К2 АHBВ1б%BE,B *ц"B+BГВoduleT1GДВo@еuBе17@ ┬К2O QO(ц!H┬+Bnodulиe1 2Dqo╠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{0138C2AC-B311-11D4-839C-0080C6F93F62}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Libraryс.E ПрЕ.`МM ┤          єб:                        ThisDrawingThisDrawingModule1Module1Entityжi ModelSpace_╓Color2FacRed¤Layer║╞Update╥№acYellowЧ╜acGreenПbacCyanЙpacBlueе} acMagentaZ╨acWhiteўM AcadDocumentZ  T                                                         $nsЁ─╘    ╦-ц*ц  #И╢                        xЁд╘░    м -ц(ц  ╢                        x  ME          ▀                                                                                                                                (<  <  <   <          h                                 %Д Д        X%                                                                                                ▀■╩>А А А  А D(А BpА B╕А FА 8HА 4АА B╕А А А  А *(А XА J`А J░А :А N@А >РА P╨А P А .pА аАи"Б░А╕Б└Б╚Б рБ 6ЁБ(Б 8Б HБ XБpБ АБ РБ аБ╕Б ╚Б ╪Б шББ Б Б 0БHБ XБ hБ xБРБ аБ ░Б └Б╪Б шБ °ББ Б А         0рр ad_ColorToLayerрр= This routine places all objects on certain layers dependingFiр< on their 'hard-wired' color and then changes their colorр; to 'ByLayer'. Just insert your colors and target layersр? into the code. We've used the color constants for the first  р1 7 colors but you can also use a color number.р. It was developed for AutoCAD 2000 and above.    р< Demand load: -vbarun;ad_ColorToLayer.dvb!ad_ColorToLayer;      рр version 1.00Ї9рр# Copyrightй2000-2009 ActiveDwg.com>TR>ррC This routine is provided for demonstration purposes only and mustzФ┼zрC not be used for critical applications without your verificationWь╤Wр3 that this routine will perform as you intended.Е4;ЕрG This routine may be freely utilized for your own personal use so longр8 as the entire contents of this header remain intact.yр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. lр═  PЦ]Є@╔8  ■ !У ! ъrun;ad "KTр(Color #1, could also be input as: Case 1╢1 ($м (  B@& (KTрColor #2╢2 ($м (  B@& *KTрColor #3╢3 ($м (  B@& ,KTрColor #4╢4 ($м (  B@& .KTрColor #5╢5 ($м (  B@& 0KTрColor #6╢6 ($м (  B@& 2KTрColor #7╢7 ($м (  B@&n  Ё  ■╚o  ╪    ╨    Р┤Attribute VB_Name = "Module1" ' ad_ColorToLayerXThis routine places all objects on ceАrtain lns depend(ingм Btheir 'hard-wired' ck and ├ChangZ)>to 'ByУ'. Just insr yourGТHarg╠etЖ=in?TАde. We'└ve use;AАnstanfforG firs╩tД 7Гs а9Р canААso# aГ number.ВIt wВaБГvelop5+AutoCAD 2000{abИoveDemДload: -Аvbarun; ╚а.dvb!М ;А7A9versi┼1.00Е Copy@rightйБ9-9 ActiveDwg.com Кx@{proviBd─-demoАGrat┴purpoBs└ionlyВ1m d not bDWБEр|г?DС Тub  2Ё° E0}г?DС Тub                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ME          ▀                                                                                                                                   (SL    S    SФ    <      N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}    8А■       (          %    H                                                                                            ▀■╩        x    ╝░Attribute VB_Name = "ThisDrawingИ" ИBasИ0{7AABBB95-79BE-4C0F-8024-EB6AF2А71231C} |@Global╬SpacТFalse dCreatablPredeHclaId░Tru BExposeTemplaАteDerivТBustomizD2hisDrawing.zelSpa ce Select Cas:e..xacXRed(' #1, could also be input шas:I1A3АZ■.c|y$ ' = 256ЛUpdatQДCYelXlowГЕC2Ф32;нГ Зj@б3GrXeenЕ33Ф33Q╕3CyaЕ ┼4Е╘4°Blue┼B┼5╘5°Mag╜Аta