Hi Christian, try this.
code:
Sub RunScript(ByVal Ang As List(Of Double))
''' <your code>
Dim arrAng As New List(Of Double)
Dim oneAng As Double
For Each oneAng In Ang
If (oneAng < 1.5) Then
arrAng.Add(oneAng)
Else
arrAng.add(0)
End If
Next
A = arrAng
''' </your code>
End Sub
Joach
On Feb 16, 4:18 pm, Raun <[email protected]> wrote:
> Hi,
> I was hoping that some one would be able to point me in the right
> direction with this simple script. Saying that If an angle is over 1.5
> in radians then it sould be equal to zero. This is my progress so far
> but I get errors.
>
> Dim max As New List (Of Double)
> Dim i As Integer = 0
>
> For i = 0 To x.count() - 1
>
> max = x(i)
>
> If (max(i) > y)
> Then max = 0
> End If
>
> Next
>
> A = max
>
> Cheers
>
> Christian
