DigiNG edición Scripting

Código de ejemplo "Zoomp"

El código de ejemplo de esta sección emula la orden interna de DigiNG zoomp que centra la visualización de la pantalla ortogonal en un punto que el usuario digitaliza con el ratón o con los codificadores.

Para ejecutar este código en DigiNG, seguir los siguientes pasos:

Crear con un editor de textos (como el bloc de notas) un archivo llamado "Zoomp". Posiblemente, al salvar el archivo, el editor de textos añada la extensión .txt, que tendremos que quitar más adelante con el explorador de archivos de Windows.

Copiar el siguiente bloque de código de ejemplo en el archivo "Zoomp".

Dim ptCentroVista

Dim nuevoMaxMin

' Solicitamos al usuario que digitalize un punto

digi.ImprimeMensaje "Digitalize el punto para centrar la pantalla alrededor de éste..."

Set ptCentroVista = digi.PidePunto

digi.ImprimeMensaje ""

' 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: domingo, 9 de diciembre de 2001

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