DigiNG edición Scripting

Método AnadePunto

Añade un punto de coordenadas a un Objeto Entidad.

objeto.AnadePunto (punto)

Argumentos

punto

        Objeto Point con las coordenadas a añadir.

Por defecto, cuando creamos un objeto de tipo entidad, el tipo asociado a dicho objeto es el tipo Punto.

• Si añadimos un primer punto con coordenadas a dicho objeto, se mantendrá su tipo como Punto.
• Si añadimos un segundo punto con coordenadas a dicho objeto, se cambiará automáticamente su tipo a Línea.
• Si asignamos un texto al objeto, se cambiará automáticamente a tipo texto y si tenía más de una coordenada, se eliminarán todas menos la primera.
• Si tenemos un objeto de tipo texto y añadimos un punto con coordenadas, se sobreescribirá el valor de las coordenadas antiguas por el de las nuevas, pero el objeto mantendrá únicamente una coordenada.

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 linea

Set linea = CreateObject("Digi3D.Entidad")

Dim ptTerrenoUsuario

Dim ptTerrenoScript

digi.ImprimeMensaje "Digitalice un punto..."

Set ptTerrenoUsuario = digi.PidePunto

digi.ImprimeMensaje ""

Set ptTerrenoScript = CreateObject("Digi3D.Point")

ptTerrenoScript.x = ptTerrenoUsuario.x + 10

ptTerrenoScript.y = ptTerrenoUsuario.y + 10

ptTerrenoScript.z = ptTerrenoUsuario.z

linea.AnadePunto ptTerreno

linea.AnadePunto ptTerrenoScript

'...

' Liberamos la memoria

Set ptTerrenoUsuario = Nothing

Set ptTerrenoScript = Nothing

Set linea = Nothing

Mirar también

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

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

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