Í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 

Programa que Rotula Líneas

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


Registrado: 09 Jun 2005
Mensajes: 1509
Ubicación: Madrid

MensajePublicado: Mar Sep 06, 2005 5:51 pm    Título del mensaje: Programa que Rotula Líneas Responder citando

Hola,

He realizado un programa en VBA que rotula la longitud de una línea sobre ésta. Marta preguntó acerca de una herramienta en Micro y hay una que lo hace pero línea a línea. Con esta versión podremos hacer un cercado y rotulará todas las líneas que comprenda el cercado. Sólo longitud.

Es fácil de utilizar, sólo se ha de crear un cercado y pulsar el botón ACEPTAR.

El programa distingue líneas LINE (tipo 3) y LINESTRING (Cadena de líneas Tipo 4).

LINE: Rotula el texto en el centro de la línea. El texto se escribe en la parte superior. El tamaño del texto es el que tengáis en opciones de texto. Justificación centro-centro. Redondea a tres decimales. El texto se escribe en LV=0 y CO=0.
LINESTRING: Igual que el anterior pero cada tramo tiene su distancia rotulada, como hace Micro. También he añadido que rotule la distancia total. Esta la dibuja en uno de los vértices centrales y con la orientación del tramo anterior al vértice donde se inserta el texto . Por ejemplo, si la línea tiene 20 vértices, el texto de longitud total lo pondrá en el vértice 10 contando desde el inicio y cogerá la orientación del tramo comprendido entre los vértices 9 y 10.
Para los dos: El texto se inserta sobre la línea y no lo separa de ésta. No me ha dado tiempo a depurarlo. Si alguien desea perfeccionarlo o quiere dotarlo de más utilidades, le paso el código y lo modifica. Después me lo envía y lo publico. El código es libre y abierto a modificaciones. Estaría bien que pudiésemos cambiar nuestras herramientas y con la experiencia de cada uno modificarlas para que queden mejor depuradas y todos aprendamos del código. Si aportamos cada uno un poquito de nuestros conocimientos, ganaremos todos.

Para cargarla:

vba load c:\medio\rotula lineas.mvba; vba run modrotula.main.

c:\medio\: Ruta donde está el proyecto
rotula lineas.mvba: Nombre del proyecto. No lleva espacio, es el nombre quer le he puesto.
vba run modrotula.main: El módulo que tiene la apli donde se insta a abrir el formulario.

Pues eso, si alguien desea tener esta herramienta que mo diga y se la envío. Se admiten sugerencia para modificar.

Saludos.
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo Visitar sitio web del autor
mediocad
Gran Maestro
Gran Maestro


Registrado: 09 Jun 2005
Mensajes: 1509
Ubicación: Madrid

MensajePublicado: Mar Sep 06, 2005 5:52 pm    Título del mensaje: Rotula líneas Responder citando

Se ha modificado la aplicación y ahora también lee los elementos tipo 6 (shape), tipo 12 (complex string) y tipo 14 (complex shape).

Los tipos complex están formados por otros subtipos como pueden ser line (tipo 3), line string (tipo 4), arcos (tipo 16)...El programa en principio lee los subtipos 3 y 16 y de ellos devolverá la distancia. Si tuviésemos un tipo 4 compuesto a su vez por varios tramos, devolvería la distancia total del tipo 4. No desmembrana este tipo como lo hace cuando ponemos tipo 4 solo. Ya llegará.

Si deseáis tener esta nueva versión pedirla.

Saludos. Medio.
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo Visitar sitio web del autor
Orphen



Registrado: 21 Dic 2005
Mensajes: 38

MensajePublicado: Lun Jun 23, 2008 11:50 am    Título del mensaje: Excelente Responder citando

Podrias enviarmelo a mi coorreo por favor elvispz@hotmail.com
Volver arriba
Ver perfil del usuario Enviar mensaje privado
mediocad
Gran Maestro
Gran Maestro


Registrado: 09 Jun 2005
Mensajes: 1509
Ubicación: Madrid

MensajePublicado: Lun Jun 23, 2008 6:22 pm    Título del mensaje: En el portal Responder citando

Está puesta en el portal.

Un saludo
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo Visitar sitio web del autor
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