аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__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[џџЖџџ№МдАџџџџФ” c[t[џџЖџџџџџџџџџџџџџџџџџџџџџџџџxRoot Entryџџџџџџџџ№J‰ЉыХР VBA_Projectџџџџ`Е‡§JЧП№й†ЉыХVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ`Е‡§JЧП№й†ЉыХўџџџ§џџџ ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;<ўџџџ>?@ABCDEFGHIJKLNўџџџOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrўџџџtuvwxyz{|}~€acadID="{347A9497-3317-11D4-B111-00105A11B3C9}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="E8EA875D8B5D8B5D8B5D8B" DPB="4A4825D586D686D686" GC="ACAEC37F47E048E0481F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=119, 130, 8PROJECTwmџџџџџџџџџџџџM>PROJECTџџџџЬThisDrawingџџџџsхModule1 џџџџџџџџ=- 31, 672, Z 672, Z DrawingModule1Module1aВ€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-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft E‚: €] Ob­ Library/є;D1€„€tˆ€ƒˆ€00}#0‚€F#€0€r€ CDE76968-21D6-11D4-B11І105A11B3C9P.РOP\VBE\„G.exd /_VBA_PROJECTџџџџџџџџџџџџV dirџџџџџџџџџџџџ e__SRP_2џџџџџџџџџџџџўџџџ__SRP_3џџџџџџџџџџџџўџџџ@€с.E р….`Œ(M ДС™Т”"Тc[Т–ThisDrawingG€Thi€^DrawРng 2 €HB1Ё%‹B,B e["B +Bƒ‚odulЈe1G„‚o@ЅuBЅn1@ ТŠ2OšЂ Ot[!HТ\G{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{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{CDE76968-21D6-11D4-B110-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџ—Ь9џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџc[ThisDrawing1>44e5c75eџџThisDrawingџџe[%џџModule11?44e5c75eџџModule1џџt[š џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxdЧтѓ uDЁж&ЕœXB џџџџCв1БcјG…}ц\'’њ<џџџџџџџџH€џL'AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйModule1b ad_MatchLayerЋ4 objSelectedwEџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ< џџ<џџџџџџx€ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „џџџџџџџџX%`„џџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ%€ € €  € >(€ <h€ 4ˆ€ >Ј€ ш€ №€ € *€ @€ JH€ J˜€ :ш€ N(€ >x€ PИ€ P€ .X€ ˆThisDrawingThisDrawingModule1Module12„€"˜€ €Ј€ џџџџА ИJШ 0PX`€€ џџџџџџџџШрр ad_MatchLayerрр8 This routine changes the current layer to the selectedр5 entity's layer. It was developed in AutoCAD 2000.р8 Demand load: -vbarun;ad_MatchLayer.dvb!ad_MatchLayer;рр 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.is rouрG This routine may be freely utilized for your own personal use so longheр8 as the entire contents of this header remain intact.ouр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–]ђ@]ђ`Щ0 ! ѕ!$   $Ж2Select object whose layer is to be made current>> C@"qџџШ АœЖNothing was selectedA@&|џџkџџˆ !, %* ((œ|oџџ`р. It was developed for AutoCAD 2000 and above.џџџџ8џџџџГAttribute VB_Name = "Module1" ' ad_MatchLayerPThis routine changes thurrent "lZ to(se@lectedž ‚ >ity'sH. It was developed in AutoCAD 2000.7%for & and abˆove0Demload: -€vbarun; Ю .dvb!Š;€57version 1.00… CopyrightЉK-6 ActiveDwg.com €”provid€lYdem€onstrat/@purpos€žonlyamust$ not be uscritical ap pl s withХ your2 €[if „"th at€Уˆиwill per€#m €^у@]tenР(OJ0may!freecР(}lizD$ТoФwnAson€&+ so long/Ф†}r@ˆonAts of%h€eader r€k~intact!‰Q"as-is"‰‚Kno@ŽclaУSX, wРH @‡ibm@Ied,Ф!@m€<Іi€ rel iabil€Ѓ f€any parРXu task.ќ A5Ф+П8solСEYFCriC@@ Op‚yEŠxlivSubЫд() {Dim objSЫ A‚s—adObjЯ‡varPickVarianРЩC On ErBrРAResuїNTexФ W@Œ xDrawing.Ut‚ у! .Get˜Ent#h, ЄbCr & "ЧУ  wh`Y„/ #Р,РW‚.cƒ>>v ‹! E uсcIfjIs Not&h@РenчMsРgBox "Ѕ‡s$& ‚ xit ч -A IfcЉcwO› Ÿ)bs(H.B@5 " џџ#ˆЖџџ№ФдџџџџЫc[e[џџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџ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ї *і !@Œ *!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 &ШЎ