DigiNG edición Scripting

Método AnadePuntoXYZ

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

objeto.AnadePuntoXYZ (x, y, z)

Argumentos

x

        Coordenada X del punto que se añade.

y

        Coordenada Y del punto que se añade.

z

        Coordenada Z del punto que se añade.

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 ptTerreno

digi.ImprimeMensaje "Digitalize un punto..."

Set ptTerreno = digi.PidePunto

digi.ImprimeMensaje ""

linea.AnadePuntoXYZ ptTerreno.x, ptTerreno.y, ptTerreno.z

linea.AnadePuntoXYZ 10.02, 24.47, 136.29

'...

' Liberamos la memoria

Set ptTerreno = 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.