Comprobar que una recta atraviesa un poligono

[balboa]

Hola Amigos.

Solo quiero decir que ya encontré la solución.

Apartir de dos puntos dados, puedes conocer una recta y cuando la tengas, sacar todos los puntos que creas convenientes de misma (todo esto, en cualquier libro de matemáticas, esta resulto)

Una vez hecho eso, solo queda ver qué puntos de esa recta son los más característicos para sacar el área por donde va:

Código:

Dim x As New Point(100, 400) 'PUNTO QUE PERTENECE A LA TRAYECTORIA
        Dim xx As New Point(350, 150) 'PUNTO QUE PERTENECE A LA TRAYECTORIA



        'AREA 1
        Dim pts() As Point = { _
        New Point(50, 100), _
        New Point(100, 450), _
        New Point(450, 350), _
        New Point(350, 50), _
        New Point(200, 100), _
        New Point(100, 50), _
        New Point(100, 50) _
        }

        ' COMPROBACION AREA 1
        
        Dim path As New GraphicsPath()
        path.AddPolygon(pts)
        Dim region1 As New Region(path)
        Dim contained As Boolean = region1.IsVisible(x)
        Dim contained2 As Boolean = region1.IsVisible(xx)

        If (contained = True) And (contained2 = True) Then
            MessageBox.Show("Region1")
        End If

Espero que con esto, pueda también, haber solucionado cualquier problemilla.

Un saludo