ࡱ> ?88#xME (SLSS<N0{8E75D913-3D21-11D2-85C4-080009A0C626}8(%H xpаAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizRoot Entry@dLVBA_Project@dLVBA_Project_Version(VBA+PL   !"#$%&'()*+,-./0123456789:;<=>?ABCDEFGHIJKLMNOPacadID="{CB84204A-1DCE-11D5-B117-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="8A883BB3C1B7C1B7C1B7C1B7" DPB="1416A54DA5D6A6D6A6D6" GC="9E9C2FC733DBBCDCBCDC43" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=22, 22, 763, 548, Z Z dule1Module1PROJECTwmY>PROJECTThisDrawing@Module1 c_VBA_PROJECT$ dir0* pHd ACADProject8@ = t  7Q@( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation^MSFo@rms>SFErmHs3DD452EE1-E08F-101A-8-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft : ] Ob Library/;D~1t00}#0#h0 BB2DF651-0757-4E36-86DF007B4C9553H.DOCUME~1\WALTERLOCALSTemp\VBE\DL.exd3!.E .`M 8ThisDrawingGThi@cDrawng 2 HB1¥EBE,B 8"B+BCoduleT1GDou17@ 2OQO8!H  90am  *\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{BB2DF651-0757-4E36-8630-DF007B4C9553}#2.0#0#C:\DOCUME~1\WALTER~1\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   7Q@8ThisDrawing1c44e5c961ThisDrawing8EModule11d44e5c961Module188E蟉ՠNfqA7K|ۻ AcadLayoutadLimMaxkIadLimMinJLayouts ActiveLayout\ GetVariable~MsgBoxRvbCr$ AcadDocumentZadExtMax adExtMin* PlotLayout PlotLayouts+UPlotX PlotToDevicethThisDrawingThisDrawingModule1Module1rU Iq!4arU @n@   1I) A a Q .$  ,l=t) 88xME (<$<(<<<x $` ` ` x`  age "< % &ng t% :% >0. @h4 P=    D Dh B  . :H    *  J J8 : N > PX P . (0 "8@P`hp   F  (0@0X000  (8  @ .@HX>h>  ad_ssBox= This routine gets the extents (bounding box) of a selection> set and displays the information in a message box. It also< adds a diagonal line showing the opposing corners of the set's bounding box.' Developed for AutoCAD 2000 and above.4 Demand load: -vbarun;ad_Extents.dvb!ad_ssExtents; version 1.00# Copyright2000-2006 ActiveDwg.comC This routine is provided for demonstration purposes only and musti\aC not be used for critical applications without your verification\r13 that this routine will perform as you intended. & G This routine may be freely utilized for your own personal use so longs,n8 as the entire contents of this header remain intact.mJ 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.]@X]p]]adSS !*%,." "B@. & "@this initializes the Extents values to the first item in the set   &B@02 &2 & "   &B@0ts$ $ G$ +j$ $ G$ +j$$ G$+j$$ G$+j & "B@4Extents for selection set 8= $, $ : 8 $, $A@6:This section will add a diagonal line showing the opposing( corners of the bounding box of the set]]]8$+>F$+>F+>$+@F$+@F+@ > @ !B%D.:1.o[Attribute VB_Name = "Module1" ' ad_ssBox$,`@  #C,5SS.DQte Msg6"@ seU" & vbCr_>" 0b