╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   __SRP_0            ■   __SRP_1            ■   n__SRP_4            ■   X__SRP_5            ■   e AcadObjectеFrzLayerъД AcadLayer╫ varPickёUtility1J GetEntityИvbCr$MsgBoxЧRLayersВ┘Layer║╞Freeze"и AcadDocumentZ  T                                                         $EM\stdole2.tlbЁ▄╘░    х▌ c[t[  ╢                        xRoot Entry        а╫"афV╔@!VBA_Project    `╡З¤J╟┐а╫"афV╔VBA_Project_Version(            VBA        `╡З¤J╟┐x!афV╔■   ¤    ■   ■                                                                                                                                                                                                                                                                                                                                                                                                                                   ■   ■    ■    !"#$%&'()*+,-./0123456789:;<■   >?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrs■   uvx■   yz{|}~АacID="{347A9497-3317-11D4-B111-00105A11B3C9}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="2F2D40A240DE7AE27AE27AE27AE2" DPB="6D6F02E07E1F7F1F7F1F" GC="ABA9C42603270327FC" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=119, PROJECTwm            w>PROJECT    ╥ThisDrawing    tхModule1         =б 130, 831, 672, Z 2, awingModule1Module1h▓А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А 57BFD87-90D6-11АD4-839C80C6F93F 62РP└OP\VBДE\Д_VBA_PROJECT            n 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@ ┬К2Oу 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{057BFD87-90D6-11D4-839C-0080C6F93F62}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Libraryс.E ПрЕ.`МM ┤          ХЦ╠9                                                            c[ThisDrawing2x4abddcd3  ThisDrawing  e[%  Module12y4abddcd3  Module1  t[у       8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        6∙уй╒ы∙CФEкьCs├    Р°2F│8xr╛╚c        HА Ш'AutoCAD"°VBAўтWin16┴~Win32Mac│▓VBA6н# ACADProjectж╘stdoleУ`MSFormsC ThisDrawing╣5 А   _Evaluate┘Module1b ad_FreezePickСУ objSelectedwE  ME          ▀                                                                                                                              (<  <   <   <          а                                 Д Д        X└% Д        xs%`Д"           e ro    `                                                                                            ▀■╩'А А А  А @(А <hА 4иА >рА  А (А @А *HА xА JАА J╨А : А N`А >░А PЁА P@А .РА └А╚"Б╨А╪АрАшА     БЁБ °БJБXБ `БpБРБШБаБ ╕Б╚А         ╪рр ad_FreezePickрр: This routine freezes the of the selected entity. If thatр6 happens to be the active layer, the routine exits.р. It was developed for AutoCAD 2000 and above.р8 Demand load: -vbarun;ad_FreezePick.dvb!ad_FreezePick;  рр 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 verificationИДbИр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.Жр═  0Ц]Є@]Є`]ЄА╔ !$ї°  " (╢2Select object whose layer is to be made current>> C@&*иq  а ░ЬB@,╢Nothing was selectedA@*po|  hk  `э !. %,.╖ (0z    o  0    (    ║│Attribute VB_Name = "Module1" ' ad_FreezePickPThis roАutine 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Е CopyrightКйБ7-9 AВ]АDwg.comКРЦprovidДYdemonstratБ/purposes onl"yamusХnotБСuscri@tical бlБ s withБА╞ your А[,if G th atАк┌willР perАPm UБ@ inten└(уOJ0mayБ!Бz└(1└}lizD$┬owbnAsonА&+ Аso long─AЗAГre cotDrawing. Ut"#a .GШetEтy╔, дbCr & "╟#Б whА[#{ @%р.`~в0cur"r@B>> аН >EАw!б рЕI!Is` Noth@└enуMsgBoxь "%aГsД' @ ЭАЗ └-┴ If!╨Set ц(= ┬)ts(h.B4e.F"ЮаеTrue  ! В  ! В e.F┬ЮБ@жTrue ! В Ё─╘    ╦c[e[  #И╢                        xThisDrawingThisDrawingModule1Module1    ME          ▀                                                                                                                                   (SL    S    SФ    <      N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}    8А■       (          %    H                                                                                        БВГД■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ▀■╩        x    ╝░Attribute VB_Name = "ThisDrawingИ" ИBasИ0{7AABBB95-79BE-4C0F-8024-EB6AF2А71231C} |@Global╬SpacТFalse dCreatablPredeHclaId░Tru BExposeTemplaАteDerivТBustomizD2(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 &╚о