ࡱ> ?88#xME (SLSS<N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}8(%H xpаAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizRoot Entry0UHVVBA_Project0UHVVBA_Project_Version(VBA+jGV   !"#$%&'()*+,-./0123456789:;<=>?ABCDEFGHIJKLMNOPacID="{CB84204A-1DCE-11D5-B117-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="333182FF9B039B039B039B03" DPB="5052E102E202E202" GC="6D6FDC3DE45BE55BE5A4" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=22, 22, 763, 548, Z 8, Z Z dule1Module1PROJECTwmQ>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-02608C4D0BB4 Dindows\system32\FM20.DLL#MicrosPoft : ] Ob Libr@ary/;D1?t00h}#0#04 BB2DF651-0757-4E36-86DF007B4C9553H.DOCUME~1\WALTERLOCALSTemp\VBE\DL.exd3!.E .`M 8ThisDrawingGThi@cDrawAng 2E HB1¥EB,B 8"B+BCodule1GDou1@ 2OO(8!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{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{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@8ThisDrawing2N4abdd99aThisDrawing8EModule12O4abdd99aModule1888g\NK7)R٧Kς(H#$$)AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule1bad_ssBoxadExtMax adExtMin*adtmpMaxadtmpMinɘadSS$AcadSelectionSetadEnt}~ AcadEntityi SelectionSetsAddrSelectOnScreenGetBoundingBoxYExtComp8DeletexMsgBoxRvbCr$adLineNAcadLineeadStart&adEndm~ ModelSpace_AddLine8 AcadDocumentZT   $1\Temp\VBE\MSFD2Option /licit CEachTFor^ThisDrawingThisDrawingModule1Module1resumeThenAutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule1bad_LayoutLimitsnadLayout> AcadLayoutadLimMaxkIadLimMinJLayouts ActiveLayout\ GetVariable~MsgBoxRvbCr$ AcadDocumentZadExtMax adExtMin* PlotLayout88xME (<$<(<<<x $` ` Fi` 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-2009 ActiveDwg.comC This routine is provided for demonstration purposes only and must|C not be used for critical applications without your verificationt3 that this routine will perform as you intended.tG This routine may be freely utilized for your own personal use so long8 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.]@X]p]]adSS !*%,."rm "B@. & "@this initializes the Extents values to the first item in the set   &B@0_42,n &2 & "   &B@0$ $ 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.:o[Attribute VB_Name = "Module1" ' ad_ssBox$,`@  #C,5SS.DQte Msg6"@ seU" & vbCr_>" 0b$,`@  #C,5SS.DQte Msg6"@ seU" & vbCr_>" 0b