DigiNG edición Scripting

Método Desplaza

Genera una matriz de transformación de desplazamiento a partir de los datos pasados por parámetro y multiplica todas las coordenadas del Objeto Entidad sobre el que se está ejecutando el método por dicha matriz de transformación.

Este método sólo se puede ejecutar en Objetos Entidad de lectura/escritura.

objeto.Desplaza (desplazamientoX, desplazamientoY, desplazamientoZ )

Argumentos

desplazamientoX

        Factor de desplazamiento en X en la matriz de transformación generada.

desplazamientoY

        Factor de desplazamiento en Y en la matriz de transformación generada.

desplazamientoZ

        Factor de desplazamiento en Z en la matriz de transformación generada.

Ejemplo

El siguiente ejemplo solicita al usuario que seleccione una línea y hace una copia de ésta duplicando su tamaño.

Option Explicit

Const vbLineas = 1

Dim entidad

Dim copia

Dim desplazamientoX

Dim desplazamientoY

Dim desplazamientoZ

digi.ImprimeMensaje "Selecciona una línea"

Set entidad = digi.PideEntidad( True, vbLineas )

digi.ImprimeMensaje ""

desplazamientoX = (entidad.MaxMin.xmin + entidad.MaxMin.xmax)/2

desplazamientoY = (entidad.MaxMin.ymin + entidad.MaxMin.ymax)/2

desplazamientoZ = (entidad.MaxMin.zmin + entidad.MaxMin.zmax)/2

Set copia = digi.ClonaEntidad(entidad)

copia.Desplaza -desplazamientoX, -desplazamientoY, -desplazamientoZ

copia.Escala 2.0, 2.0, 1.0

copia.Desplaza desplazamientoX, desplazamientoY, desplazamientoZ

digi.OcultaEntidad entidad

digi.DibujaEntidad copia

digi.AnadeEntidad copia

digi.BorraEntidad entidad

Mirar también

Objeto Entidad | Método ImprimeMensaje | Método PideEntidad | Método ClonaEntidad | Método OcultaEntidad | Método DibujaEntidad | Método AnadeEntidad | Método BorraEntidad

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

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