DigiNG edición Scripting

Método BorraAtributo

Borra un atributo en una determinada posición de la lista de atributos.

Este método funciona únicamente en Objetos Entidad de lectura/escritura.

objeto.BorraAtributo (posición)

Argumentos

posición

        posición que indica qué atributo borrar.

Ejemplo

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

' borra todos sus atributos.

Option Explicit

Const vbLineas = 1

Dim entidad

Dim copia

digi.ImprimeMensaje "Seleccione elemento"

Set entidad = digi.PideEntidad( True, vbLineas )

digi.ImprimeMensaje ""

If entidad.Atributos = 0 Then

    MsgBox "La entidad no tiene atributos"

Else

    Set copia = digi.ClonaEntidad(entidad)

    While copia.Atributos > 0

        copia.BorraAtributo(0)

    Wend

    digi.AnadeEntidad(copia)

    digi.BorraEntidad(entidad)

    ' Liberamos la memoria

    Set copia = 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: martes, 28 de mayo de 2002

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