DigiNG edición Scripting

Método Distancia

Devuelve la distancia desde el objeto hasta otro Objeto Point.

objeto.Distancia (punto)

Argumentos

punto

        Objeto Point con el que medir la distancia.

Ejemplo

Dim pt1

Dim pt2

Dim distancia

Set pt1 = CreateObject("Digi3D.Point")

Set pt2 = CreateObject("Digi3D.Point")

pt1.x = 100

pt1.y = 100

pt2.x = 12

pt2.y = 26

distancia = pt1.Distancia(pt2)

Mirar también

Objeto Point

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

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