''' <summary>
    ''' 判断三个点是否共线
    ''' </summary>
    ''' <param name="firstPoint">第一个点</param>
    ''' <param name="secondPoint">第二个点</param>
    ''' <param name="thirdPoint">第三个点</param>
    ''' <returns></returns>
    <System.Runtime.CompilerServices.Extension> _
    Public Shared Function IsOnOneLine(firstPoint As Point3d, secondPoint As Point3d, thirdPoint As Point3d) As Boolean
        Dim v21 As Vector3d = secondPoint.GetVectorTo(firstPoint)
        Dim v23 As Vector3d = secondPoint.GetVectorTo(thirdPoint)
        If v21.GetAngleTo(v23) = 0 OrElse v21.GetAngleTo(v23) = Math.PI Then
            Return True
        Else
            Return False
        End If
    End Function

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：2*9=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情