Language="VBSCRIPT"

'*******************************************************************************
' FikoYT Dialog Çevirici - CATIA Test Script
'
' Bu script IDialogCevirici'yi CATIA içinden başlatır.
' Kullanım: CATIA Macro Editor'de çalıştırın
'*******************************************************************************

Sub CATMain()

    ' FikoYT Dialog Çevirici'yi başlat
    On Error Resume Next

    Dim fikoDialog
    Set fikoDialog = CreateObject("FikoYT.IDialogCevirici")

    If Err.Number <> 0 Then
        MsgBox "HATA: FikoYT.IDialogCevirici kaydı bulunamadı!" & vbCrLf & _
               "Lütfen önce registerCom.py dosyasını çalıştırın:" & vbCrLf & _
               "python registerCom.py", vbCritical, "FikoYT Dialog Çevirici"
        Exit Sub
    End If

    ' CATIA Application nesnesini geçir
    fikoDialog.Calistir CATIA

    MsgBox "FikoYT Dialog Çevirici başlatıldı!", vbInformation, "FikoYT"

End Sub