DigiNG edición Scripting

Método BorraPunto

Borra un punto de una determinada posición de la lista de coordenadas en un Objeto Entidad de tipo línea y de modo lectura/escritura.

objeto.BorraPunto (posición)

Argumentos

posición

        posición que indica qué punto borrar.

Ejemplo

' 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

digi.ImprimeMensaje "Seleccione elemento"

Set entidad = digi.PideEntidad( True, vbLineas )

digi.ImprimeMensaje ""

punto = InputBox("Punto a borrar")

Set copia = digi.ClonaEntidad(entidad)

copia.BorraPunto punto

digi.OcultaEntidad(entidad)

digi.DibujaEntidad(copia)

digi.AnadeEntidad(copia)

digi.BorraEntidad(entidad)

' Liberamos la memoria

Set copia = Nothing

Set punto = Nothing

Set entidad = Nothing

Mirar también

Objeto Entidad | Método ImprimeMensaje | Método PideEntidad | Método ClonaEntidad | Método OcultaEntidad | Método DibujaEntidad | 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.