Identifier les fenêtres Catia

[8_pool]

Bonjour,

 

 

Il m'arrive d'avoir plusieurs Catia de lancée, dans des environnements différents, et j'aurais souhaité identifier les fenêtres en ajoutant un texte dans le titre de la fenêtre (CATIA V5 : Env TUTU), comme c'est le cas quand on est en mode admin (CATIA V5 : Mode Administration).

 

Quelqu'un saurait-il comme faire cela ?

 

Merci d'avance.

[mooneck]

Bonjour 8_Pool,

 

Je pense que ceci devrait répondre à ta question :

 

 Option Explicit

Sub CATMain()
   Dim sNames() As String
   Dim oRelease, oServicePack As String
       
   oRelease = CATIA.SystemConfiguration.Release
   oServicePack = CATIA.SystemConfiguration.ServicePack
   'MsgBox oRelease & ", " & oServicePack
   
   CATIA.Caption = Mid(CATIA.Caption, 1, 8) & " R" & _
   oRelease & " SP" & oServicePack & " - MaSociété - " & Nom_Env
End Sub


Function Nom_Env() As String

   Dim myEnv As String
   Dim Pos, Deb, LG, LG2, POSR As Integer
   
   myEnv = Environ("CATEnvName")

   Pos = 1
   Deb = 1
   While Pos <> 0
       Pos = InStr(Deb, myEnv, "\")
       If Pos <> 0 Then
           Deb = Pos + 1
       End If
       'MsgBox myEnv & "," & Pos
   Wend
   
   'MsgBox "Position finale " & Deb
   LG = Len(myEnv)
   POSR = LG - (Deb - 1)
   Nom_Env = Right(myEnv, POSR)
   LG2 = Len(Nom_Env) - 4
   Nom_Env = Left(Nom_Env, LG2)
   
   Debug.Print Nom_Env

End Function

 

 

bonne journée

 

[8_pool]

Salit Mooneck,

 

 

C'est nickel, merci beaucoup !!

 

En fait, je n'avais même pas pensé à une macro pour faire cela, je cherchais dans les options de la ligne de commande de Catia ou les variables déclarées dans l'environnement.

 

Merci encore.

[marc54]

Salut,

 

Voici ce que j'utilise. Un peu plus simple, mais sur le principe c'est pareil :

 

j'ajoute une variable CLIENT dans chaque environnement

CLIENT=RENAULT par exemple

 

je crée une macro CAT_Titre.catvbs du genre

 

Sub CATMain()

CATIA.caption = "CATIA pour " + CATIA.SystemService.Environ("CLIENT")

End Sub

 

macro que je lance avec CATIA, en modifiant la cible de l'icone de lancement :

... "CNEXT.exe -macro C:\temp\CAT_Titre.catvbs" -env ...

 

et on obtient : CATIA pour RENAULT

 

 

 

[mooneck]

C'est sur que cela simplifie le code !

Mais pourquoi faire simple quand on peut faire compliqué :cool:

 

@+