Macro pour sélectionner plusieurs fichiers

[Eag14]

Bonjour,

J'aurais voulu savoir si il était possible depuis CATIA de créer une macro afin d'ouvrir plusieurs fichiers (dans mon cas des CATdrawing), et si oui, comment l'écrire?

[mat3d]

Bonjour,

 

Tu peux faire outils/macros/démarrer l'enregistrement. Ensuite tu clique sur démarrer puis tu ouvres tous les fichiers désirés. Il suffit de cliquer sur l'icône arreter l'enregistrement et ta macro est sauvée.

 

Tu peux la ré-exécuter en faisant outil/macros...Tu vas la retrouver et il suffit de cliquer sur éxécuter. CATIA ouvrira les fichiers en question.

 

Salutations.

[Eag14]

J'ai déja essayer cette solution, sauf que dans la macro, il m'ouvre tous les fichiers un par un,

 

Set drawingDocument1 = documents1.Open(("Z:\TEST\CATDRAWING\ARBRE CAME DE SERRAGE OUTILLAGE PRESSE EBAUCHE.CATDrawing")

 

donc quand on en a 90 c'est un peu long a lire..

 

Est-ce qu'il n'est pas possible d'écrire dans la macro d'ouvrir ou de sélectionner un répertoire, au lieu d'écrire le nom de chaque pièce que l'on veut ouvrir?

[mat3d]

Lorsque tu fais ta macro apres avoir cliqué sur l'icône ouvrir tu peux sélectionner tous les fichiers du répertoire qui t'intéresse (via les touches shift et contrôle à la manière windows)

 

CATIA te les ouvrira tous en ré exécutant cette macro. Par contre si tu rajoutes un fichier il sera ignoré avec cette méthode sauf si tu rajoutes le nouveau fichier en éditant ta macro à la main.

 

A+

[XGX4]

Bonjour Eag14 et les autres,

 

En fait il faut que tu fasses une boucle sur les objets qui sont dans un repertoire.

 

Sub CATMain()

Dim documents1 As Documents
Dim partDocument1 As PartDocument
Dim windows1 As Windows
Dim specsAndGeomWindow1 As SpecsAndGeomWindow

Dim objFSO, objDossier, objFichier
Dim Repertoire

On Error Resume Next

 Repertoire = "F:\CATIAV5\Tempo\TUTU\"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(Repertoire)


 If (objDossier.Files.Count > 0) Then
    For Each objFichier In objDossier.Files
           
       Set documents1 = CATIA.Documents
           
       Set partDocument1 = documents1.Open(Repertoire & objFichier.Name)

    Next
  End If

End Sub

 

Je pense que cela repond à ta question