DigiNG edición Scripting

Método PuntoEnPoligono

Nos indica si el Objeto Point pasado por parámetros está en el interior del Objeto Entidad sobre el cual se ejecuta el método.

objeto.PuntoEnPoligono

Este método sólo funciona si el elemento representado por el Objeto Entidad es de tipo lineal.

Ejemplo

El siguiente ejemplo solicita al usuario que seleccione una línea cerrada y luego le solicita que digitalice un punto. Luego muestra mediante un cuadro de diálogo si el punto registrado está o no dentro de la línea seleccionada.

' Ejemplo del método PuntoEnPoligono de un objeto de tipo Linea

Option Explicit

Const vbLineas = 1

Dim linea

Dim ptTerreno

digi.ImprimeMensaje "Selecciona una línea cerrada"

Set linea = digi.PideEntidad( True, vbLineas )

digi.ImprimeMensaje "Digitaliza un punto..."

Set ptTerreno = digi.PidePunto

digi.ImprimeMensaje ""

If linea.PuntoEnPoligono(ptTerreno) Then

        MsgBox("El punto está en el interior de la línea")

Else

        MsgBox("El punto no está en el interior de la línea")

End If

' Liberamos la memoria

Set linea = Nothing

Set ptTerreno = Nothing

Mirar también

Objeto Entidad | Objeto Point | Método ImprimeMensaje | Método PideEntidad | Método PidePunto |

Fecha de última modificación: sábado, 4 de mayo de 2002

© 2001-2002 Dreaming With Objects. Todos los derechos reservados.