getting linestring points

You don't need a Macro MS has a builtin tool, search the help for "EXPORT ELEMENT"

You don't need a Macro MS has a builtin tool, search the help for "EXPORT ELEMENT"

Hi,

I have checked that - it doesn't give separation between separate strings, just a big list of points. I can't recover separate strings from a report like that.

Hi,

code snippet:

Sub Start()

Open "C:\\path_to_your_file\\output_file.txt" For Output As #1

Dim esc As ElementScanCriteria
Set esc = New ElementScanCriteria
esc.ExcludeAllTypes
esc.IncludeType msdElementTypeLineString
 
Dim ee As ElementEnumerator
Set ee = ActiveModelReference.Scan(esc)

Dim el As LineElement

Dim stringNum As Long
stringNum = 1

Do While ee.MoveNext
    Print #1, "String " + CStr(stringNum)
    
    Dim vertices As Long
    vertices = ee.Current.AsLineElement.VerticesCount
    
    Dim points() As Point3d
    points = ee.Current.AsLineElement.GetVertices
    
    Dim index As Long
    For index = 0 To vertices - 1
        Print #1, CStr(points(index).X) + " " + CStr(points(index).Y) + " " + CStr(points(index).Z)
    Next
    
    stringNum = stringNum + 1
Loop

Close #1

End Sub


With regards,

  Jan

Sure, it does what you want, see:

Use Comma as a speparator!

0.637,2.488
1.155,2.868
1.450,2.579
1.701,2.756
2.022,2.595
2.412,2.707
2.433,2.635

I think the problem is not in the separator between coordinates, but that there are no separators between exported elements - the result is just a plain list of coordinates, so there is no information what coordinates belong to what element.

 Jan

Unknown said:

"C:\\path_to_your_file\\output_file.txt"

You were wearing your MDL hat when you wrote that.  VBA requires only a single backslash in a quoted string:

"C:\path_to_your_file\output_file.txt"

Ha ha ha, you are right :-) ... but double backslash notation works also in VBA ... at least on my computer, so despite of it's not correct from VBA point of view, it works.

 Jan

Unknown said:

Double backslash notation works also in VBA ... at least on my computer

It varies with Windows version.  Also, you can use forward-slash (/) in Windows Explorer.

Jan,

It works! And it is exactly what I wanted. :) Thank you very much.