Hi,
I have a Polyline (crazy one) that I Divided to points,
Now I want to write a VB script, But for my script I need to give each point a number
in my script I called the list of numbers (whole numbers of point) index
and I called the last point as indexMax
that what I wrote I am sure that I made some mistakes- so if one of you can help me I will be more then glad
If abc(sin(3 * pi() * ptList / ptLast)) < 0.5 Then harmony = 3 = z, 2 = x, 1 = y
A = 0
Else
A = 1
n = 0
For n < ptLast
If A(n) = A(n + 1) Then
Zf(n) = Z(n) + 12 * A(n)
n = n + 1
End If
(n + 4) < ptLast Then
Zf(n) = Z(n) + 12 * A(n)
Zf(n + 4) = Z(n + 4) + 12 * A(n + 4)
Zf(n + 2) = Z(n + 2) + 6
Zf(n + 1) = Z(n + 1) + 6 - 3 * (A(n + 4) - A(n))
Zf(n + 3) = Z(n + 1) + 6 + 3 * (A(n + 4) - A(n))
n = n + 5
End If
Else M = ptLast - n
For n<ptLast
Zf(n) = (ptLast - n) / M * 12 * A(ptLast - M) + Z(n)
n = n + 1
End
Zf(ptLast) = Z(ptLast)
Tags: