╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       -цThisDrawing0144e5c50a  ThisDrawing  *ц%  Module10244e5c50a  Module1  (ц       8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        з∙XoтLB╡dз?Q 6    ╦r$6╠BП╣-fз        HА ┤'AutoCAD"°VBAўтWin16┴~Win32Mac│▓VBA6н# ACADProjectж╘stdoleУ`MSFormsC ThisDrawing╣5 А   _Evaluate┘Module1bad_ColorToLayer▀/ent▌Й AcadRoot Entry        р5─pзы┼@VBA_Project    └!sдHG└р5─pзы┼VBA_Project_Version(            VBA        р┬zдHG└р5─pзы┼ ¤    ■    ■   ■   ■                                                                                                                                                                                                                                                                                                                                                                                                                           ■   ■    ■    !"#$%&(■   )*+,-./0123456789:;<■   >?@ABCDEFGHIJKL■                                                                                                                                                                                                               acadID="{0138C2BB-B311-11D4-839C-0080C6F93F62}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="9B9931D8C8DCC8DCC8DCC8DC" DPB="36349C45AC7B467C467C46" GC="D1D37B7C7C7C7C83" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=-6, 1, 627, 379, Z ingModule1Module1PROJECTwm            '>PROJECT    ЫThisDrawing    =хModule1         к_VBA_PROJECT            u dir            e_VBA_PROJECT            ■   dir            ■   __SRP_0            ■   __SRP_1            ■   n__SRP_4            ■   А__SRP_5            ■   ╕a▓А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-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft EВ: А] ObБн Library/Ї;D1АДАtИАГБИА00}#0ВАF#А0РАrА 138C2AC-B311-11D4-839C80C6F93F62P.└OP\VBE\ДG.EXD /Ас.E ПрЕ.`М(M ┤┴Щ┬Ф"┬-ц┬ЦThisDrawingGАThiА^Draw└ng 2 АHB1б%ЛB,B *ц"B +BГВodulиe1GДВo@еuBеn1@ ┬К2Oв O(ц!H┬*ц"B +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{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{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                                 %Д Д        Xp%                                                                                                ▀■╩>А А А  А 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 dependingр< on their 'hard-wired' color and then changes their colorр+р; to 'ByLayer'. Just insert your colors and target layers╨5р? 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рр# 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 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.р═  PЦ]Є@╔8  ■ !У ! ъ "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-6 ActiveDwg.com Кx@{proviBd─-demoАGrat┴purpoBs└ionlyВ1m d not bDWБEр|г?DС Тub  2Ё° E0}г?DС Тub                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ME          ▀                                                                                                                                   (SL    S    SФ    <      N0{8E75D913-3D21-11D2-85C4-080009A0C626}    8А■       (          %    H                                                                                            ▀■╩        x    ╝░Attribute VB_Name = "ThisDrawingИ" ИBasИ0{8E75D913-3D21-11D2-85C4-080009АA0C626} |@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