Remerciez-le!

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

macro modele de depart1

' Objet Modèle de départ des macros CATScript de la zone de partage ' Version ' Langage VBScript ' CATIA Version V R SP ' Auteur Guillaume BARILLOT IBM e ' Créée le ' Modi ?ée 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 Modele de depart ' Dim arguments arguments sNomOutil If InStr CATIA SystemService Environ OS WindowsNT Then CATIA SystemService ExecuteScript C Macros Suivi catScriptLibraryTypeDirectory MacroSuiviCATScripts CATScript CATMain arguments CATIA SystemService ExecuteScript C Macros catScriptLibraryTypeDirectory Genesis CATScript CATMain arguments If Err Number Then CATIA SystemService ExecuteScript pyun mg vv mg vv Macros Suivi catScriptLibraryTypeDirectory MacroSuiviCATScripts CATScript CATMain arguments End If Else CATIA SystemService ExecuteScript home mg vv Macros Suivi catScriptLibraryTypeDirectory MacroSuivi CATScripts CATScript CATMain arguments End If On Error Goto ' ' Fin du suivi d'utilisation des macros ' ' Début de la macro ci-dessous CEnd Sub C