@vikthor wrote:
Do not run this
Sorry to interrupt you. But I was in need of something like this but not running
Someone help me anyway
Thanks Mcneel' Description:
' Calculates the angle between two 3-D vectors.
' Parameters:
' v0 - [in] - the first vector.
' v1 - [in] - the second vector.
' Returns:
' the angle in degrees.Function VectorAngle(v0, v1)
Dim u0 : u0 = Rhino.VectorUnitize(v0) Dim u1 : u1 = Rhino.VectorUnitize(v1) Dim dot : dot = Rhino.VectorDotProduct(u0, u1) ' Force the dot product of the two input vectors to ' fall within the domain for inverse cosine, which ' is -1 <= x <= 1. This will prevent runtime ' "domain error" math exceptions. If (dot < -1.0) Then dot = -1.0 ElseIf (dot > 1.0) Then dot = 1.0 End If VectorAngle = Rhino.ToDegrees(Rhino.ACos(dot))
End Function
vikthor
Posts: 3
Participants: 2