Section programmation CatScript, VBA, VB.NET...

thanks Gautier

Tiens désolé pour l'attente tu n'as juste qu'a remplacer Body.4 par le nom de ton Body:

Language="CATSCRIPT"

Sub CATMain()
'
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
'
Dim part1 As Part
Set part1 = partDocument1.Part
'
Dim parameters1 As Parameters
Set parameters1 = part1.Parameters
'
part1.Parameters.CreateSetOfParameters(part1.Bodies.Item("Body.4"))
'
part1.Update

End Sub

Alors Sam tu t'en es sorti?

Par contre il est impossible de renommer un Set de paramètres et ca c'est dommage!

Salut Gautier,

J'ai pas encore eu les temps d'essayer ton script... je te dirais ça ce soir en théorie

Le truc c'est que j'utilise le VB.NET mais normalement ça s'écrit quasiment pareil

Bon j'ai testé vite fait et ça marche pas... sniff...


Il faut que j'y retourne...

Yes !!!

Bon aors voili voilou le code pour insérer un set de paramètre dans un corp en VB.NET

Library chargé :

• INFITF
  
• MECMOD
  
• KnowledgewareTypeLib
  
• PARTITF
  
• ProductStructureTypeLib

Code:

Module FunctionCATIA
    Dim CATIA As INFITF.Application
    Public Sub InitCATIA()
        CATIA = CType(GetObject(, "CATIA.Application"), INFITF.Application)
    End Sub

    Sub CatiaAjoutParametre(ByVal Name As String)
        InitCATIA()
        Dim MyPartDoc As PartDocument = CType(CATIA.ActiveDocument, PartDocument)
        Dim MyPart As Part = MyPartDoc.Part
        Dim parameters1 As Parameters
        parameters1 = MyPart.Parameters
        MyPart.Parameters.CreateSetOfParameters(MyPart.Bodies.Item(Name))
        MyPart.Update()
    End Sub

End Module

Bon le nom j'arrive bien à le gérer dans le rootParametersSets mais pas avec la metode CreatSetOfParameters...

Il faut que je trouve comment copier/coller le Set. Sinon faudra que je repense mon organisation de l'arbre...

Si il y a quelqu'un qui connait des liens vers du .net orienté CATIA ou mieux qui à des scripts , je suis preneur... à oui et de préférence en français si possible... l'anglais et moi ça fait deux...

J'avoue que j'en chie là...

Salut SamsGuamejy,
Tu dis que tu arrives bien à gérer le nom du RootParameterset, tu sais le renommer ?

En tout cas moi j'arrive à le copier et le coller ou je veux :

Code:

Sub CATMain()
'
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
'
Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters
'
Dim ParameterSet1 As ParameterSet
Set ParameterSet1 = parameters1.RootParameterSet
'
'Msgbox ParameterSet1.Name
'
Dim selection1 As Selection
Set selection1 = partDocument1.Selection
'
selection1.Clear
selection1.Add ParameterSet1
'Msgbox selection1.Item(1).Value.Name
selection1.Copy
'
Dim bodies1 As Bodies
Set bodies1 = part1.Bodies
'
Dim body1 As Body
Set body1 = bodies1.Item("Body.2")
'
selection1.Clear
selection1.Add body1
selection1.Paste
'
End Sub

Ensemble on va peut-être finir par y arriver.

Salut Mick !

Je testerais ça ce soir Merci encore !

Eureka :

Code:

Sub CATMain()
'
Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part
'
Dim parameters1 As Parameters
Set parameters1 = part1.Parameters
'
Dim ParameterSet1 As ParameterSet
Set ParameterSet1 = parameters1.RootParameterSet
'
'Création d'un set de parametres dans le RootParameterSet
Dim parameterSets1 As ParameterSets
Set parameterSets1 = parameterSet1.ParameterSets.CreateSet("tagada")
'
Set parameterSets2 = parameterSet1.ParameterSets
'
'On récupère le set de parametres précédemment créé
Set parameterSet2 = parameterSets2.Item("tagada")
'
Dim selection1 As Selection
Set selection1 = partDocument1.Selection
'
'on le copie
selection1.Clear
selection1.Add ParameterSet2
selection1.Copy
'
Dim bodies1 As Bodies
Set bodies1 = part1.Bodies
'
Dim body1 As Body
Set body1 = bodies1.Item("Body.2")
'
selection1.Clear
'On ajoute la destination
selection1.Add body1
'On le colle
selection1.Paste
'
'On supprime le set de parametres dans le RootParameterSet
selection1.Clear
selection1.Add parameterSet2
selection1.Delete
'
part1.Update
'
End Sub


