DigiNG edición Scripting

Propiedad digi.CoordenadasCursor

Devuelve un Objeto Point con las últimas coordenadas donde se ha situado el cursor de DigiNG.

Propiedad de solo lectura.

digi.CoordenadasCursor

Ejemplo

' Ejemplo que simula la orden de DigiNG ZOOMA

Dim ptCentroVista

Dim nuevoMaxMin

Set ptCentroVista = digi.CoordenadasCursor

' Creamos un objeto de tipo MaxMin con el nuevo rango de coordenadas de visualización

Set nuevoMaxMin = CreateObject("Digi3D.MaxMin")

nuevoMaxMin.xmin = ptCentroVista.x - digi.VistaMaxMin.Width/2

nuevoMaxMin.ymin = ptCentroVista.y - digi.VistaMaxMin.Height/2

nuevoMaxMin.xmax = ptCentroVista.x + digi.VistaMaxMin.Width/2

nuevoMaxMin.ymax = ptCentroVista.y + digi.VistaMaxMin.Height/2

' Modificamos el rango de coordenadas de visualización de la vista ortogonal y regeneramos la vista

digi.VistaMaxMin = nuevoMaxMin

digi.RegeneraVistaOrtogonal

' Liberamos la memoria

Set nuevoMaxMin = Nothing

Mirar también

Método ImprimeMensaje | Método PidePunto | Método RegeneraVistaOrtogonal | Propiedad VistaMaxMin

Fecha de última modificación: jueves, 25 de septiembre de 2003

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