Í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 

Macro para dibujar la tabla de color activa de un fichero

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


Registrado: 10 Jun 2005
Mensajes: 86

MensajePublicado: Sab Jul 16, 2005 5:50 pm    Título del mensaje: Macro para dibujar la tabla de color activa de un fichero Responder citando

Código:
Const LADO=10

Sub AjustaVentanas()
    Dim iView as Integer
    Dim view as MbeView

    For iView = 1 to MBE_MAXVIEWS
        If MbeViews(iView).active <> 0 Then
           Set view = MbeViews(iView)
           view.areaFill = 1
           view.update
        End If
    Next iView
End Sub

Sub Main
    Dim iColor as Integer
    Dim point as MbePoint

    iColor = 0
    MbeSettings.weight = 0
    MbeSendCommand "active fill on"
    Call AjustaVentanas()
    For i=0 to 15
        For j=0 to 15
            MbeSendCommand "active color "+CStr(iColor)
            MbeSendCommand "active fillcolor "+CStr(iColor)
            point.x = j*LADO
            point.y = -(i*LADO)
            MbeSendCommand "PLACE BLOCK"
            MbeSendDataPoint point
            point.x = (j+1)*LADO
            point.y = -((i+1)*LADO)
            MbeSendDataPoint point
            iColor = iColor+1
        Next j
    Next i
End Sub
Volver arriba
Ver perfil del usuario Enviar mensaje privado
Urq
Aficionado
Aficionado


Registrado: 12 Jun 2005
Mensajes: 176
Ubicación: Madrid

MensajePublicado: Vie Oct 21, 2011 11:22 pm    Título del mensaje: Responder citando

Esta macro inserta en el origen global del fichero *.dgn, una representación de la tabla de color activa. Es válida para cualquier versión de MicroStation.

Buen aporte, saludos
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo
Mostrar mensajes anteriores:   
Publicar Nuevo Tema   Responder al Tema    Índice del Foro www.mediocad.com -> Macros 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