Value of type 'Rhino.Geometry.Plane' cannot be converted to 'Rhino.Geometry.Vector3d'. (line 91)"
...and subsequently returns a <null>?
The code:
Private Sub RunScript(ByVal lstPln1 As List(Of Plane), ByVal plnXY As Plane, ByRef Qout As Object)
'your code goes here…
Dim i As Int32
Dim lstOut As New List (Of Object) For i = 0 To lstPln1.Count - 1
Dim Q As Quaternion = Quaternion.Rotation(lstPln1(i), plnXY)
Dim q1 As Double = Q.A * -1
Dim q2 As Double = Q.B * -1
Dim q3 As Double = Q.C * -1
Dim q4 As Double = Q.D * -1
Dim strQ As String = Q.A.ToString & "," & Q.B.ToString & "," & q3.ToString & "," & q4.ToString
lstOut.Add(strQ)
Next
Qout = lstOut End Sub…