DigiNG edición Scripting

Método digi.RecuperaEntidad

Hace que DigiNG elimine el atributo de borrado a un Objeto Entidad que debe pertenecer a un archivo de DigiNG.

digi.RecuperaEntidad (entidad)

Argumentos

entidad

        Objeto a recuperar.

Ejemplo

Const vbLineas = 1

Const vbPuntos = 2

Const vbTextos = 4

Dim oldBorrados

oldBorrados = digi.Borrados

digi.Borrados = True

digi.RegeneraVistaOrtogonal

Dim entidad

digi.ImprimeMensaje "Selecciona una entidad..."

Set entidad = digi.PideEntidad( False, vbLineas + vbPuntos + vbTextos )

digi.ImprimeMensaje ""

digi.RecuperaEntidad entidad

digi.Borrados = oldBorrados

digi.RegeneraVistaOrtogonal

' Liberamos memoria

Set entidad = Nothing

Mirar también

Método ImprimeMensaje | Método PideEntidad | Método RegeneraVistaOrtogonal | Propiedad Borrados | Objeto Entidad

Fecha de última modificación: domingo, 9 de diciembre de 2001

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