digi.AlmacenaInstantanea

DigiNG edición Scripting

Método digi.AlmacenaInstantanea

Almacena una instantánea (obtenida de la foto izquierda del monitor estereoscópico) cuyo centro coincide con las coordenadas terreno pasadas por parámetro.

La instantánea se almacenará en el directorio que tenga el usuario configurado como directorio de instantáneas.

digi.AnadeEntidad (nombre, ptCoordenadasTerreno, bForzarEscritura)

Argumentos

nombre

Nombre con el que se almacenará la instantánea.

ptCoordenadasTerreno

Objeto Point con las coordenadas terreno de las cuales se desea sacar la instantánea.

bForzarEscritura

Ti es True, sobreescribe la instantánea en el caso de que exista, si es False, no la sobreescribe si existe pero la crea si no existe.

Devuelve

True Si la instantanea se almacenó con éxito.

False No se pudo almacenar la instantánea por varios motivos: que el usuario no tenga activo Digi3D, o que alguna de las orientaciones (internas, relativa o absoluta) no esté realizada.

Ejemplo

Const vbDigi3DError = 2

Dim ptTerreno

digi.ImprimeMensaje "Digitaliza un punto para almacenar una instantánea..."

Set ptTerreno = digi.PidePunto

digi.ImprimeMensaje ""

Dim nombre

nombre = InputBox("Nombre del punto")

If Not digi.AlmacenaInstantanea(nombre, ptTerreno) Then

digi.Musica vbDigi3DError

digi.MuestraGlobo "Error almacenando una instantánea", "No se pudo almacenar la instantánea" & vbCrLf & "Posiblemente por que no está abierto Digi3D", 3, 5000

Else

MsgBox("Se almacenó la instantánea correctamente")

End If

' Liberamos la memoria

Set ptTerreno = Nothing

Mirar también

Método ImprimeMensaje | Método PidePunto | Método Musica | Método MuestraGlobo | Objeto Point

Fecha de última modificación: domingo, 28 de abril de 2002