╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   __SRP_0            ■                                        ╢                        x▐ ╬    vz╛с    <╓╓<    ▀                                                                                                                                P<  <  <  "<  <   <  <  <      ▀h╨$ГV      0      Root Entry        @ЬYиы┼└@VBA_Project    └┴д┌┐@ЬYиы┼VBA_Project_Version(            VBA         Ащн┌┐@ЮЩYиы┼■       ¤    6 !"#$%3                                                    457■   89■                                                                                                                                                                                                                                                                                           ■   ■    ■    !"#$%&'()*+,-./0123456789:;■   =>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqr■   tuvwxyz{|}~АacadID="{6705909B-45B2-11D4-B111-00105A11B3C9}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=Module2 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="FDFF85399D83A183A183A183A1" DPB="4B49338F8090809080" GC="999BE112E212E2ED" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module2=105, 71, 78UserForm1    `▓╛┌┐`▓╛┌┐PROJECTwm            Г>PROJECT    ╦f            О0, 614, Z 4, Z sDrawingModule2Module2b▓А0*Р pHВdф ACADProject8@╒ = t  Хp_:( 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А 89CD4EAB-50C5-11D4-B112105A110B3C9P.└OP\VBE\ДG.exd o     ■pCompObj         №aVBFrame            ў1ThisDrawing     sхModule2        <а _VBA_PROJECT             dir             fdir            ■   !__SRP_3            ■   ~__SRP_2            ■   Є_VBA_PROJECT            ■   dir            ■   L__SRP_6            ■   __SRP_1            ■   rModule2            ■   н __SRP_7            ■   @/Ас.E ПрЕ.`PМM ┤┴Щ┬ФD┬vz┬ЦThisDrawi ngGАThiА^Draw└ng* 2 А HB1б%B,B tz"B+BГВoduPle2GДВo@еu▌Bе2@ ┬К2ODЎ O╛с!H┬ГКa 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{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{89CD4EAB-50C5-11D4-B112-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E ПрЕ.`МM ┤          Хp_:                                                            vzThisDrawing0_44e5c637  ThisDrawing  tz%  Module20`44e5c637  Module2  ╛сЎ       8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        +мC'U№F░-Ы╩@╢ l    ╫¤▐¤┐dL╣═ь З╫zт        HА x&AutoCAD"°VBAўтWin16┴~Win32Mac│▓VBA6н# ACADProjectж╘stdoleУ`MSFormsC ThisDrawing╣5 А   _Evaluate┘Module2cad_FixPlotStylesэdwgLayerЩ╙ AcadLayer╫ LayersВ┘ PlotStyleName ю AcadDocumentZ  T                                                         $╘░    м vz╛с  ╢  Ёд╘░    мЁ vz╛с  ╢                        x  ME          ▀                                                                                                                                (<  <  <   <          h                                  Д Д        X%                                                                                                ▀■╩"А А А  А J(А LxА H╚А NА :`А 4 А DаА шА ЁА А *А @А JHА JША :шА N(А >xА P╕А PА .XА ИАР"БШАаА     БиБ└БрББ Б    `рр ad_FixPlotStylesррD This routine changes all layer plot styles to 'ad_NamedStyle.stb'.se) рE It would be useful in bringing out of date or outside drawings upрB to a current standard. This routine blindly changes all stylesрH to 'ad_NamedStyle', but you could insert a test to change particular  р3 style names to one of several different styles.      р> Demand load: -vbarun;ad_FixPlotStyles.dvb!ad_FixPlotStyles; verрр version 1.00at tрр# Copyrightй2000-2006 ActiveDwg.come freeррC This routine is provided for demonstration purposes only and mustf thisрC not be used for critical applications without your verificationclaratр3 that this routine will perform as you intended.ility рG This routine may be freely utilized for your own personal use so longn р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.-р═   Ц]Є@  ■ !УNDO ! ╢ ad_NamedStyleЬ0╢ ad_NamedStyle ( t Fk  ░  ■╚jo  Шр. It was developed for AutoCAD 2000 and above.    а    ж│Attribute VB_Name = "Module2" ' ad_FixPlotStyles\This routine changes all layРer p` sb` to 'М┬dБИ.stb'.╝ It would be useful in аbring a@ of daжorside draws upGea currentyandard. зbliЁndly пR" U', АР you cВRinsert a testmГ} parti`cular%В+ jnлsoУАcseveral dЁiffeUлГЖБЕas dloped fyAutoCAD 2000 k abov"eDemБload: -vb arun;Н┘.dшvb! ;АSВ*$sion 1.00┼CopyriPghtйA-6 ActiveD└wg.com КWa@Дprov└gC.demonstrat┴purpos@ЙonА`Б-musКt notА1ГcriАSJapplicBs wШithДАcr └-МifДDtha└dЙIжwiАдperR m АVrinte0ndedГPJ0ma┬yБ!free└(╖lizДa┬ownb @sonА&@л Аso long─!the @аirе@┼ots┴пt%╨head└╞rmА╕1А!act!ЙQ"a s-is"┬}noН@Жc@ШBC, w└H%@2 └Иim@Iedv,─!@mА<А┼iА reliabilityХanyИм task. ■AАБрTсД Е|А 8solс"А,ж!riC   Op┬ Ц"└^П"Аen! ?%мАаЛуEnd IfaNex2t& @                                 Ё─╘    ╦vztz  #И╢                        x  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ТBustomizD2■╩ThisDrawingThisDrawingModule2Module2ИBasИ0{8E75D913-3D21-11D2-85C4-080009АA0C626} |CreatablAЖFalse ╝PАredeclaDIdКTru "E xposeTemplateDeriv$eCus`tomizИ2ThisDrawingThisDrawingModule2Module2       ■╩А А ЁА  А DАH"БАPА     Б$pБXБ  ИББ PБ    hПl  ph╪╪╪= in the current drawing. It was developed in AutoCAD 2000.D 20╪╪ version 1.00"#0╪ 7/22/2000а╪╪< Copyrightй2000 Walter F. Blair -- http://www.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.╪┼  hZъP v!ДоDrafTechХў vЎ !&М оDrafTech v(Дyer.    H╪6 Demand load: -vbarun;ad_LayerList.dvb!ad_LayerList;    p╪ FixPlotStyles╪> This routine changes all layer plot styles to 'Draftech.stb'ў vЎ└ if d    Ш▒Attribute VB_Name = "Module2" ' FixPlotStylesPThis routine changes all layer p` sb to 'Drafte@ch.stbкOption Explicit Sub g()  Dim dwgLUAs Acad For Each)In бvwing.O1╗QIf*.CЖmВ<> "VTхV"А!en1ЕЕE ЫЖEnd ДIfГNext:  z ╢        <  №-uё^╘▒Z│╔┘uО!=╥Е─ а╞&√-uё^╘▒Z│╔            x·"8    vztz  #И√-uё^╘▒Z│╔№-uё^╘▒Z│╔  >ЄЄТ    4    ▀                                                                                                                                    (SL    S    SФ    6"      N0{8E75D913-3D21-11D2-85C4-080009A0 4Qt [p x ■Иl ]h x  Рlh √=/h N x  ФQX t p l¤Ьp " $  p lt ¤Ьp "$ Иp $И,t x l p X T l¤Ьx " $  x ` $ x ┤h$t "$ 4Qt [p x ■Иl d1'H h x  x>h FX t ! Рt  ╨t 6X H  _B_var_entryЦУCommandButton1|╘CommandButton1_Clickф┴А ClickКуComboBox1_ClickОModule2c ad_LayerListхЕ А   _B_var_Sub╜ТtogglesАо А   _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╥╥╥и¤  `1                                                8aБЙ╤╤ayerЯ А   _B_var_SetРItem╫zsimplyє populatesмaX FixPlotStylesЬ▌dwgLayerЩ╙ dwgLayers=Цthis x ■Лl &`0Np l x h t k                                  8┴ Бщ ╤╤╤Ю¤  `ё                                                                 <QAy╥╥╥и¤  `1                                                _ ?`$p t ! Рt  Ф>p 1x t  $(x p t T l¤Ьx "$ x  $ x ┤h$t "$ 4Qt [p x ■Иl d1'H h x  x>h FX t ! Рt  ╨t 6X H  x ■Лl &4h0p l x h t X H 8<4Kdwg'OА   _B_var_thisdwgлR thisdrawingwgБл А   _B_v  X                   $    8                                    0@tt                      0ME          ■╩        xн░Attribute VB_Name = "ThisDrawingИ" ИB        tzB$ГV      `                  $((ГV      а                  $ГV      ╨                  $    `ГV                    $ Дv            и8h @           Д     Дwx   h     И    `                         Д   ╪Р  x    ░    ╚    ш                            P                                                                                                                h░    Hl  O    ╕    h               рh                h                        8                                ME          ■╩#А (А @А 0А JXА LиА HhА N°А :HА *8А DРА ░А ╕А ╨А шА $рА ЁА J°А JHА :ША N╪А >(А PhА P╕А .А 8А@"БАHА     БPБ╨БЁББ Б     Пhl  ph╪╪= in the current drawing. It was developed in AutoCAD 2000.D 20╪╪ version 1.00"#0╪ 7/22/2000а╪╪< Copyrightй2000 Walter F. Blair -- http://www.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.╪┼  hZъў vЎ !&М     H╪6 Demand load: -vbarun;ad_LayerList.dvb!ad_LayerList;    p╪ FixPlotStyles v!До ad_NamedStyleХllо ad_NamedStyle v(Дftech.ў vЎ└ if d    Ш╪╪╪# It was developed in AutoCAD 2000.rossha╪B to a current standard. This routine blindly changes all styles╪╪ version 1.00╪ 1/15/2001╪╪╪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.╪╪ ad_FixPlotStyles╪D This routine changes all layer plot styles to 'ad_NamedStyle.stb'.╪E It would be useful in bringing out of date or outside drawings uplope╪H to 'ad_NamedStyle', but you could insert a test to change particular╪3 style names to one of several different styles.    А╪> Demand load: -vbarun;ad_FixPlotStyles.dvb!ad_FixPlotStyles;     ╪ Copyrightй2001 ActiveDwg.com    @ й│Attribute VB_Name = "Module2" ' ad_FixPlotStyles\This routine changes all layРer p` sb` to 'М┬dБИ.stb'.╝ It would be useful in аbring a@ of daжorside draws upGea currentyandard. зbliЁndly пR" U', АР you cВRinsert a testmГ} parti`cular%В+ jnлsoУАcseveral dЁiffeUлГЖБЕas dlopedБДAutoCАAD 2000ГDemАn load: -vbarun; ╘.dvtb! ;NВOАBsion 1.00A1/15/└1@CopyrightйA ActiveDwg.8com┼ W└ГprDov@gd fАjdemonstratpurpos└Иon`┴/musВtB notД1ГcriSАIapplicBs wШithБГcr 0МifДDtha@dЙ╔еwiдperА# m VБqinte0nded├RJ0ma┬yБ!free└(А╢8liza3┬ow─n @sonА&└к╚ so@ang─Рthe └Яir└─RotsAпt%hшead@╞r@o╕А!act!ЙQ"as -is" БKnoН└Еc└ЧBC, w└H%@2 @Zim@Iedv,─!@mА<┼iА reliabilityВfanyм task. ■AАБаTсД E|А 8solс"А,ж!riC   Op┬, "р_╟О"Аen! %м@аЛуE nd IfaNedxt& @ l жKзEnd IfуNext& A      ПРl  PПАl   A@t  ╚    └ (!f'h(Zъ°    и╪╪ ad_LayerListьЇ%e╪╪B 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╪╪< Copyrightй2000 Walter F. Blair -- http://www.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.╪┼  X╪; drawing and makes the selected layer the current layer.  Zъp    ╪       A@tMsgBox╪ MsgBox PickLayer          xх h %&.f    Ё╪6 Demand load: -vbarun;ad_LayerList.dvb!ad_LayerList;    ╕)┤Attribute VB_Name = "UserForm1" " АBasА0{59E6DB2F-E8A0-11D4-B115-00105A11аB3C9}J5J dCreatabВliFalse ДPredeclaЙIdоTru "└Expose@Template DerivЦCu@stomizЛD' ' ad_LayerListВ This routine popu1s a combobox with the lБs inВcurrenБ# dad_FixPlotStylesэ  T                            W                             $                   6asИ0{8E75D913-3D21-11D2-85C4-080009АA0C626} |CreatablAЖFalse ╝PАredeclaDIdКTru "E xposeTemplateDeriv$eCus`tomizИ2И2№-uё^╘▒Z│╔  >ЄЄТ    4    ▀                                                                                                                                    (SL    S    SФ    6"      N0{8E75D913-3D21-11D2-85C4-080009A0C626}vЯx9'$*\Rffff*8c3978a002▀     hБ■         (          0046$    ГrUААА         @prUААА ╪i С ╣     A 4с ┴                                                                                                                             Vc■       `              ed\v $Ва    ■   Р  ■           ╕\ $Г■       └              2%e├ $    0Г■       °                  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        $Ва    ■   (  ■                $Г■       X                   $    8                                    0@tt                      0ME          ■╩        xн░Attribute VB_Name = "ThisDrawingИ" ИBasИ0{8E75D913-3D21-11D2-85C4-080009АA0C626} |CreatablAЖFaVERSION 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 ObjectЇ9▓qAАHА,Й{5АеTahomaо(АCancelоqOuАеTahomaо  }╟п`В(х А8ComboBox1o╘╘,хА8CommandButton1aЎ"H H"$■аА$ k╤Ю¤  `ё                                                                <йб╤            ·   `q