Thanks Joach, It works perfect... Thank you so much
Cheers Christian On 16 feb, 16:30, joach <[email protected]> wrote: > 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
