Find the midpoint between two points

[Patriiick]

Code: [Select]

''' <summary>
    '''=========================================================
    '''NAME: myMidPoint
    '''AUTHOR: Patrick EMIN
    '''DESCRIPTION: Finds the midpoint between two points
    '''ARGUMENTS: P1 and P2
    '''DATE: 03/11/2010
    '''=========================================================
    ''' </summary>
    ''' <param name="P1"></param>
    ''' <param name="P2"></param>
    ''' <returns>myLineSegment.MidPoint</returns>
    ''' <remarks>easier to create a line segment because we have the .MidPoint property...</remarks>
    Public Function myMidPoint(ByVal P1 As Point3d, ByVal P2 As Point3d) As Point3d
        Dim myLineSegment As New LineSegment3d(P1, P2)
        Return myLineSegment.MidPoint
    End Function

target audience:{beginner}