╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   __SRP_0            ■   9__SRP_1            ■   n__SRP_4            ■   X__SRP_5            ■   e AcadObjectеvarPickёUtility1J GetEntityИvbCr$MsgBoxЧR ActiveLayerД>LayersВ┘Layer║╞ AcadDocumentZ  T                                                         $   ─t c[t[  ╢  Ё╝╘░    ─t c[t[  ╢                        xRoot Entry        Ё┼бEсV╔А VBA_Project    `╡З¤J╟┐Ё┼бEсV╔VBA_Project_Version(            VBA        `╡З¤J╟┐`fаEсV╔■   ¤    ■   ■                                                                                                                                                                                                                                                                                                                                                                                                                                   ■   ■    ■    !"#$%&'()*+,-./0123456789:;<■   >?@ABCDEFGHIJKLN■   OPQRSTUVWXYZ[\]^_`abcdefghijklmnopq■   stuvwxyz{|}~АacID="{347A9497-3317-11D4-B111-00105A11B3C9}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="474528A328AD3BB13BB13BB13BB1" DPB="5E5C31DC5FE477E577E577" GC="75771AF12609270927F6" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=1PROJECTwm            M>PROJECT    ╓ThisDrawing    rхModule1         = 19, 130, 831, 672, Z rawingModule1Module1h▓А0*Р pHВdф ACADProject8@╒ = t  Ч╠9( 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А CDE76968-21D6-1А1D4-B11ж105A11B3 C9РP└OP\VBДE\Д_VBA_PROJECT            V dir             l__SRP_2            ■   __SRP_3            ■   @G.exd /Ас.E ПрЕ.`МM ┤┴Щ┬Ф┬c[┬ЦThisDrawingGАThiА^DraВw└ng К2 АHBВ1б%BE,B e["B+BГВoduleT1GДВo@еuBе17@ ┬К2Oz QOt[!H┬000204EF-0╠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{CDE76968-21D6-11D4-B110-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E ПрЕ.`МM ┤          Ч╠9                                                            c[ThisDrawing1q4abdd72f  ThisDrawing  e[%  Module11r4abdd72f  Module1  t[z       8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Ш┬╘│y╡Iо_шЇ2B 3    кCч¤М1·Fб/хЛ'j╛╟        HА L'AutoCAD"°VBAўтWin16┴~Win32Mac│▓VBA6н# ACADProjectж╘stdoleУ`MSFormsC ThisDrawing╣5 А   _Evaluate┘Module1b ad_MatchLayerл4 objSelectedwE  ME          ▀                                                                                                                                (<  <  <   <      xА                                 Д Д        XWi%`Д           nu                                                                                                ▀■╩%А А А  А >(А АА 4hА >аА рА шА А *А 8А J@А JРА :рА N А >pА P░А PА .PА АThisDrawingThisDrawingModule1Module12ДАИ"БРАШАаА     БиБ ░БJ└ББ Б(БHБPБXБxА         ирр ad_MatchLayerbvрр8 This routine changes the current layer to the selectedavр. It was developed for AutoCAD 2000 and above.р8 Demand load: -vbarun;ad_MatchLayer.dvb!ad_MatchLayer;  рр version 1.00    рр# Copyrightй2000-2009 ActiveDwg.com      ррC This routine is provided for demonstration purposes only and must      рC not be used for critical applications without your verificationy\yр3 that this routine will perform as you intended.}▄Ї}р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.Кр═  0Ц]Є@]Є`╔ ! ї4ьК   $╢2Select object whose layer is to be made current>> C@"    q  и ░Ь \@╢Nothing was selectedA@&И|  pk  h !, %* ((╧╪o  @р entity's layer.р¤    X    В│Attribute VB_Name = "Module1" ' ad_MatchLayerPThis routine changes thurrent "lZ to(se@lectedЮ В >ity'sH.It was developed for AutoCAD 2000 and above0Demload: -vbarunВ; м.dvb! ;knversiАon 1.00Е CopyrightйБ7-9 ActiveDwgp.com ~АГp rovidДYdemonstratББ/purposАНonlyamus t$ not be uscritical applБ s with┤ youdr А[if Д"thatА▓И╟wil l perбm кА intenGАQЮК`mayБ!free└(Аtliz#D$┬ownAsonА&+ so lxong─~ur└ots of%header rАkinБ!act!ЙQ"as-is"ВKno└Дcla▒├S, w└H@2 @З─im@Ied,─!@.mА<АЭiА re└liabilЫВУАany par└Xu task.№ A5─+Е╢8sol┴EYFCriC@@ OpВyEКxlivSubK╠() {Dim objSД┬ AВsЧadObjА╞ЗvarPickББVarian└Б╔C On ErBr└AResuАюNTex─ W@М БxDrawing.UtA├ A.GetШEntFh, дbCr & "╟├а wh`YD{/ #└,└WВ.c├~>>v рЖ! EаuсcIfjIs Not&h@└enчMs└gBox "еAВs$& В xit ч -A IfcйcwO┬ЦрЪ)bs(H.B@5Б " Ё─╘    ╦c[e[  #И╢                        x  ME          ▀                                                                                                                                   (SL    S    SФ    <      N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}    8А■       (          %    H                                                                                            ▀■╩        x    ╝░Attribute VB_Name = "ThisDrawingИ" ИBasИ0{7AABBB95-79BE-4C0F-8024-EB6AF2А7123Б■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           1C} |@Global╬SpacТFalse dCreatablPredeHclaId░Tru BExposeTemplaАteDerivТBustomizD2lPredeHclaId░Tru BExposeTemplaАteDerivТBustomizD2ў *Ў !@М *!BоAcDbBlockReferenceХ° *!о Panel_WeightХ *!D'( &д$((F !HB@Jh  Шh  Рў┐И L (<╪Place a point entity at the CGоPDMODEд" B@Nх !V !R%T.P╪)Display the panel weight in a Message Box &╚о