Gestor de macros para CATIA V5 (IV)

Al finalizar este tutorial para la creación de un gestor de macros para CATIA V5, habremos creado un formulario, que podrá ser lanzado desde cualquier módulo de CATIA, para acceder a todas aquellas utilidades que hayamos programado (o conseguido que nos programen) de una forma rápida y fácil.

Aunque está realizado para el entorno de CATIA, la programación está hecha en VBA por lo que puede servir para cualquier aplicación de Office de igual forma.

Este tutorial, lo publiqué ya hace unos años (en 2.014 nada menos, creo recordar…) en el foro de la web de Fernando Torrecilla, autor de, entre otros, El gran libro de CATIA y ahora lo he rescatado, tras revisar alguna documentación que tenía por ahí, de la que ya, ni me acordaba.

Como me ha parecido interesante, he decidido publicarlo aquí de nuevo confiando en que sea de utilidad.

Esta es la parte IV del tutorial y ya estamos llegando al final.

Continuamos donde lo dejamos

Siguiendo donde dejamos el Gestor de macros para CATIA V5, vemos que en el cuadro de lista se han cargado las dos macros de las que disponemos, que en el cuadro inferior de ayuda, se muestra el valor de la propiedad Caption definida para dicho control, y que el botón de Ejecutar macro, aparece deshabilitado, que es como lo queremos cuando no tenemos nada seleccionado.

Parece que vamos bien, así que podemos seguir con los eventos pendientes.

Evento al seleccionar una macro (click) de la lista

Cuando seleccionemos una macro de las disponibles en la lista queremos que:

• En la etiqueta inferior aparezca la ayuda relacionada con ella
• Se habilite la posibilidad de lanzar la ejecución de la macro seleccionada

Para programarla hacemos, de nuevo, que sea visible el UF haciendo doble click sobre él en el explorador de proyectos. Cuando esté visible en el área de edición, hacemos doble click, esta vez sobre el cuadro de lista.

Esto nos lleva a la ventana de código y nos crea la subrutina Private Sub ListBoxMacros_Click() con la cabecera y el final.

En medio tendremos que decirle lo que queremos que haga.

El ListBox, dispone de bastantes mas eventos, pero por defecto, nos propone programar “que pasa al hacar click”.

Si queréis investigar, encima de la ventana de código hay dos ventanitas. La primera nos dice en que control estamos programando, la segunda nos dice que evento estamos programando.

Si tenéis curiosidad, podéis desplegar la segunda para ver que eventos se pueden programar para el control seleccionado. No todos los controles reaccionan a los mismos eventos.

Seguimos. Lo primero que haremos es verificar que hay algo seleccionado y, en tal caso, habilitar el botón de ejecutar; en caso contrario, deshabilitarlo.

If UF_MisMacros.ListBoxMacros.ListCount = 0 Then
     UF_MisMacros.Ejecutar.Enabled = False
Else
     UF_MisMacros.Ejecutar.Enabled = True
End If

Leeremos también el índice de la línea seleccionada para actuar después en consecuencia. La primera tiene el índice 0 y la última el número de elementos menos 1 (la numeración no va de 1 a n, sino de 0 a n-1).

Con una instrucción Select, determinaremos que hacer en función de este índice:

Seleccionada = UF_MisMacros.ListBoxMacros.ListIndex 
Select Case Seleccionada
        Case 0
          UF_MisMacros.LblTip.Caption = "Muestra la versión de CATIA"
        Case 1
          UF_MisMacros.LblTip.Caption = "Saluda amablemente "
End Select

Y todo junto:

Private Sub ListBoxMacros_Click()
    Dim Seleccionada As Integer
    If UF_MisMacros.ListBoxMacros.ListCount = 0 Then
        UF_MisMacros.Ejecutar.Enabled = False
    Else
        UF_MisMacros.Ejecutar.Enabled = True
    End If
    Seleccionada = UF_MisMacros.ListBoxMacros.ListIndex
    Select Case Seleccionada
        Case 0
          UF_MisMacros.LblTip.Caption = "Muestra la versión de CATIA"
        Case 1
          UF_MisMacros.LblTip.Caption =  "Saluda amablemente…”
    End Select
End Sub 

Si volvemos a ejecutar la macro, podremos comprobar que al seleccionar cada una de las macros, el texto de ayuda mostrado es el indicado para cada caso en la orden Select Case y que el botón de ejecución se habilita (aún no hace nada, porque no le hemos explicado que hacer).

Evento de Ejecución de macro seleccionada

Tenemos que decirle ahora a nuestro gestor que es lo que debe hacer cuando hagamos click sobre él. Ya sabemos cómo programar su evento click:

• Doble click en explorador proyectos sobre UF
• Doble click sobre el control tipo button de ejecutar macro

Aquí vamos a volver a tirar de la propiedad ListIndex del cuadro de lista, que contiene el índice de la selección que tengamos activada.

También utilizaremos una orden Select – Case para, en función de la selección realizada, lanzar una u otra macro.

Para lanzar la macro correspondiente, usaremos la sentencia Call mas el nombre que antes dimos a cada subrutina (recordemos: VersionCatia y Saludos).

Nos debe quedar algo así:

Private Sub Ejecutar_Click()
    Dim EjecutarMacro As Integer
    
    EjecutarMacro = UF_MisMacros.ListBoxMacros.ListIndex
    
    Select Case EjecutarMacro
        Case 0
            Call VersionCatia
        Case 1
            Call Saludos 
    End Select
End Sub

Evento de cierre del formulario

Y solo nos queda gestionar otro evento para completar el Gestor de macros para CATIA V5, que es el de cerrar el gestor al hacer click en el botón Salir. Vamos a editar su código, de la forma ya sabida.

El código será como sigue:

Private Sub Cerrar_Click()
    Unload Me
End Sub

El comando Unload, necesita un parámetro que es el nombre del UF a cerrar, pero cuando se cierra a sí mismo, es más cómodo usar Me. También podríamos haber optado por ocultarlo en vez de descargarlo, pero:

• Seguiría en memoria
• No controlaríamos su inicialización (deberíamos controlar su comportamiento al abrirlo de nuevo mediante el método Activate)

Ya tenemos todo. Solo nos falta probarlo. Lo ejecutamos de nuevo yendo al módulo Mod_MisMacros y, situándonos en el código de la rutina CATMain (que solo tiene 3 líneas), pulsamos F5.

amos a ver qué hace si seleccionamos la primera macro y pulsamos ejecutar:

Vemos que nos dice que versión, reléase y SP tenemos en ejecución en un cuadro de mensaje de texto. Aceptamos y vamos a probar nuestra segunda macro.

Nos saluda!!!

Probamos ahora el botón de Salir… Y completado.

Si quieres ver otras partes de este tutorial para la creación de un gestor de macros para CATIA V5, aquí tienes los enlaces: Parte III / Parte V