DigiNG edición Scripting

Método digi.DibujaEntidad

Dibuja un Objeto Entidad en la vista estereoscópica y ortogonal.

digi.DibujaEntidad (entidad)

Argumentos

entidad

        Objeto a dibujar.

Ejemplo

Dim entidad

Dim ptTerreno

Set entidad = CreateObject("Digi3D.Entidad")

digi.ImprimeMensaje "Digitaliza el centro del cuadrado de 200 unidades..."

Set ptTerreno = digi.PidePunto

digi.ImprimeMensaje ""

Dim semiancho

semiancho = 100 * digi.Precision

entidad.Codigo = "020123"

entidad.AnadePuntoXYZ ptTerreno.x - semiancho, ptTerreno.y + semiancho, ptTerreno.z

entidad.AnadePuntoXYZ ptTerreno.x + semiancho, ptTerreno.y + semiancho, ptTerreno.z

entidad.AnadePuntoXYZ ptTerreno.x + semiancho, ptTerreno.y - semiancho, ptTerreno.z

entidad.AnadePuntoXYZ ptTerreno.x - semiancho, ptTerreno.y - semiancho, ptTerreno.z

entidad.AnadePuntoXYZ ptTerreno.x - semiancho, ptTerreno.y + semiancho, ptTerreno.z

digi.DibujaEntidad entidad

digi.AnadeEntidad entidad

Set ptTerreno = Nothing

Set entidad = Nothing

Mirar también

Método ImprimeMensaje | Método PidePunto | Método DibujaEntidad | Método AnadeEntidad | Propiedad Precision | Objeto Entidad

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

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