Grasshopper

algorithmic modeling for Rhino

VB script to removel null values from list

I am trying to remove the null values from a list of planes, and output the clean list of planes.

Sub RunScript(ByVal x As List(Of OnPlane))
Dim CleanList As New List (Of OnPlane)
Dim i As Integer
For i = 0 To x.Count() – 1
If x(i) = Nothing
Return
End If
CleanList.Add(x(i))
Next
A = CleanList
End Sub

Views: 606

Replies to This Discussion

Permalink Reply by Dirk Anderson on July 8, 2009 at 11:43am
This should work:

Sub RunScript(ByVal x As List(Of OnPlane))

Dim CleanList As New List (Of OnPlane)

For i As Int32 = 0 To x.Count() – 1
If (x(i) <> Nothing) Then
CleanList.Add(x(i))
End If
Next

A = CleanList

End Sub
Permalink Reply by Tuan N. Tran on July 8, 2009 at 9:52pm
You can also use the "Clean Tree" component.

RSS

About

Scott Davidson created this Ning Network.

Translate

Search

Photos

  • Add Photos
  • View All

Videos

  • Add Videos
  • View All

© 2024   Created by Scott Davidson.   Powered by

Badges  |  Report an Issue  |  Terms of Service