ࡱ>  P P8 .  " 0@X` hx^ B   (Hh x ad_TotalLinesbvB 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-2009 ActiveDwg.comC This routine is provided for demonstration purposes only and mustC not be used for critical applications without your verification 3 that this routine will perform as you intended.G This routine may be Root Entryun0V#VBA_Project@9udun0VVBA_Project_Version(VBA@9udpm0V   !"#$%&'()*+,-./0123456789:;<>?@ABCDEFGHIJKLNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}acID="{348F00DD-202A-11D5-B117-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="1E1C90CE9056F05AF05AF05AF05A" DPB="82800C6A716B716B71" GC="E6E46816A81E0D1F0D1FF2" [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 =o0* 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-02608C4D0BB4 Dindows\system32\FM20.DLL#MicrosPoft : ] Ob Libr@ary/;D1?t00h}#0#04r 348F00D6-202A-11D5 -B117105A11B3C9POP\VBE\G.EXD /.E .`M E”–ThisDrawing_VBA_PROJECT dirs__SRP_20__SRP_3_VBA_PROJECTdir4__SRP_0e__SRP_1GThi^Drawng 2 HB1`EB,QB "B+Bodule1GՄo@uB1@ Šm2OM!Ham  *\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{348F00D6-202A-11D5-B117-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M   ;ThisDrawing2e4abdda6aThisDrawingEModule12f4abdda6aModule1 8ǖTGJ^zt GLHH'AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule1b ad_TotalLines adLineN AcadObject adTotalLen| adWorkLayery ModelSpace_ ObjectNameLayerLengthYRoundMsgBoxRvbCr$adNumadPlacesadTmp AcadDocumentZT   $?#lt xME(<<< <0  X%`Jav` 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.8]@]`]x0' '  !"L !$AcDbLine !&   !( 'erekk t adSS $*'adSS") Total of line segments . on layer   is: . A@,o] 0X'0 0'4 $ 0 4  2X'0( 4 0 2 '*$(iIAttribute 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-9 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{7AABBB95-79BE-4C0F-8024-EB6AF271231C}8(%H xpаAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit d@ f