DigiNG edición Scripting

Método ModificaPuntoXYZ

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.ModificaPuntoXYZ (posición, x, y, z)

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.

x

        Coordenada X del punto modificado.

y

        Coordenada Y del punto modificado.

z

        Coordenada Z del punto modificado.

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 = 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.ModificaPuntoXYZ nPunto, punto.x, punto.y, punto.z

    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.