DigiNG edición Scripting

Propiedad Punto

Devuelve una copia del objeto Objeto Point con las coordenadas del punto solicitado.

objeto.Punto (punto)

Argumentos

punto

        Número de punto que estamos solicitando. Si el objeto es de tipo Punto o de tipo

        Texto este argumento debe ser obligatoriamente 0; si no, se generará un error

        en tiempo de ejecución.

Ejemplo

Dim linea

Set linea = CreateObject("Digi3D.Entidad")

linea.AnadePuntoXYZ 100,200,300

Dim ptTerreno

Set ptTerreno = linea.Punto(0)

if ptTerreno.x = 100 And ptTerreno.y = 200 And ptTerreno.z = 300 Then

        MsgBox "Parece que esto funciona"

End if

Set ptTerreno = Nothing

Set linea = Nothing

Mirar también

Objeto Entidad | Objeto Point

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

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