DigiNG edición Scripting

Propiedad Giro

Establece o Devuelve el giro asociado a un Objeto Entidad de tipo texto.

El valor del giro se mide en grados sexagesimales.

Si el Objeto Entidad no representa una entidad de tipo Texto, cuando accedemos a la propiedad en modo lectura, la llamada fallará.

Si el Objeto Entidad no representa una entidad de tipo Texto, cuando accedemos a la propiedad en modo escritura, la llamada fallará.

objeto.Giro

Ejemplo

' Este ejemplo emula la orden CAMB_AA de DigiNG

Const vbTexto = 4

Dim texto

Dim nueva

Digi.ImprimeMensaje "Selecciona un texto para cambiar su ángulo activo"

Set texto = Digi.PideEntidad(True, vbTexto)

Digi.ImprimeMensaje ""

Set nueva = Digi.ClonaEntidad(texto)

nueva.Giro = digi.AA * digi.Precision

Digi.OcultaEntidad texto

Digi.BorraEntidad texto

Digi.DibujaEntidad nueva

Digi.AnadeEntidad nueva

' Liberamos la memoria

Set nueva = Nothing

Set texto = Nothing

Mirar también

Método ImprimeMensaje | Método PideEntidad | Método OcultaEntidad | Método BorraEntidad | Método DibujaEntidad | Método AnadeEntidad | Propiedad AA | Propiedad PRECISION | Objeto Entidad

Fecha de última modificación: lunes, 28 de enero de 2002

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