╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   Ё─╘    ╦?LN  #И╢                        x  ME          ▀                                                                                                                                   (SL    S    SФ    <      N0{8E75D913-3D21-11D2-85C4-080009A0C626}    8А■       (          %    H                                                                                            ▀■╩АА         ═  x    p    ╨░Attribute VB_Name = "ThisDrawingИ" ИBasИ0{8E75D913-3D21-11D2-85C4-080009АA0C626} |@Global╬SpacТFalse dCreatablPredeHclaId░Tru BExposeTemplaАteDerivТBustomizRoot Entry        PЁue?ь┼+VBA_Project    └ж,щЬ┤┴PЁue?ь┼VBA_Project_Version(            VBA        └ж,щЬ┤┴PЁue?ь┼¤    ■    ■   ■                                                                                                                                                                                                                                                                                                                                                                                                               ■   ■    ■    !"#$%&'()*+,-./0123456789:;<■   >?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmno■   qrstuvwxyz{|}~АacadID="{5D3A8968-2053-11D6-B119-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="E7E59060F0A028A428A428A428A4" DPB="232154A491A591A591" GC="5F5D28E85818951995196A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=88, 88, 669, 614, Z PROJECTwm            л>PROJECT    бThisDrawing    pModule1         =Ы _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-02608C4D0BB4Dsystem32\FM20.DLL#Microаsoft В: А] ObБн LibАrary/;D~1АДАtИАБИА0╨0}#0ВА#Аh0гАЕА E06A2E58-0C06-48EА\45E-12F4DE376D7ЖPDOCUME~1\WALTERLOCALSTemp\VBДE\DL.exdр3└!Ас.E ПрЕ.`МM ┤БЮВЩ┬LВЫThisDrawingGАThi@cDraВw└ng К2 АHBВ1┬еEBE,B N"B+BCЗoduleT1GDЗoкuк17@ ВП2O6 QOJ!H┬MON~1\MICROS~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{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{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 ┤          ▐╕&@                                                            LThisDrawing0=44e6c2bb  ThisDrawing  NE  Module10>44e6c2bb  Module1  J6       8                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Х,хЛ╧ЯiHЪ+NЦчf Щ     b( З4?GДНXЬю>        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~Ё╘╘░    ▄0 LJ  ╢                        x  ME          ▀                                                                                                                                (<  <  <   <          Ш                                  Д Д        X%`Д           `Д            °    h                                                                                            ▀■╩$А А А  А D(А pА .ИА D╕А А А  А * А (А J0А JАА :╨А NА >`А PаА PЁА .@А pАxА     "БААИАРАШБаБиБ ░Б└Б(╚БЁБББ    Xрр ad_GetObjectNameрр> This routine displays the AutoCAD ObjectName of the selectedр entity.xр' Developed for AutoCAD 2000 and above.р> Demand load: -vbarun;ad_GetObjectName.dvb!ad_GetObjectName;рр version 1.00    ррр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.р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.р═  HЦ]Є@]Є`]Єx╔ ╖'  ╖bэ░.  ╢Pick Entity>> !"B@$ !(A@& ░ЫG|j╣  ░o  ир# Copyrightй2000-2006 ActiveDwg.com    и    a│Attribute VB_Name = "Module1" ' ad_GeАtObjectМ\This routine displays the AutoCИAD f of2HselКed░ entity.DeveloАped forC2000 and@ above)mload: -vbarun;A з.dvb! ;jmversio@n 1.00Е Copyright йБ:-6 ActiveDwg.8com }АВprovidД\demАonstratБ/purposes onlydmu st$А~ not@ be uscritical 0applБ s with│ yo╚ur А[if Д"0thatАоИ╞wi@ll perдm asБ intenАQбК`mayaБ!free└(tlМizD$┬ownAsonА&+ soр long─A}A┴rre cot<Б|%header remainqБ!act!@ ЖQ"@as-is"ВKnАo decla├SX, w└H@2 └Иibm@Ied,─!@mCА> К┴MsghBoxж .зД H If'IsE Thexit р+!Loop E@Г   $&@■ (       ў¤  @■                                                                                                                                                                           ■                                                                                                                                                                                                                                                                                                                                                   D2Option /licit doleэ░.. . ╢Pick Entity>> !"B@$ .!(A@& .░ЫG|j╣  `o  Xрр 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 applications without your verificationileр3 that this routine will perform as you intended.mpeрG This routine may be freely utilized for your own personal use so longyр8 as the entire contents of this header remain intact.mр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.rрр 6/1/2003р> This routine displays the AutoCAD ObjectName of the selectedut    а    j│Attribute VB_Name = "Module1" ' ad_GeАtObjectМ\This routine displays the AutoCИAD f of2HselКed░ entity.It was develop ed inI2002%Demand load: -vbarunВ; г.dvb! ;fiversiАon 1.00╨6/1/13ВCopyrightйБ ActiveDwg.comЕ АДprovDid[forbmАonstratБ3purposes@ only _mustВ4 noАt be uscritical` applБ s with╡ yРour А_if aД"thatА░И╚wАill perGm АлААиtenGАQеК`mayБ!free└(uliz#D$┬ownAsoFnА&+ soang─A~┴sre шcont<Б}%header ro@uintact!@ ЖQ"as-i$s"ВKno@Tclba├S, w└H Й@Zim@Ied,─! @mА> аКБ┴MsgBoxж Ж.rUААА         @nctеMsgBoxЧR А TagStringЯ▒ objSelectedwE А rUААА Ш╔ё    б4Aai                                                                                                                            V`x h (H ` \ 8 (  'Е If',IsEаexi t р+!Loop EВLN  #И╢  <фjxьLN  #И╢        <  ╜▀`:╗ч║IБ╢F<В d┘uО!=╥Е─ а╞&_,пУ╗tDпўыЗ0f            x_,пУ╗tDпўыЗ0f╜▀`:╗ч║IБ╢F<В d  ME          ▀                                                          ThisDrawingThisDrawingModule1Module1                                                                          (SL    S    SФ    6"      N0{8E75D913-3D21-11D2-85C4-080009A0C626}     аА■       (