Re: measuring lines on a specific layer

 Dim accumulatedLength As Double
 accumulatedLength = 0.0
 Dim oLine As LineElement
 Do While oEnumerator.MoveNext
   Set oLine = oEnumerator.Current.AsLineElement
   accumulatedLength = accumulatedLength + oLine.Length
   counter = counter + 1
 Loop
 Debug.Print "Accumulated length of " & CStr (counter) & _
     " earth lines=" & CStr(accumulatedLength)