ࡱ> Root Entryh#uߨThe VBA Project Govh#uߨ_VBA_Project Govh#uߨVBA Project Data" !"#Root Entry@qVߨ@The VBA Project Gov@qVߨ_VBA_Project Gov@qVߨVBA Project Data" $%&'()*+  "#$%'()*+,-./0123456789:;<=>?@ABCDEFGIKLMNOPQSTUVWXYZ[\]^_`abcdefghijklmnopqrstHost Project Items& Host Project Item Names0Gov@qVߨVBA Project Signature, Project_Data_CurVer( &L{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}ID="{CCFDCF55-1C1C-466B-BEB2-DBA63F173912}" Module=Module1 Name="DelZero" HelpContextID="0" VersionCompatible32="393222000" CMG="EBE9CAE1B1E5B1E5B1E5B1E5" DPB="D6D4F71E09E2F5E3F5E3F5" GHost Project Item List Data8 VBA Gov@qVߨPROJECTwm PROJECT \C="C1C3E0E5E1E5E11A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=44, 44, 756, 592, Z 592, Z Module1Module16@,rU t RM_N J< rstdole>stdoleP h%^*\G{00dir!&__SRP_0!__SRP_1BModule1R__SRP_2 J__SRP_3Hg_VBA_PROJECT&xK*mrU~~~~~~o HBGzBHHf  a `a Module1DelZeroF /c:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  y09K\靯[YC:\Program Files (x86)\Bentley\MicroStation V8i (SELECTseries)\MicroStation\\ustation.exeMicroStationDGN  @0FC:\Windows\SysWOW64\stdole2.tlbstdole IqPSelectLineLength kX|B)/hQZ? FDIU|"mQPM)R-|H|mX?GmQPMOkIZQ":Kwx?DelZeroQ(@= l"0* pHdDelZeroQ(@= l jP J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysWOW64\e2.tlb#OLE Automation`ErAvModule1GMLduN1 2Hj1d ,Q4s]!+\G{000204EF-0am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#c:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applicationsj*\G{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}#8.0#0#C:\Program Files (x86)\Bentley\MicroStation V8i (SELECTseries)\MicroStation\\ustation.exe#Bentley MicroStation DGN 8.9 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation  jPAModule10Y506a968fModule1s]d   "#$%'()*+,-./0123456789:;<=>?@ABCDEFGIKLMNOPQSTUVWXYZ[\]^_`abcdefghijklmnopqrsHost Project Items& Host Project Item Names0Govh#uߨVBA Project Signature, Project_Data_CurVer( &L{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}ID="{CCFDCF55-1C1C-466B-BEB2-DBA63F173912}" Module=Module1 Name="SelectLineLength" HelpContextID="0" VersionCompatible32="393222000" CMG="D4D6F5E41BF31FF31FF31FF31F" DPB="E7E5C615CA3BDC3Host Project Item List Data8 VBA Govh#uߨPROJECTwm PROJECT iCDC3CDC" GC="FAF8DB0AEF0BEF0B10" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=44, 44, 756, 592, Z Module1Module16@,rU t RM_N J< rstdole>stdoleP h%^*\G{00dir!2__SRP_0)__SRP_1BModule1Rx__SRP_2 J__SRP_3Hg_VBA_PROJECT&xK*mrU~~~~~~o ag'AK&o  a `a DelZeroModule1F /c:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  !09K\靯[YC:\Program Files (x86)\Bentley\MicroStation V8i (SELECTseries)\MicroStation\\ustation.exeMicroStationDGN @0FC:\Windows\SysWOW64\stdole2.tlbstdole YPSelectLineLength kX|B)/hQZ? FDIU|"mQPM)R-|H|mX?GmQPMOkIZQ":Kwx?.0* pHdSelectLineLengthL@  Z= ~ jP %J< 9st dole>stdole h%^*\G{0002`0430-C 0046}#2.0#0#C:\Windows\SysWOW64\e2.tlb#OLE Automation0v A Module1G#LduN1* 2H1T)E ,4s]!+am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#c:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applicationsj*\G{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}#8.0#0#C:\Program Files (x86)\Bentley\MicroStation V8i (SELECTseries)\MicroStation\\ustation.exe#Bentley MicroStation DGN 8.9 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation jP AModule10]506a969aModule1s]T  YD OJ^X`' MicroStationDGN8 VBAWin16~Win32MacVBA6#DelZeroAPstdole` Module1b _Evaluate(SelectLineLengthee]ElementEnumeratorz<elemX9Element[ActiveModelReferenceScanDMoveNextL!CurrenteIsChainableElementAsChainableElementLengthY SelectElementjRedraw OnProjectLoadaOnProjectUnloadr< rU $`nrU~| )Qy85hc=[lp$ Lp @lh=x)lphfx kf!fpx p @kfppx lp=tp+\pt Dp $o\?p*lt=[lp$ Lp H)lpt x7 ,(xtplhk(NAs]xME,  6 LLPLLPL<0<4<8<<< `\k xX% tx%%@`pX@p @l @h @f @\ jP $*\Rffff*0]506a969a*\R1*#140*\R1*#132*\R1*#b4*\R1*#b5*\R1*#e*\R1*#1b*\R1*#1b*\R1*#f*\R1*#f*\R1*#13" 5 (!8 H +X*x  ]@]` ! .5b !"\progr !$!&\b !$.at !(!*? rostat  B@, B@. D k`kXPoH@ Attribute VB_Name = "Module1" Sub SelectLineLength() Dim ee As ElementEnumerator@4D0 Set~= A ctivetelReferenc@e.Scan'While).MoveNextDIfCur3t.IsChainable TheE.u=:O(*.A'. < 0.05.gKm9 .Redraw End If Wend  If We0nd