DigiNG edición Scripting

Método InsertaPunto

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

objeto.InsertaPunto (posición, punto)

Argumentos

posición

        posición (dentro de la lista de coordenadas) donde se insertará el punto. Si la

        posición es mayor que el número de coordenadas que tiene el Objeto Entidad sobre

        el que se ejecuta el método, el comportamiento de este método se

        asemeja al del Método Entidad.AnadePunto. puntoObjeto Point que representa el punto a insertar.

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 "Digitaliza un punto"

Set punto = digi.PidePunto

digi.ImprimeMensaje ""

Set copia = digi.ClonaEntidad(entidad)

copia.InsertaPunto 0, 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 PidePunto | Método OcultaEntidad | Método DibujaEntidad | Método BorraEntidad | Método AnadeEntidad

Fecha de última modificación: lunes, 3 de junio de 2002

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