╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                         x  ME          ▀                                                                                                                                   (SL    S    SФ    <      N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}    8А■       (          %    H                                                                                            ▀■╩АА         ═  x    p    ╨░Attribute VB_Name = "ThisDrawingИ" ИBasИ0{7AABBB95-79BE-4C0F-8024-EB6AF2А71231C} |@Global╬SpacТFalse dCreatablPredeHclaId░Tru BExposeTemplaАteDerivТBustomizD2Option /licit ru BExposeTemplaАteDerivТBustomizRoot Entry        ░}Пе▀V╔А VBA_Project    └ж,щЬ┤┴░}Пе▀V╔VBA_Project_Version(            VBA        └ж,щЬ┤┴`║Ое▀V╔¤    ■    ■   ■                                                                                                                                                                                                                                                                                                                                                                                                                                   ■   ■    ■    !"#$%&'()*+,-./0123456789:;<■   >?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmn■   pqrstuvwxyz{|}~■   acID="{5D3A8968-2053-11D6-B119-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="9193E60EEA0EEA0EEA0EEA" DPB="BFBDC81AD8660767076707" GC="EDEF9A48E677E777E788" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=88, 88, 669, 614, Z Z PROJECTwm            Б>PROJECT    ЮThisDrawing    oModule1         =x _VBA_PROJECT            j dir            Р            ■   Р            ■   g            ■               ■   К            ■   ▓            ■   nМ▓А0*Р pHВdф ACADProject8@╒ = t  ▐╕&@( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Auto└mation^АMSFo@rms>SFErmHs3АDD452EE1-E08F-101A-8-02608C4D0BB4 Dindows\system32\FM20.DLL#MicrosPoft В: А] ObБн Libr@ary/;D1?АДАtИАБИА00h}#0ВА#А04гАЕА E06A2E58-0АC06-48EА\45E-12F4АDE376D7ЖPDOCUME~1\WALTERБLOCALSTemp\VBE┬\DL.exdр3└!Ас.E ПрЕ.`МM К┤БЮВЩ┬LВЫThisDrawingGАThi@cDrawA└ng 2E АHB1┴┬еEBв,B N"B+BCЗodule1кGDЗoкuк1@ ЫВП2O O(J!H┬CROS~1\VBA\VBA6\VBE6.DLLVBA ! ╠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{E06A2E58-0C06-48EA-845E-12F4DE376D70}#2.0#0#C:\DOCUME~1\WALTER~1\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E ПрЕ.`МM ┤          ▐╕&@                                                            LThisDrawing1F4abdd471  ThisDrawing  NE  Module11G4abdd471  Module1  J       8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        P▌═╠ ЙHLЙж╒о╡Слй    {ў+AкЭLж^\ZX╢║┼        HА  'AutoCAD"°VBAўтWin16┴~Win32Mac│▓VBA6н# ACADProjectж╘stdoleУ`MSFormsC ThisDrawing╣5 А   _Evaluate┘Module1bad_GetObjectNameЫ─adEntity\┘ AcadObjectеbasePntyv adSelectedч Utility1J GetEntityИMsgBoxЧR ObjectNameу─ AcadDocumentZ  T                                                         $#C:\DOCUME~Ё╘╘░    ▄ LJ  ╢                        x  ME          ▀                                                                                                                                (<  <  <   <          Ш                                  Д Д        X%`Д           `Д            '     h                                                                                            ▀■╩#А А А  А LЁА .(А DXА аА иА └А *╚А °А JА JPА :аА NрА >0А PpА P└А .А @АHА     "БPАXА`АhБpБxБ АБРБ(ШБ└Б╨БрБш    Hрр ad_GetObjectNameрр' Developed for AutoCAD 2000 and above.р> Demand load: -vbarun;ad_GetObjectName.dvb!ad_GetObjectName;рр 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      р3 that this routine will perform as you intended.y╠yрG This routine may be freely utilized for your own personal use so longzр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.Гр═  PЦ]Є@]Є`]Єx╔(╖'  ╖b}╠Є}э░.  ╢Pick Entity>> !"B@$ !(A@&WW ░ЫG|j╣  ╕o  ░рF This routine displays the AutoCAD ObjectName of the selected entity.-is"    ╕    Z│Attribute VB_Name = "Module1" ' ad_GeАtObjectМ\This routine displays the AutoCИAD f of2selКed e@ntity.`D@evelopfor<2000 and abov e)mload: -vbarun; а.dvb ! ;╢version 1.00Copyrig(htйБ:-9 ActiveDwрg.comКy@providД\demonstratБ/purposАes onlydPmust$ not be uscritica└l applБ @s withАп your А[if├ Д"thatл├will per!дm asБ ipntenАQбК`mДayБ!free└(1@rlizD$┬owbnAsonА&+ Аso long─Б{┴rre cot<┴z%header rema─inБ!act!@ ЖQ"as-is"ВKno declba├S, w└H@2 Й└Иim@Ied,─! @mА> @Й┴@MsgBoxж .C╟Г If'IBsE Thexit р+!Loo0p E@Гf'IsE Ё─╘    ╦?LN  #И╢      ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           D2Option /licit doleэ░.. . ╢Pick Entity>> ThisDrawingThisDrawingModule1Module1р ad_GetObjectNameрр entity.ne demр# It was developed in AutoCAD 2002.      р> Demand load: -vbarun;ad_GetObjectName.dvb!ad_GetObjectName;    рр version 1.00    рр Copyrightй2003 ActiveDwg.coms\ррC This routine is provided for demonstration purposes only and mustmmoрC not be used for critical