[Résolu]Tester si deux drawing sont ouvert
3 participants
Page 1 sur 1
[Résolu]Tester si deux drawing sont ouvert
Bonjour
Je vous savoir comment déterminer si deux drawing sont ouvert dans CATIA ?
merci
Je vous savoir comment déterminer si deux drawing sont ouvert dans CATIA ?
merci
Dernière édition par xorman le Ven 27 Nov 2015 - 12:24, édité 1 fois
Re: [Résolu]Tester si deux drawing sont ouvert
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 :
J'ai pas vérifié si la syntaxe était correct, mais c'est pour l'idée.
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.
Guss_- Admin
- Messages : 530
Date d'inscription : 08/01/2010
Re: [Résolu]Tester si deux drawing sont ouvert
Bonjour
Je ne cherche pas le nom, je cherche a savoir si les deux documents ouvert sont des drawing
merci
Je ne cherche pas le nom, je cherche a savoir si les deux documents ouvert sont des drawing
merci
Re: [Résolu]Tester si deux drawing sont ouvert
ah ben il y a alors moi je regarderais dans le nom s'il se termine par Catdrawing ou autre chose
Guss_- Admin
- Messages : 530
Date d'inscription : 08/01/2010
Re: [Résolu]Tester si deux drawing sont ouvert
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
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
cad00- actif
- Messages : 33
Date d'inscription : 17/03/2015
Localisation : PACA
Re: [Résolu]Tester si deux drawing sont ouvert
nickel ca fonctionne
merci beaucoup
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
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|