DigiNG edición Scripting

Método digi.ClonaEntidad

Esté método hace una copia de un Objeto constante Entidad, devolviendo un nuevo objeto que ya no es constante (es decir, que no está incluido dentro de ningún archivo de Digi), y que es una copia perfecta del primero.

digi.ClonaEntidad (original)

Argumentos

original

        Objeto Entidad original a copiar.

Ejemplo

' Este ejemplo cambia el código de todas las entidades del archivo digi que pasa a ser "020200"

Dim entidadParada

Dim entidad

Set entidadParada = Nothing

Set entidad = digi.PrimeraEntidad(True)

While Not entidad Is Nothing

    If Not entidad.Borrado Then

        ' La siguiente línea, si la descomentamos genera un error, ya que entidad es un objeto Constante

        ' entidad.Codigo = "020400"

        ' Para cambiar el código de la entidad lo hacemos en tres pasos:

        ' 1º Clonamos la entidad original

        Dim copia

        Set copia = digi.ClonaEntidad(entidad)

        ' 2º Hacemos los cambios pertinentes sobre el nuevo objeto no constante

        copia.Codigo = "020200"

        ' 3º Borramos de pantalla y del archivo Digi la entidad original y pintamos y añadimos la copia

        digi.OcultaEntidad entidad

        digi.BorraEntidad entidad

        digi.DibujaEntidad copia

        digi.AnadeEntidad copia ' A partir de este instante la entidad copia pasa a ser constante

        If entidadParada Is Nothing Then

            Set entidadParada = copia   

        End If

    End If

    Set entidad = digi.SiguienteEntidad

    If Not entidadParada Is Nothing and Not entidadParada is Nothing

            If entidadParada.EsMismaEntidad(entidad) Then

            Set entidad = Nothing

        End If

    End If

Wend

Mirar también

Método PrimeraEntidad | Método OcultaEntidad | Método BorraEntidad | Método DibujaEntidad | Método AnadeEntidad | Método SiguienteEntidad | Objeto Entidad

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

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