DigiNG edición Scripting

Método Cerrar

Cierra un elemento de tipo Línea añadiendo un vértice al final de la línea con las coordenadas del primer vértice.

objeto.Cerrar

Este método sólo funciona si el elemento representado por el Objeto Entidad es de tipo lineal.

Ejemplo

El siguiente ejemplo crea un objeto y le añade dos puntos, uno que el usuario introduce mediante el cursor, pedales... y otro creado por el script.

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.Cerrar

digi.DibujaEntidad entidad

digi.AnadeEntidad entidad

Set ptTerreno = Nothing

Set entidad = Nothing

Mirar también

Objeto Entidad | Objeto Point | Método ImprimeMensaje | Método PidePunto | Método DibujaEntidad | Método AnadeEntidad

Fecha de última modificación: lunes, 28 de enero de 2002

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