Temat: Jak wyeksportować TXY?

Mam plik 2D, chcę z niego wyeksporetować teksty (są to liczby o bardzo mi potrzebnych wartościach) Niestety tool box XYZ nie daje możliwości exportu tekstu. Czy ma ktos z Was na to inną metodę?

Temat: Jak wyeksportować TXY?

Poniżej prosty skrypt VBA działający na zaznaczonych elementach, formatuje współrzędne do 2 miejsc po przecinku - alt+F11 nowy moduł wklej i uruchom. Wynik w tym samym katalogu co plik dgn z końcówką _wsp.txt
Pozdrawiam,
KS

Option Explicit

Public Sub wyrzut_txy()
Dim oenumerator As ElementEnumerator
Dim oelement As Element
Dim numer As String
Dim plik As String
plik = Left$(MicroStationDGN.ActiveDesignFile.FullName, Len(MicroStationDGN.ActiveDesignFile.FullName) - 4)
Open plik + "_wsp.txt" For Output As #1
Set oenumerator = MicroStationDGN.ActiveModelReference.GetSelectedElements
Do While oenumerator.MoveNext
Set oelement = oenumerator.Current
If oelement.IsTextElement = True Then
Print #1, oelement.AsTextElement.Text + ";" + Str$(Format$(oelement.AsTextElement.Origin.X, "0.00")) + ";" + Str$(Format$(oelement.AsTextElement.Origin.Y, "0.00"))
End If
Loop
Close #1
End Sub