DigiNG edición Scripting

Método Gira

Genera una matriz de transformación de giros a partir del factor pasado 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.Gira (theta )

Argumentos

theta

        Valor (en radianes) con el giro que se desea aplicar.

Ejemplo

El siguiente ejemplo solicita al usuario que seleccione una línea y hace una copia de ésta girándola 180 grados sexagesimales.

Option Explicit

Const vbLineas = 1

Const Pi = 3.14159265358979323846

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.Gira Pi

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.