Discussion :

[Pro_du_dimanche]

Bonjour tout le monde,

j'ai un petit soucis avec mes macros CATIA et je sais plus où chercher ^^.

J'ai crée une macro qui réalise différentes opérations sur des drawings rangés dans un dossier spécifique sous windows. J'ai beaucoup de plans à traiter en fin de projet et peu de temps. Du coup, la macro ouvre tout les plans un par un et met à jour le cartouche, enregistre sous différents formats dans le répertoire puis imprime en fonction du format du calque. Par contre, j'aimerai bien qu'elle n'imprime pas si le plan n'est pas à jour. J'ai pas mal cherché mais j'ai l'impression qu'aucune fonction n'existe pour récupérer le statut de MAJ d'un drawing ou d'un assemblage. Mettre à jour un plan(.Update).. OK, Savoir si une cote est à jour (Cote rose)...OK. Mais savoir si un plan ou un assemblage est à jour.....

Avez-vous des astuces pour récupérer cette information?

Merci D'avance!

[Pro_du_dimanche]

Toujours en train de chercher.

J'ai épluché l'ensemble des method du CatiaDoc pour les drawing et je cherche un moyen de créer une fonction similaire à IsUpToDate() du répertoire Part. Je ne comprend pas pourquoi cette fonction n'est pas disponible dans le répertoire drawing...

Si quelqu'un à une idée pour m'aider, je suis preneur..

[Pro_du_dimanche]

Bon j'ai finis par trouver une astuce. Si ca peut aider; je passe par la méthode .saved.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
        Set drawingDocument1 = Documents1.Open(destination_ini & "\" & num_aff & "_" & indice & "_" & repere & ".CATDrawing")
        On Error Resume Next
 
        'vérification mise à jour
 
        drawingDocument1.Update
        etat_Update = drawingDocument1.Saved
 
        If etat_Update = False Then
 
            If CBool(Not (Not tab_No_Update)) = False Then
                ReDim tab_No_Update(1)
            Else
                ReDim Preserve tab_No_Update(UBound(tab_No_Update) + 1)
            End If
 
            tab_No_Update(UBound(tab_No_Update)) = repere_plan
            drawingDocument1.Close
            Set drawingDocument1 = Documents1.Open(destination_ini & "\" & num_aff & "_" & indice & "_" & repere & ".CATDrawing")
 
        End If

Cela m'oblige à mettre à jour, fermer et ré-ouvrir le plan donc pas terrible mais ça marche.

A la prochaine