''' <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}