Very Good Mick !!!!

Ma petite mise à jour : Disponible ICI

un joli travail d'équipe les amis!!!une belle bidouille pour arriver au but!!!

J'y avais pensé mais ca me semblait vraiment farfelu!

Salut,

J'aimerais pouvoir ajouter un bouton perso dans une barre d'outils perso, ce bouton serait lié à l'exécution d'un script VB ou une simple macro.

Je sais creer la barre d'outil, le script mais le bouton ...
il me semblait avoir vu ça quelque part mais je ne sais plus où. (ou alors ce n'était pas dans catia )

Edit : bon c'est toujours quand on pose la question qu'on trouve la réponse, j'ai trouvé.

Il faut aller dans commandes, dans la colonne de gauche, sélectionner "Macro" qui à droite s'affiche la liste de macros, il surffit de glisser la macro correspondante vers la barre d'outils perso.

Reste que j'aimerai pouvoir ajouter une zone de texte et une liste déroulante dans cette barre d'outil et visiblement là avec ce que j'ai trouvé ne créé que des boutons.

Bon j'ai avancé, j'ai juste un petit soucis je voudrais afficher une boite de dialogue avec OK ou Annuler mais je ne vois que Msgbox qui n'affiche que Ok et Input box qui demande une chaine de caractère

Tu peux créer un Userform avec les boutons que tu souhaite, et associer les actions que tu veux lorsque tu active les boutons de la form.

Ca irait comme solution ?

Les userform ne marchent pas dans Catia Thrredots

Tiens voici quelques Msg Box et celle que tu veux est la 3eme, il y en a plein de disponible en fait, c'est le chiffre à la fin qui défini la forme

Set documents1 = CATIA.Documents

A=MsgBox ("Click OK to terminate",16, "Runtime exception")

A=MsgBox (" None active document", vbExclamation, "Bad environment")

A=MsgBox ("Click OK to terminate",17, "")

A=MsgBox ("Click OK to terminate",18, "")

A=MsgBox ("Click OK to terminate",19, "")

A=MsgBox ("Click OK to terminate",20, "")

A=MsgBox ("Click OK to terminate",1, "")

A=MsgBox ("Click OK to terminate",5, "")

Ben si elles fonctionnent... ^^'

Ca dépend en quel langage tu codes, mais en CATVBA je n'utilise que de ça pour rendre l'interface utilisateur plus agréable et plus compréhensive...

Là il me semble que tes commandes sont pour du CATScript non ?

ouais je ne bosse qu'en CatScript.

Aurais tu un exemple de Userform qui marche dans catia pour que je vois ce que ca donne?

Je peux t'en filer oui, mais comme signalé en MP, j'ai pas le temps de me pencher sur le partage de fichiers en ligne, un envois par mail sera plus facile ^^'

C'est puissant le CATScript ? Je vais peut-etre devoir revoir ma petite macro de sauvegarde, et bon... ^^'

Oui le Catscript est puissant, pour l'instant à part le Userform, je suis parvenu à faire tout ce que je voulais.

Merci des infos, effectivement j'ai trouvé que le dernier paramètre permettait de disposer de divers bouton dans la fenêtre.

Par contre si quelqu'un à un truc pour pouvoir présélectionner un répertoire avec l'API BrowseForFolder de manière à ce qu'on puisse monter ET descendre dans l'arborescence, je suis preneur.
Visiblement avec d'autre langage que le VB c'est possible avec une fonction callback, mais en VB je n'ai rien trouvé.

je ne connais pas le Vb désolé Guss

Je ne suis pas non plus un spécialiste de programmation, désolé ^^'

Mais si tu trouves, fais nous en part !

J'avais trouvé un petit lien qui permettait de trouver pas mal de petits bouts de code. Ca te seras peut-être utile...

http://www.gtwiki.org/mwiki/index.php?title=Category:Automation_Functions