1. step: Geo-Referencing must be original and the interpolated cross sections!
2. step: Run flow analysis!
3. step: Use the pseudo code in Visual Basic! Input data will be “.geo” file.
Do
Do
Loop Until Line Input = “Type RM Length L Ch R = 1”
s = Input(Len(“XS GIS Cut Line=”), 1)
Input #1, n
Line Input #1, s
X1 = Mid(s, 1,…): Y1 = Mid(s,…)
For I = 3 To n Step 2
Line Input #1, s
Next
X2 = Mid(s, …): Y2 = Mid(s, …)
Line Input #1, NodeLastEditedTime
Input #1, n
ReDim l(1 To n), z(1 To n), X(1 To n), Y(1 To n)
For I = 1 To n
Input #1, l(I), z(I)
Next I
X1 = Val(X1): Y1 = Val(Y1): X2 = Val(X2): Y2 = Val(Y2)
DL = l(n) – l(1)
DX = X2 – X1
DY = Y2 – Y1
For I = 1 To n
X(I) = X1 + (l(I) – l(1)) * DX / DL
Y(I) = Y1 + (l(I) – l(1)) * DY / DL
u = u + 1
Print #2, u; vbTab; X(I); vbTab; Y(I); vbTab; z(I)
Next I
Good luck with the project!