DigiNG edición Scripting

Propiedad Borrado

Devuelve/Establece el atributo de borrado de un objeto Entidad.

Si intentamos modificar el atributo de borrado en un Objeto Entidad Constante, la llamada a la propiedad falla. Para borrar un Objeto Entidad Constante tenemos que usar el método Método BorraEntidad de DigiNG.

objeto.Borrado

Ejemplo

' Este ejemplo nos muestra en un globo el número de entidades borradas que tenemos

' en nuestro archivo actual

Const vbLinea = 1

Const vbPunto = 2

Const vbTexto = 4

Dim entidad

Dim lineas

Dim puntos

Dim textos

Set entidad = digi.PrimeraEntidad(True)

While Not entidad Is Nothing

    If entidad.Borrado Then

        Select Case entidad.Tipo

            Case vbLinea

                lineas = lineas + 1

            Case vbPunto

                puntos = puntos + 1

            Case vbTexto

                textos = textos + 1       

        End Select

    End If

    Set entidad = digi.SiguienteEntidad

Wend

digi.MuestraGlobo "Número de entidades borradas", "Líneas: " & lineas & vbCrLf & "Puntos: " & puntos & vbCrLf & "Textos: " & textos, 1, 5000

Mirar también

Método PrimeraEntidad | Método SiguienteEntidad | Método MuestraGlobo | Objeto Entidad

Fecha de última modificación: lunes, 28 de enero de 2002

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