ࡱ> __SRP_0 x vz<<P<<<"<< <<<h$V0Root Entry0V@VBA_Projectڿ0VVBA_Project_Version(VBA ڿV 6 !"#$%345789  !"#$%&'()*+,-./0123456789:;=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrtuvwxyz{|}~acID="{6705909B-45B2-11D4-B111-00105A11B3C9}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=Module2 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="4A48322D1B311B311B311B31" DPB="37354F40D1C0BFC1BFC1BF" GC="24265C73A461A561A59E" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module2=105, UserForm1`ڿ`ڿPROJECTwm>PROJECTf71, 780, 614, Z sDrawingModule2Module2j0* pHd ACADProject8@ = t  p_:( 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-02608C4D0BB4 Dindows\system32\FM20.DLL#Microsoft :" ] Ob Library/;D1tA00}#0#0r 89CD4EAB-50C5-11D4-B112105A11B3C9POP\VBE\o pCompObj aVBFrame1ThisDrawing sModule2< _VBA_PROJECT dir ndir!__SRP_3~__SRP_2_VBA_PROJECTdirL__SRP_6__SRP_1rModule2 __SRP_7@G.exd /.E .`(M ”"vz–ThisDrawingGThi^Drawng 2 HB1%B,B tz"B +Bodule2Go@uBn2@ Š2O O!H 1 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{89CD4EAB-50C5-11D4-B112-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   p_:vzThisDrawing184abdd373ThisDrawingtz%Module2194abdd373Module2 8B=<$Gt77jEw!Hx&AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule2cad_FixPlotStylesdwgLayer AcadLayer Layers PlotStyleName  AcadDocumentZT   $ vz vzxME(<<< <h   X%"    J( Lx H N :` 4 D   ( @ *H x J J :  N` > P P@ . " 8 @P` ad_FixPlotStylesD This routine changes all layer plot styles to 'ad_NamedStyle.stb'.esE It would be useful in bringing out of date or outside drawings upB to a current standard. This routine blindly changes all stylesH to 'ad_NamedStyle', but you could insert a test to change particular3 style names to one of several different styles.. It was developed for AutoCAD 2000 and above.> Demand load: -vbarun;ad_FixPlotStyles.dvb!ad_FixPlotStyles;} version 1.00<~# Copyright2000-2009 ActiveDwg.com~~C This routine is provided for demonstration purposes only and mustLTC 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 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.0]@  ! !  ad_NamedStyle ad_NamedStyle ( k oAttribute VB_Name = "Module2" ' ad_FixPlotStyles\This routine changes all layer p` sb` to 'd.stb'. It would be useful in bring a@ of daorside draws upGea currentyandard. blindly R" U', you cRinsert a testm} parti`cular%+ jnsocseveral diffeUas dloped fyAutoCAD 2000 k abov"eDemload: -vb arun;.dvb! ;S*$sion 1.00CopyriPghtA-9 ActiveDwg.com Wa@provgC.demonstratpurpos@on`-must not1criSJapplicBs withcr -ifDthadIwiperR m Vrinte0ndedPJ0may!free(lizaownb @son&@ so long!the @ir@otst%headrm1!act!Q"a s-is"}no@c@BC, wH%@2 im@Iedv,!@m "^"en! ?%End IfaNex2t& @ vztz#xME (SLSS<N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}8(%HxAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2ThisDrawingThisDrawingModule2Module2Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |CreatablAFalse PredeclaDIdTru "E xposeTemplateDeriv$eCus`tomiz2ThisDrawingThisDrawingModule2Module2    DH"P $pX   Phlph= in the current drawing. It was developed in AutoCAD 2000.D 20 version 1.00"#0 7/22/2000< Copyright2000 Walter F. Blair -- http://www.ActiveDwg.comC This routine is provided for demonstration purposes only and must,C 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.hZP v!DrafTech v !& DrafTech v(yer.H6 Demand load: -vbarun;ad_LayerList.dvb!ad_LayerList;p FixPlotStyles> This routine changes all layer plot styles to 'Draftech.stb' v if dAttribute VB_Name = "Module2" ' FixPlotStylesPThis routine changes all layer p` sb to 'Drafte@ch.stbOption Explicit Sub g()  Dim dwgLUAs Acad For Each)In vwing.O1QIf*.Cm<> "VTV"!en1E End IfNext:  z <-u^Zu!= &-u^Zx"8vztz#-u^Z-u^Z>4(SLSS6"N0{8E75D913-3D21-11D2-85C4-080009A0 4Qt[pxl]hx lh=/hN x QXtplp" $  pltp"$ p$,txlpXT lx" $  x` $ xh$t"$ 4Qt[pxld1'Hhx x>hFXt! t t6XH_B_var_entryCommandButton1|CommandButton1_ClickClickComboBox1_ClickModule2c ad_LayerList _B_var_Subtoggles _B_var_InX X  h 1 Qx  PC626}l_:$*\Rffff*8c3978a002 h(0046$`ed\v $\ $2%e $0 $( $the'currente ActiveLayer>NewLayerx PickLrU~} rU $`p y 4Aai`18aayer _B_var_SetItemzsimply populatesaX FixPlotStylesdwgLayer dwgLayers=this xl&`0Nplxhtk8  ` <QAy`1_?`$pt! t >p1xt $(xptT lx"$ x $ xh$t"$ 4Qt[pxld1'Hhx x>hFXt! t t6XH xl&4h0plxhtXH8<4Kdwg'O_B_var_thisdwgR thisdrawingwg _B_vX $80@tt0MExAttribute VB_Name = "ThisDrawing" BtzB$V`$((V$V$`V$ v8h@  wxh ` xPhHlO h  hh8ME# ( @ 0 JX L Hh N :H *8 D     $  J JH : N >( Ph P . 8@"H P  hlph= in the current drawing. It was developed in AutoCAD 2000.D 20 version 1.00"#0 7/22/2000< Copyright2000 Walter F. Blair -- http://www.ActiveDwg.comC This routine is provided for demonstration purposes only and must,C 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.hZ v !& H6 Demand load: -vbarun;ad_LayerList.dvb!ad_LayerList;p FixPlotStyles v! ad_NamedStylell ad_NamedStyle v(ftech. v if d# It was developed in AutoCAD 2000.rosshaB to a current standard. This routine blindly changes all styles version 1.00 1/15/2001C 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. ad_FixPlotStylesD This routine changes all layer plot styles to 'ad_NamedStyle.stb'.E It would be useful in bringing out of date or outside drawings uplopeH to 'ad_NamedStyle', but you could insert a test to change particular3 style names to one of several different styles.> Demand load: -vbarun;ad_FixPlotStyles.dvb!ad_FixPlotStyles;  Copyright2001 ActiveDwg.com@ Attribute VB_Name = "Module2" ' ad_FixPlotStyles\This routine changes all layer p` sb` to 'd.stb'. It would be useful in bring a@ of daorside draws upGea currentyandard. blindly R" U', you cRinsert a testm} parti`cular%+ jnsocseveral diffeUas dlopedAutoCAD 2000Demn load: -vbarun; .dvtb! ;NOBsion 1.00A1/15/1@CopyrightA ActiveDwg.8com WprDov@gd fjdemonstratpurposon`/mustB not1criSIapplicBs withcr 0ifDtha@dɥwiper# m Vqinte0ndedRJ0may!free(8liza3own @son& so@angthe irRotsAt%head@r@o!act!Q"as -is" KnocBC, wH%@2 @Zim@Iedv,!@m<i reliabilityfany task. AT E| 8sol",!riC   Op, "_ǎ"en! %@E nd IfaNedxt& @ l KEnd IfNext& A lPl A@t (!f'h(Z ad_LayerList%eB This routine populates a combobox with the layers in the current% It was developed in AutoCAD 2000.n Au f (df%e version 1.00L%e 7/22/2000< Copyright2000 Walter F. Blair -- http://www.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.X; drawing and makes the selected layer the current layer.Zp A@tMsgBox MsgBox PickLayerx h %&.f6 Demand load: -vbarun;ad_LayerList.dvb!ad_LayerList;)Attribute VB_Name = "UserForm1" " Bas0{59E6DB2F-E8A0-11D4-B115-00105A11B3C9}J5J dCreatabliFalse PredeclaIdTru "Expose@Template DerivCu@stomizD' ' ad_LayerList This routine popu1s a combobox with the ls incurren# dad_FixPlotStylesTW  $ 6as0{8E75D913-3D21-11D2-85C4-080009A0C626} |CreatablAFalse PredeclaDIdTru "E xposeTemplateDeriv$eCus`tomiz22-u^Z>4(SLSS6"N0{8E75D913-3D21-11D2-85C4-080009A0C626}vx9'$*\Rffff*8c3978a002 h(0046$rU @prU i A 4  Vc`ed\v $\ $2%e $0 $( $X $80@tt0MExAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |CreatablAFaVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "ActiveDwg Current Layer" ClientHeight = 1260 ClientLeft = 45 ClientTop = 330 ClientWidth = 2580 StartUpPosition = 1 'CenterOwner TypeInfoVer = 2 End  Microsoft Forms 2.0 FormEmbedded Object9qAH,{5Tahoma(CancelqOuTahoma  }`( 8ComboBox1o,8CommandButton1a"H H"$$ k`<`q