ࡱ>  P P8 .  " 0@X` hx^ B   (Hh x ad_TotalLinesB This routine demonstrates a method for retrieving the cumulative/ length of all lines on a particular layer.' Developed for AutoCAD 2000 and above.8 Demand load: -vbarun;ad_TotalLines.dvb!ad_TotalLines; version 1.00# Copyright2000-2006 ActiveDwg.comC This routine is provided for demonstration purposes only and mustC not be used for critical applications without your verification3 that this routine will perform as you intended.G This routine may be Root Entryix#VBA_Project@9udixVBA_Project_Version(VBA@9udu   !"#$%&'()*+,-./0123456789:;<>?@ABCDEFGHIJKLNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}acadID="{348F00DD-202A-11D5-B117-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="4745C95CD7646268626862686268" DPB="D6D458ED68F3F6F4F6F4F6" GC="6567EB7AF508F608F6F7" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=69, 3, 814, 595, Z Module1Module1PROJECTwmM>PROJECTThisDrawing~Module1 =g0* pHd ACADProject8@ = t  ;( 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#h0r 348F00D6-202A-11D@5-B117105A11B3C9P.OP\VBE\G.EXD /.E .`M ”–ThisDrawingGT_VBA_PROJECT dirk__SRP_20__SRP_3_VBA_PROJECTdir4__SRP_0e__SRP_1hi^DrawAng 2E HB1EB,B "B+Bodule1Go@uB1@ Š2OM(!Hodule1am  *\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{348F00D6-202A-11D5-B117-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M   ;ThisDrawing1s44e5c9e4ThisDrawingEModule11t44e5c9e4Module1 8!^m`6B}uYQe…H%ռtH'AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule1b ad_TotalLines adLineN AcadObject adTotalLen| adWorkLayery ModelSpace_ ObjectNameLayerLengthYRoundMsgBoxRvbCr$adNumadPlacesadTmp AcadDocumentZT   $?#lt xME(<<< <0  X%`` es o+* i0i2otal`4 1    H( 6p .ThisDrawingThisDrawingModule1Module1 >    8 *@ p Jx J : NX >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. ]@]`]x0' lock n'  !"ts. !$AcDbLine !&   !( '%0kk IN $*' Total of line segments . on layer   is: . A@, o] 0X'0$( 0'4J2x1 0 4  2X'0( 4 0 2 '*(6;ixIAttribute VB_Name = "Module1" ' ad_TotalLinesPThis rout( demonstrates a method for reeving the cumul ative length of all lb onDpartic-r layer.1Dev elope]AutoCAD 2000 and aPbove)mload: -v@barun; .dvb!;23 versiC1.00 Copyright7-6 AcfDwgp.comprovidY/@purposonlyamust$ not be uscrial applic wiut your [if "tha&twipeBrm asA inten(OJ0may!freec(@|lizD$own @son&+ so long~entiJr@otsA|tAheademain!act!Q"as-is"Kno@claS, wH@2 im@Ied,!@ml "@= Fix( - ) * 10 ^F 4/+E ?#xME (SLSS<N0{8E75D913-3D21-11D2-85C4-080009A0C626}8(%H xpаAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit d@ f