VB net in 6.0059 to VB in 7.00048

by Andrew Lyon

Sep 2, 2010

Hey all I'm giong through the old tutorials to refresh my memory. Rhino Common is just different enough that I'm having some trouble.

 

I'm having trouble rotating a line!!!! ridic.

 

a little reminder or any tips would be appreciated.

 

Function Rotate_Scale_Line(ByVal aline As Line, ByVal A As Double)As Line


    'Take a portion of the new line
    Dim new_line As New Line
    Dim e_pt As New Point3d

    new_line = aline

    'Declare Initial States
    e_pt = new_line.PointAt(0.95)

    new_line.To = e_pt

    'Rotate

    new_line.Direction.Rotate(A, Vector3d.ZAxis)

    'Function Return
    Rotate_Scale_Line = new_line

  End Function

  • up

    David Rutten

    How about this:

    Private Function RotateLine(ByVal line As Line, ByVal A As Double) As Line
          line.To = line.PointAt(0.95)
          line.Transform(Transform.Rotation(A, Vector3d.ZAxis, line.From))

          Return line
    End Function

    --
    David Rutten
    david@mcneel.com
    Poprad, Slovakia
    2

    Sep 2, 2010