' Makro:        Aufruf_Makroauswahl
' Version:      1.2
' Catia Level:  V5R19
' UIL:          English (User Interface Language)
' Autor:        Christian Obholzer
' E-Mail:       ch.obholzer@aon.at
' Erstellt:     06.05.2010
' Zweck:        Es wir das Fenster "Makroauswahl" aufgerufen
'-----------------------------------------------------------------------------------
' Änderungen:   05.09.2010, Christian Obholzer
'               Beschreibung der Makroschritte hinzugefügt, Deklarationen geändert, Fehlerbehandlung hinzugefügt
'               29.10.2010, Christian Obholzer
'               Umgebungsvariable hinzuegefügt
'-----------------------------------------------------------------------------------

'Option Explicit

    '***Deklarationen
    Public strOC_Pfad As String
    
Sub CATMain()

    '***Fehlerroutine einschalten
    On Error GoTo Fehler
    
    '***Umgebungsvariable ansprechen
    strOC_Pfad = CATIA.SystemService.Environ("OC_Makros")

    If strOC_Pfad <> "" Then
        '***Fenster "Makroauswahl" anzeigen
        OC_GUI.Show
    Else
        '***Meldung an der User
        MsgBox "Es wurde keine OC_Makros Umgebungsvariable gefunden." & vbNewLine & _
        "Das Makro kann nicht ausgeführt werden und wird beendet", vbCritical + vbOKOnly, "Umbebungsvariable nicht gefunden"
        Exit Sub
    End If
    
    '***Anzeige in der Statusbar
    CATIA.StatusBar = ("Aufruf_Makroauswahl.catvba, Version 1.1")

Exit Sub

'***Fehlerbehandlung: Ausgabe der Fehlernummer und Fehlerbeschreibung
Fehler:
    MsgBox "Fehlernummer: " & Err.Number & vbNewLine & _
    "Fehlerbeschreibung: " & Err.Description, vbCritical + vbOKOnly, "Fehler"

End Sub

Public Sub Run_CatVBA(strPfad As String, strMakro As String, strMakrostart As String)

    '***Deklarationen
    Dim vntParameter() As Variant
    Dim vntSystemService As Variant
    
    '***Makro aufrufen
    Set vntSystemService = CATIA.SystemService
    Call vntSystemService.ExecuteScript(strPfad, catScriptLibraryTypeVBAProject, strMakro, strMakrostart, vntParameter)
    
End Sub