Detecter le Niveau Actif (CATProduct/Composant/CATPart)

Voir le sujet précédent Voir le sujet suivant Aller en bas

Detecter le Niveau Actif (CATProduct/Composant/CATPart)

Message par s3ph0ri4 le Mar 28 Mai 2013 - 23:11

Bonjour à tous,

Je suis en train de créer une macro qui doit s'executer sur une CATPart spécifique (En m'appuyant sur une metaDonnée).
Seulement je voudrais pouvoir vérifier si l'utilisateur est bien actif dans une CATPart pour dérouler la suite de ma macro (vérification de la dite méta... entre autre).

Est-ce que vous auriez une idée de comment réaliser la chose ?

Merci.

s3ph0ri4
timide
timide

Messages : 7
Date d'inscription : 28/05/2013
Localisation : Toulouse

Revenir en haut Aller en bas

Re: Detecter le Niveau Actif (CATProduct/Composant/CATPart)

Message par mike688 le Mer 29 Mai 2013 - 23:29

moi j'ai utilisé un truc complique puisque je debute..
c'est que verifie l'extension du nom de fichier.
sinon il me semble que la donné existe en direct.
avatar
mike688
actif
actif

Messages : 255
Date d'inscription : 23/12/2009
Age : 35
Localisation : Portieux (88)

Revenir en haut Aller en bas

Re: Detecter le Niveau Actif (CATProduct/Composant/CATPart)

Message par rom2dm le Jeu 30 Mai 2013 - 19:44

'On test si un document est ouvert et son type :
On Error Resume Next
If Not CATIA.ActiveDocument.Name Like "*.CATPart" Then
If Error <> "" Then ' cas ou aucun doc n'est actif ==> on sort
On Error GoTo 0
Exit Sub
End If
MsgBox "Pour réaliser cette opération, vous devez travailler dans un document de type CATPart.", vbExclamation, "NomMsgBox"
Exit Sub
End If

Il y a surement plus propre mais ca marche en tout cas !

rom2dm
timide
timide

Messages : 3
Date d'inscription : 02/05/2013
Localisation : Paris

Revenir en haut Aller en bas

Re: Detecter le Niveau Actif (CATProduct/Composant/CATPart)

Message par s3ph0ri4 le Jeu 30 Mai 2013 - 20:03

Super ! J'avais pas pensé a aller tester l'extention de fichier...
Je vais tester ça de suite !

Merci beaucoup pour vos réponses.

s3ph0ri4
timide
timide

Messages : 7
Date d'inscription : 28/05/2013
Localisation : Toulouse

Revenir en haut Aller en bas

Re: Detecter le Niveau Actif (CATProduct/Composant/CATPart)

Message par des_urgences le Mer 12 Juin 2013 - 23:09

Bonjour ...
Il y a ça aussi ..
Sub detectionpart()

Dim CATIA As Object
    On Error Resume Next
   

' detection que CATIA est bien ouvert
    Set CATIA = GetObject(, "CATIA.Application")
   
    If Err.Number <> 0 Then
        MsgBox "Lancer CATIA Exclamation!", vbCritical, "Error Macro"
        Exit Sub
    End If
   
Set partDocument1 = CATIA.ActiveDocument
' retour pour info du nom du doc actif
test = partDocument1.Name


On Error Resume Next

Set part1 = partDocument1.Part
' si rien n'est detecté alors tu as le retour d'erreur et tu ouvres le msg box et tu sort
If Err.Number <> 0 Then
    MsgBox "Ouvrir une Part Exclamation! svp .. ", vbCritical, "Error"
    Exit Sub
End If
' si tu es dans une part ca continu

End Sub

des_urgences
timide
timide

Messages : 8
Date d'inscription : 12/06/2013
Localisation : Le plus loin possible

Revenir en haut Aller en bas

Re: Detecter le Niveau Actif (CATProduct/Composant/CATPart)

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum