[Résolu]Tester si deux drawing sont ouvert

Bonjour
Je vous savoir comment déterminer si deux drawing sont ouvert dans CATIA ?

merci

Il faut utiliser l'objet Catia.Documents

Ensuite avec la propriété .count tu vois le nombre de documents ouverts
Ensuite tu fait une boucle du nombre de document ouvert et tu vérifies le nom de chaque document

ça devrait ressembler à quelque chose comme ça :

Code:

set Documents_ouverts = catia.documents

compte = Documents_ouverts.count
for a = 1 to compte
  if Documents_ouverts.item(a).name = "nom à chercher" then
  msgbox  "document ouvert"
  endif
next

J'ai pas vérifié si la syntaxe était correct, mais c'est pour l'idée.

Bonjour
Je ne cherche pas le nom, je cherche a savoir si les deux documents ouvert sont des drawing
merci

ah ben il y a alors moi je regarderais dans le nom s'il se termine par Catdrawing ou autre chose

Public Property Get NouveauDocCatia() As Documents
Set NouveauDocCatia = CATIA.Documents
End Property
'--------------------------------------------------
Public Function VerifDraft()
Dim nb As Integer
Dim NomDraft As String
'
nb = NouveauDocCatia.Count
'
For i = 1 To nb
   NomDocCatia = NouveauDocCatia.Item(i).Name
   If (InStr(1, NomDocCatia, "CATDrawing") > 0) Then
       NomDraft = NomDraft & "  " & NomDocCatia
   End If
Next
MsgBox NomDraft
End Function

nickel ca fonctionne
merci beaucoup

Code:


Dim DocCollection As Documents
Dim Nbdoc As Integer
Dim Nbdrawing As Integer
Dim NomDraft As String
Dim NomDocCatia As String
  
Set NouveauDocCatia = CATIA.Documents
 

'Test pour savoir si 2 drawing existent
Nbdoc = NouveauDocCatia.Count

For i = 1 To Nbdoc
   NomDocCatia = NouveauDocCatia.Item(i).Name
   If (InStr(1, NomDocCatia, "CATDrawing") > 0) Then
       NomDraft = NomDraft & "  " & NomDocCatia
       Nbdrawing = Nbdrawing + 1
   End If
Next
If Nbdrawing > 1 Then
    MsgBox "La macro cartouche ne peut être lancée car deux drawing sont ouverts, veuillez ne garder qu'un seul drawing à l'écran", vbOKOnly + vbCritical
    End  'on sort de la fonction
End If