DigiNG edición Scripting

Método ModificaPunto

Modifica un punto en una determinada posición de la lista de puntos.

Este método funciona únicamente en un Objeto Entidad de tipo línea y de lectura/escritura.

objeto.ModificaPunto (posición, punto)

Argumentos

posición

        posición que indica qué punto se modificará. Si la posición es mayor que el número de puntos se genera un error.

punto

        Objeto Point que representa el punto nuevo.

Ejemplo

' Este ej' Este ejemplo solicita al usuario que seleccione una línea y

' le inserta un punto al comienzo de la lista de puntos. Este punto que se inserta se ha solicitado

' previamente al usuario.

Option Explicit

Const vbLineas = 1

Const vbDBDIGI = 1

Dim entidad

Dim copia

Dim punto

Dim nPunto

digi.ImprimeMensaje "Seleccione elemento"

Set entidad = digi.PideEntidad( True, vbLineas )

digi.ImprimeMensaje ""

nPunto = CInt(InputBox("Punto a modificar"))

If ((nPunto < 0) Or (nPunto >= entidad.Puntos)) Then

    MsgBox "Error, el punto no es válido"

Else

    digi.ImprimeMensaje "Digitaliza un punto"

    Set punto = digi.PidePunto

    digi.ImprimeMensaje ""

    Set copia = digi.ClonaEntidad(entidad)

    copia.ModificaPunto nPunto, punto

    digi.OcultaEntidad(entidad)

    digi.DibujaEntidad(copia)

    digi.AnadeEntidad(copia)

    digi.BorraEntidad(entidad)

    ' Liberamos la memoria

    Set copia = Nothing

    Set punto = Nothing

End If

Set entidad = Nothing

Mirar también

Objeto Entidad | Método ImprimeMensaje | Método PideEntidad | Método BorraEntidad | Método AnadeEntidad

Fecha de última modificación: jueves, 6 de junio de 2002

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