DigiNG edición Scripting

Método digi.GuardaArchivo

Crea un archivo .bin nuevo (y trunca el archivo en caso de que ya existiese a la hora de ejecutar el método) y almacena en el un array de entidades.

digi.GuardaArchivo (nombreArchivo, entidades )

Argumentos

nombreArchivo

        Nombre del archivo a generar.

entidades

        Array de Objetos entidad a almacenar en el archivo.

Ejemplo

Option Explicit

Dim ArrayEntidades()

Dim i

Redim ArrayEntidades(2)

Set ArrayEntidades(0) = CreaCuadrado(100,100,200,200)

Set ArrayEntidades(0) = CreaCuadrado(125,125,175,175)

digi.GuardaArchivo "c:\prueba.bin" ArrayEntidades

' Liberamos la memoria

For i = 0 To 1

        Set ArrayEntidades(i) = Nothing

Next

Function CreaCuadrado(x1, y1, x2, y2)

        Dim entidad

        Set entidad = CreateObject("Digi3D.Entidad")

        entidad.Codigo = digi.Codigo

        entidad.AnadePuntoXYZ x1, y1, 0

        entidad.AnadePuntoXYZ x2, y1, 0

        entidad.AnadePuntoXYZ x2, y2, 0

        entidad.AnadePuntoXYZ x1, y2, 0

        entidad.Cerrar

        Set CreaCuadrado = entidad

End Function

Mirar también

Método DialogoPideArchivoReferencia | Método CargaArchivo | Método Musica

Fecha de última modificación: miércoles, 18 de junio de 2003

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