ࡱ> xME (SLSS<N0{8E75D913-3D21-11D2-85C4-080009A0C626}8(%HxAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C6ThisDrawingThisDrawingModule1Module1 26} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2 !$Root Entry@3 "VBA_Project!sHG@3 VBA_Project_Version(VBAzHG@1     !"#$%&'()*+,-./0123456789:;<>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvxyz{|}~acadID="{0138C2BB-B311-11D4-839C-0080C6F93F62}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="DEDC74998CA7AFABAFABAFABAFAB" DPB="FDFF57B669D46AD46AD4" GC="1C1EB6D7CAF7CBF7CB08" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=-6, 1, 792, 768, Z Module1Module1PROJECTwm>PROJECTThisDrawingwModule1 =C_VBA_PROJECT dire_VBA_PROJECTdir,__SRP_0__SRP_1n__SRP_4__SRP_5a0* pHd ACADProject8@ = t  yJ<( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE AutomatioFn^MSForms>BSFEr@ms3DD452EE1-E08F-1 01A-8-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft E: ] Ob Library/;D1t00}#0F#0r 960EA802-EB33-11D5-B1194761254F9P.OP\VBE\G.exd /.E .`(M ”"-–ThisDrawingGThi^Drawng 2 HB1%B,B *"B +Bodule1Go@uBn1@ Š2O O(!HLES\MICROSOFT SHARED\VBA\VBam  *\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{960EA802-EB33-11D5-B119-0004761254F9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   yJ< -ThisDrawing0R44e5c58fThisDrawing*%Module10S44e5c58fModule1( 8`q8G)l0DMKeaےH'AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule1bad_EntityByLayer!adEnt}~ AcadEntityiadSS$AcadSelectionSetfTypeifDatahC SelectionSetsErroAddrClearacSelectionSetAll.Color2FLinetypeUpdate AcadDocumentZT   $= -(4= -(xME(<< < <  X\ % xP% "tion$elop '    D( Hp 4 D     *( X J` J : N@ > P P  .p "& 0"@h    ( ad_EntityByLayer= This routine cycles through the current drawing and updatesA color and linetype information for all entities to 'ByLayer'.> Demand load: -vbarun;ad_EntityByLayer.dvb!ad_EntityByLayer; version 1.00# Copyright2000-2006 ActiveDwg.comC This routine is provided for demonstration purposes only and mustC not be used for critical applications without your verification3 that this routine will perform as you intended.G This routine may be freely utilized for your own personal use so long8 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.]@]`]conadSS %&. (GadSS !&%*.jo B@,es\+"F*+$c:\ . " $ B@Hhar  a (0c:ByLayer (2ca B@4st~ doco. It was developed for AutoCAD 2000 and above.anAttribute VB_Name = "Module1" ' ad_EntityByLayer\This routine cycles dth gh$urrent drawing and updates colo rlCtype informa tion all Diti]Ho ''.CIt was developed3AutoCAD 2000]aboDve0Demload: -v@barun; q.dvb! ;8:versO1.00 CopyriPght:-6 ActiveDwg.comprovid\demonstrpurpos{onlydmus t$ not be uscrcal applic s with your2 [if "thLatkrwi@\ptera V@eten(PJ0maya!free(l izD$own 1@son&+ so long(theBxr@onAts of%header rmin!act!Q"as-is"KDno@claS,, wH im@Ied,!@m!DCy.i s("adSS2"If`en ts.Add! .Clea = 0:Ma*!SSd acAll, /!BdF`Each)In! *.C= 256L% dbU"!a' E`: -*#-*#