Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

' *****************************************************************************

' *********************************************************************************** ************************ ' Objet : Modèle de départ des macros CATScript de la zone de partage ' Version : 1.2 ' Langage : VBScript ' CATIA Version : V5R17SP4 ' Auteur : Guillaume BARILLOT (IBM) (e273092) ' Créée le : 24/07/2009 ' Modifiée : 03/01/2011 (Ajout du suivi d'utilisation Genesis) ' Commentaire: Le script ci-dessous doit être inséré au début de chaque nouvelle macro ' ' *********************************************************************************** ************************ Sub CATMain() ' ***************************************************** ' Suivi d'utilisation des macros (Ne pas supprimer) ' ***************************************************** '*** A remplir : mettre le nom de l'outil entre "" *** Dim sNomOutil As String sNomOutil = "0001_Modele_de_depart" '***************************************************** Dim arguments(1) arguments(0) = sNomOutil If InStr(CATIA.SystemService.Environ("OS"), "Windows_NT") = 1 Then CATIA.SystemService.ExecuteScript "C:\Macros\Suivi\", catScriptLibraryTypeDirectory, "0003_Macro_Suivi_CATScripts.CATScript", "CATMain", arguments CATIA.SystemService.ExecuteScript "C:\Macros\", catScriptLibraryTypeDirectory, "0008_Genesis.CATScript", "CATMain", arguments If Err.Number <> 0 Then CATIA.SystemService.ExecuteScript "\\pyun21\mg9vv027\mg9vv027\Macros\ Suivi\", catScriptLibraryTypeDirectory, "0003_Macro_Suivi_CATScripts.CATScript", "CATMain", arguments End If Else CATIA.SystemService.ExecuteScript "/home/mg9vv027/Macros/Suivi/", catScriptLibraryTypeDirectory, "0003_Macro_Suivi_CATScripts.CATScript", "CATMain", arguments End If On Error Goto 0 '**************************************** ' Fin du suivi d'utilisation des macros '**************************************** '*** Début de la macro ci-dessous End Sub uploads/Philosophie/ 0001-macro-modele-de-depart1.pdf