Índice del Foro www.mediocad.com www.mediocad.com
TODO SOBRE MICROSTATION. MDL, MVBA, MACROS.
 
 F.A.Q.F.A.Q.   BuscarBuscar   Lista de MiembrosLista de Miembros   Grupos de UsuariosGrupos de Usuarios   RegístreseRegístrese 
 PerfilPerfil   Conéctese para revisar sus mensajesConéctese para revisar sus mensajes   ConectarseConectarse 

Insertar texto

 
Publicar Nuevo Tema   Responder al Tema    Índice del Foro www.mediocad.com -> MVBA
Ver tema anterior :: Ver siguiente tema  
Autor Mensaje
mashi



Registrado: 13 Mar 2008
Mensajes: 18

MensajePublicado: Jue Jul 10, 2008 7:17 pm    Título del mensaje: Insertar texto Responder citando

Hola.

No se si alguien puede subir un pedazo de programa donde se inserte texto definiendo las propiedades de Height y Weight en un punto 3d (las coordenadas y el texto en mi caso estan en unas variables).

Gracias.
Volver arriba
Ver perfil del usuario Enviar mensaje privado
Segimer



Registrado: 10 Mar 2008
Mensajes: 38

MensajePublicado: Jue Jul 10, 2008 10:07 pm    Título del mensaje: Escribir texto Responder citando

Ahí te va:
Código:
Sub InsertaTexto()
    Dim punto As Point3d
    Dim texto As TextElement
   
    punto.X = 1.1
    punto.Y = 1.2
    punto.Z = 1.3
   
    Set texto = Application.CreateTextElement1(Nothing, "Hola mundo", punto, Matrix3dIdentity)
    Application.ActiveModelReference.AddElement texto
    texto.TextStyle.Width = 1.5
    texto.TextStyle.Height = 1.5
    texto.LineWeight = 3
    texto.Redraw
    texto.Rewrite
End Sub


Te inserta la cadena de texto 'Hola mundo' con el origen dado por 'punto'. Al pasarle 'nothing' toma las características que estén activas en ese momento (nivel, color,...) a no ser alto, ancho y grueso, que se le indica en el código después de añadir el texto al modelo.
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo
mashi



Registrado: 13 Mar 2008
Mensajes: 18

MensajePublicado: Sab Jul 12, 2008 12:56 am    Título del mensaje: Responder citando

Muchisimas gracias.
Volver arriba
Ver perfil del usuario Enviar mensaje privado
Mostrar mensajes anteriores:   
Publicar Nuevo Tema   Responder al Tema    Índice del Foro www.mediocad.com -> MVBA Todas las horas están en GMT + 1 Hora
Página 1 de 1

 
Saltar a:  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas


Powered by phpBB © 2001, 2005 phpBB Group