Gestion des propriétés sous CATIA en VB Script

Bonjour,
Je suis en train de faire un code permettant de créer des Part, Product et/ou Drawing en renseignant dès la création des documents un certain de nombre de propriétés.
Pour le Part, j'ai quelques problemes, je ne sais pas comment renseigner les propriétés comme Référence, Designation, etc....
Pour le Product j'y suis arrivée, pourquoi ces propriétées ne sont elles pas gérées de la meme facon ?
Comment faire pour le Part en CATScript?
Merci d'avance.


Isa911

Isa911

Ca y est, j'ai trouvé ....


-------------------------------
Réponse au message :
-------------------------------

> Bonjour,
> Je suis en train de faire un code permettant de créer des Part, Product et/ou Drawing en renseignant dès la création des documents un certain de nombre de propriétés.
> Pour le Part, j'ai quelques problemes, je ne sais pas comment renseigner les propriétés comme Référence, Designation, etc....
> Pour le Product j'y suis arrivée, pourquoi ces propriétées ne sont elles pas gérées de la meme facon ?
> Comment faire pour le Part en CATScript?
> Merci d'avance.
>
>
> Isa911

salut

je prog également sur Catia en VBscript, Vba
pour l'instant y a pas trop de bouquin ladessus
un conseil :
il faut utiliser l'aide catia ( qui est merdique je te l'accorde)
ou enregistrer des manip sou catia le plus possible (quan sa marche) pour connaitre les propriété des parts, products, etc...

bonne prog


Belec


-------------------------------
Réponse au message :
-------------------------------

>
> Isa911
>
> Ca y est, j'ai trouvé ....
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour,
> > Je suis en train de faire un code permettant de créer des Part, Product et/ou Drawing en renseignant dès la création des documents un certain de nombre de propriétés.
> > Pour le Part, j'ai quelques problemes, je ne sais pas comment renseigner les propriétés comme Référence, Designation, etc....
> > Pour le Product j'y suis arrivée, pourquoi ces propriétées ne sont elles pas gérées de la meme facon ?
> > Comment faire pour le Part en CATScript?
> > Merci d'avance.
> >
> >
> > Isa911
>

Salut

Que le plaisir de la progammation soit!!!!!

Salut je cherche comment utiliser l'editeur de script catia est ce que tu pourrai m'aider merci excuse pour le double poste mais y a un truc qui a foiré

En fait, moi, je l'utilise pas, je fait de l'Automation.
Je travaille sur les cartouches et les propriétés des fichiers, mon code est donc dans ma base de données Access.

Dans la doc, il n'y rien ?

Isa911

Salut Isa911, le sujet dont tu parles est exactement sur lequel je suis en train de plancher... et de sécher ! J'ai besoin, dans le cadre de mon travail de créer un part, un product et 2 drawings, tout cela en fonction de un seul paramètre qui varie dans le part... Pour faire plus clair, il n'y a qu'une dimension qui change dans le part, dimension que j'ai passé en paramètre. Ce part est inclus dans un product, et le part et le body ont leur drawing, qui doit donc être mis à jour en fonction du paramètre qui a changé...

comme a priori tu as trouvé une solution, j'aimerais bien que tu m'aides un peu, si ça ne t'ennuie pas, voire que tu me fasses partager ta source.

merci beaucoup d'avance

Max

Il te faut les références suivantes :
CATIA V5 InfInterfaces Object Library : InfTypeLib.tlb
CATIA V5 DraftingInterfaces Object Library : DraftingTypeLib.tlb
CATIA V5 ProductStructureInterfaces Object Library : PSTypeLib.tlb

Pour la création d'un Part ou un Product via une base Access (fonction brute pour inspiration, me demander si besoin d'aide) :

Public Function CreaPart(Prems As Boolean)
Dim oProduct As Product
Dim ferme As Boolean
On Error GoTo err
ferme = False
If Module1.CatiaOuvert = False Then
    Set AppCATIA = CreateObject("CATIA.Application")
    '    Rend la fenetre visible
    AppCATIA.Visible = True
    ferme = True
End If
'Si c'est le premier et non pas une copie à faire
If Prems = True Then
    If Module1.Extension = ".CATProduct" Then
        'Créé le Product spécifié
        Set DrwDocument = AppCATIA.Documents.Add("Product")
        'Ajoute un Part dans le Product
        'oProduct.AddShapeRepresentation ( CATBSTR  iShapePathName,  CATBSTR  iShapeName,  CatRepType  iRepBehavior,  boolean  iContext)
    End If
    If Module1.Extension = ".CATPart" Then
        'Créé LE PART spécifié
        Set DrwDocument = AppCATIA.Documents.Add("Part")
    End If
    Set oProduct = DrwDocument.Product
    'Renseigne les propriétés
    oProduct.Name = Module1.Reference
    oProduct.PartNumber = Module1.desi
    oProduct.Definition = Module1.Reference
    oProduct.DescriptionRef = Module1.desidoc & " " & Module1.desi
    Module1.RechercheRevision ("New")
    Module1.NameFonc = "SerieCATIA"
    oProduct.Revision = Module1.Revision
    'Met à jour
    oProduct.Update
    'Enregistre le document
    AppCATIA.DisplayFileAlerts = False
    DrwDocument.SaveAs Module1.debchemin & Module1.Repertoire("Catia") & Left(Module1.ref, 4) & "-" & Right(Module1.ref, 4) & "-" & Module1.Doc & Module1.Indice & Extension
    DrwDocument.Close
    AppCATIA.DisplayFileAlerts = True
Else
    Set DrwDocument = AppCATIA.Documents.Open(Module1.debchemin & Module1.Repertoire("Catia") & Left(Module1.ref, 4) & "-" & Right(Module1.ref, 4) & "-" & Module1.Doc & Module1.Indice & Extension)
    Set oProduct = DrwDocument.Product
    oProduct.Revision = Module1.Revision
    'Met à jour
    oProduct.Update
    'Enregistre le plan
    AppCATIA.DisplayFileAlerts = False
    DrwDocument.Save
    DrwDocument.Close
    AppCATIA.DisplayFileAlerts = True
End If
If ferme = True Then
    AppCATIA.Quit
End If

Set DrwDocument = Nothing
Set AppCATIA = Nothing

err:

If err.Number <> 0 Then
    Module1.NameFonc = "CreaPart"
    Module1.Recup_Erreurs
    AppCATIA.DisplayFileAlerts = False
    'If Module1.Indice = "X1" Or Left(Module1.Indice, 1) = "0" Then
    If Prems = True Then
        DrwDocument.SaveAs Module1.debchemin & Module1.Repertoire("Catia") & Left(Module1.ref, 4) & "-" & Right(Module1.ref, 4) & "-" & Module1.Doc & Module1.Indice & Extension
    Else
        DrwDocument.Save
    End If
    DrwDocument.Close
    AppCATIA.DisplayFileAlerts = True
    If ferme = True Then
        AppCATIA.Quit
    End If
    Set DrwDocument = Nothing
    Set AppCATIA = Nothing
End If

End Function

Isa911

Public Function CatiaOuvert() As Boolean
Module1.NameFonc = "CatiaOuvert"
On Error GoTo err:
Set AppCATIA = GetObject(, "catia.Application")

err:
If err.Number <> 0 Then
    CatiaOuvert = False
Else
    CatiaOuvert = True
End If
End Function

Isa911