ࡱ> __SRP_0__SRP_1n__SRP_4X__SRP_5e AcadObjectFrzLayer AcadLayer varPickUtility1J GetEntityvbCr$MsgBoxRLayersLayerFreeze" AcadDocumentZT   $EM\stdole2.tlb c[t[xRoot EntryX@!VBA_Project`JǿXVBA_Project_Version(VBA`JǿX   !"#$%&'()*+,-./0123456789:;<>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrsuvxyz{|}~acadID="{347A9497-3317-11D4-B111-00105A11B3C9}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="4E4C21B321B32DB72DB72DB72DB7" DPB="565439CB49DB50DC50DC50" GC="5E5C31C331C338C438C4C7" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1PROJECTwmw>PROJECTThisDrawingtModule1 = =119, 130, 831, 672, awingModule1Module1a0* pHd ACADProject8@ = t  9( 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 57BFD87-90D6-11D4-839C80C6F93F62P.OP\VBE\G.EXD /_VBA_PROJECTn dir e__SRP_2__SRP_3@.E .`(M ”"c[–ThisDrawingGThi^Drawng 2 HB1%B,B e["B +Bodule1Go@uBn1@ Š2O Ot[!H\G{000204EF-0am  *\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{057BFD87-90D6-11D4-839C-0080C6F93F62}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M   9c[ThisDrawing0g44e5c658ThisDrawinge[%Module10h44e5c658Module1t[ 8nBр:"F}Mo]^H'AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule1b ad_FreezePick objSelectedwEME(<< < <  X% x %`" X9'    @( <h 4 >    * @ JH J : N( >x P P .X "  J  (8X`h   ad_FreezePick: This routine freezes the of the selected entity. If that6 happens to be the active layer, the routine exits.8 Demand load: -vbarun;ad_FreezePick.dvb!ad_FreezePick; 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 verificationtended3 that this routine will perform as you intended.ur ownG This routine may be freely utilized for your own personal use so long i8 as the entire contents of this header remain intact.atJ 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.yp ]@]`] !$bj  " (2Select object whose layer is to be made current>> C@&53-q B0BNothing was selectedA@*M|XkP !. %,. (0\Teo . It was developed for AutoCAD 2000 and above.or(Attribute VB_Name = "Module1" ' ad_FreezePickPThis routine f<s the of selected entityH. I.at happenbo be0active laye r,]exits.8It was develop]for AutoCAD 2000 and above0Demload: -vbarun;A .dvb!;57versio@n 1.00 Copyright7-6 A]Dwg.comprovidYdemonstrat/purposes onl"yamusnotuscri@tical l s with your [,if G th atwill perPm U@ inten(OJ0may!z(1}lizD$owbnAson&+ so longAAre cotDrawing. Ut"#a .GetEy, bCr & "# wh[#{ @%.`~0cur"r@B>> >Ew! I!Is` Noth@enMsgBox "%as' @ - If!Set (= )ts(h.B4e.F"True  ! e.Fž@True !  c[e[#xThisDrawingThisDrawingModule1Module1ME (SLSS<N0{8E75D913-3D21-11D2-85C4-080009A0C626}8(%HxAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2(F !HB@Jhh L (<Place a point entity at the CGPDMODE" B@N !V !R%T.P)Display the panel weight in a Message Box &