DigiNG edición Scripting

Propiedad Texto

Establece o Devuelve el texto asociado a un Objeto Entidad.

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, convierte inmediatamente el objeto a uno de tipo Texto.

objeto.Texto

Ejemplo

Dim ent

Set ent = CreateObject("Digi3D.Entidad")

Dim texto

' texto = ent.Texto   'Si quitamos el comentario de esta línea, falla, ya que por defecto al crear un objeto entidad, este es de tipo Punto

ent.Texto = "Hola mundo"  ' Esto hace que el objeto "ent" se convierta a uno de tipo texto

ent.AnadePuntoXYZ 100 * digi.Precision, 100 * digi.Precision, 0

digi.DibujaEntidad ent

digi.AnadeEntidad ent  ' A partir de este momento, el objeto ent es de solo lectura

'ent.Texto = "Adios"   ' Si descomentamos esta línea, falla, por que el objeto es de solo lectura

' Liberamos la memoria

Set ent = Nothing

Mirar también

Método DibujaEntidad | Método AnadeEntidad | Propiedad PRECISION | Objeto Entidad

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

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