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

Page 3 sur 5 Précédent  1, 2, 3, 4, 5  Suivant

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

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

Message par SamsGuamejy le Jeu 30 Sep 2010 - 21:29

thanks Gautier Wink

_________________
SamsGuamejy
CATIA V5 R20 Fr
Technicien BE R&D
http://www.arbodomia.fr

I7 Q740 2x1.73GHz _ 8Go Ram _ Win8.1 _ SSD 40Go
avatar
SamsGuamejy
Fédérateur
Fédérateur

Messages : 312
Date d'inscription : 14/09/2010
Age : 33
Localisation : Vendée (85) FRANCE

http://www.arbodomia.fr

Revenir en haut Aller en bas

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

Message par gautier2305 le Ven 1 Oct 2010 - 2:01

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

_________________

gautier2305
Fédérateur
Fédérateur

Messages : 412
Date d'inscription : 03/09/2010
Age : 30
Localisation : Carvin(62)

Revenir en haut Aller en bas

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

Message par gautier2305 le Ven 1 Oct 2010 - 21:44

Alors Sam tu t'en es sorti?

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

_________________

gautier2305
Fédérateur
Fédérateur

Messages : 412
Date d'inscription : 03/09/2010
Age : 30
Localisation : Carvin(62)

Revenir en haut Aller en bas

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

Message par SamsGuamejy le Ven 1 Oct 2010 - 22:21

Salut Gautier,

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

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

_________________
SamsGuamejy
CATIA V5 R20 Fr
Technicien BE R&D
http://www.arbodomia.fr

I7 Q740 2x1.73GHz _ 8Go Ram _ Win8.1 _ SSD 40Go
avatar
SamsGuamejy
Fédérateur
Fédérateur

Messages : 312
Date d'inscription : 14/09/2010
Age : 33
Localisation : Vendée (85) FRANCE

http://www.arbodomia.fr

Revenir en haut Aller en bas

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

Message par SamsGuamejy le Ven 1 Oct 2010 - 23:59

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


Il faut que j'y retourne...

_________________
SamsGuamejy
CATIA V5 R20 Fr
Technicien BE R&D
http://www.arbodomia.fr

I7 Q740 2x1.73GHz _ 8Go Ram _ Win8.1 _ SSD 40Go
avatar
SamsGuamejy
Fédérateur
Fédérateur

Messages : 312
Date d'inscription : 14/09/2010
Age : 33
Localisation : Vendée (85) FRANCE

http://www.arbodomia.fr

Revenir en haut Aller en bas

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

Message par SamsGuamejy le Sam 2 Oct 2010 - 4:58

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

_________________
SamsGuamejy
CATIA V5 R20 Fr
Technicien BE R&D
http://www.arbodomia.fr

I7 Q740 2x1.73GHz _ 8Go Ram _ Win8.1 _ SSD 40Go
avatar
SamsGuamejy
Fédérateur
Fédérateur

Messages : 312
Date d'inscription : 14/09/2010
Age : 33
Localisation : Vendée (85) FRANCE

http://www.arbodomia.fr

Revenir en haut Aller en bas

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

Message par SamsGuamejy le Sam 2 Oct 2010 - 6:04

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... Crying or Very sad

_________________
SamsGuamejy
CATIA V5 R20 Fr
Technicien BE R&D
http://www.arbodomia.fr

I7 Q740 2x1.73GHz _ 8Go Ram _ Win8.1 _ SSD 40Go
avatar
SamsGuamejy
Fédérateur
Fédérateur

Messages : 312
Date d'inscription : 14/09/2010
Age : 33
Localisation : Vendée (85) FRANCE

http://www.arbodomia.fr

Revenir en haut Aller en bas

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

Message par SamsGuamejy le Sam 2 Oct 2010 - 8:57

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à...

_________________
SamsGuamejy
CATIA V5 R20 Fr
Technicien BE R&D
http://www.arbodomia.fr

I7 Q740 2x1.73GHz _ 8Go Ram _ Win8.1 _ SSD 40Go
avatar
SamsGuamejy
Fédérateur
Fédérateur

Messages : 312
Date d'inscription : 14/09/2010
Age : 33
Localisation : Vendée (85) FRANCE

http://www.arbodomia.fr

Revenir en haut Aller en bas

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

Message par tuxmickmac le Lun 4 Oct 2010 - 21:40

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. Mad

tuxmickmac
actif
actif

Messages : 25
Date d'inscription : 14/09/2010
Age : 42
Localisation : nord

Revenir en haut Aller en bas

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

Message par SamsGuamejy le Lun 4 Oct 2010 - 21:56

Salut Mick Exclamation!

Je testerais ça ce soir Wink Merci encore Exclamation!

_________________
SamsGuamejy
CATIA V5 R20 Fr
Technicien BE R&D
http://www.arbodomia.fr

I7 Q740 2x1.73GHz _ 8Go Ram _ Win8.1 _ SSD 40Go
avatar
SamsGuamejy
Fédérateur
Fédérateur

Messages : 312
Date d'inscription : 14/09/2010
Age : 33
Localisation : Vendée (85) FRANCE

http://www.arbodomia.fr

Revenir en haut Aller en bas

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

Message par tuxmickmac le Mar 5 Oct 2010 - 0:24

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

tuxmickmac
actif
actif

Messages : 25
Date d'inscription : 14/09/2010
Age : 42
Localisation : nord

Revenir en haut Aller en bas

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

Message par SamsGuamejy le Mar 5 Oct 2010 - 1:16

Very Good Mick !!!!

_________________
SamsGuamejy
CATIA V5 R20 Fr
Technicien BE R&D
http://www.arbodomia.fr

I7 Q740 2x1.73GHz _ 8Go Ram _ Win8.1 _ SSD 40Go
avatar
SamsGuamejy
Fédérateur
Fédérateur

Messages : 312
Date d'inscription : 14/09/2010
Age : 33
Localisation : Vendée (85) FRANCE

http://www.arbodomia.fr

Revenir en haut Aller en bas

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

Message par SamsGuamejy le Mar 5 Oct 2010 - 5:32

Ma petite mise à jour : Disponible ICI

_________________
SamsGuamejy
CATIA V5 R20 Fr
Technicien BE R&D
http://www.arbodomia.fr

I7 Q740 2x1.73GHz _ 8Go Ram _ Win8.1 _ SSD 40Go
avatar
SamsGuamejy
Fédérateur
Fédérateur

Messages : 312
Date d'inscription : 14/09/2010
Age : 33
Localisation : Vendée (85) FRANCE

http://www.arbodomia.fr

Revenir en haut Aller en bas

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

Message par gautier2305 le Mer 6 Oct 2010 - 2:37

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

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

_________________

gautier2305
Fédérateur
Fédérateur

Messages : 412
Date d'inscription : 03/09/2010
Age : 30
Localisation : Carvin(62)

Revenir en haut Aller en bas

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

Message par Guss_ le Mar 9 Nov 2010 - 3:49

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.

Guss_
Fédérateur
Fédérateur

Messages : 498
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

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

Message par Guss_ le Mar 9 Nov 2010 - 22:35

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

Guss_
Fédérateur
Fédérateur

Messages : 498
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

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

Message par Threedots le Mer 10 Nov 2010 - 1:04

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 ?
avatar
Threedots
Fédérateur
Fédérateur

Messages : 617
Date d'inscription : 16/09/2010
Age : 29
Localisation : Toulouse

Revenir en haut Aller en bas

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

Message par gautier2305 le Mer 10 Nov 2010 - 20:50

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, "")

_________________

gautier2305
Fédérateur
Fédérateur

Messages : 412
Date d'inscription : 03/09/2010
Age : 30
Localisation : Carvin(62)

Revenir en haut Aller en bas

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

Message par Threedots le Mer 10 Nov 2010 - 21:10

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 ?
avatar
Threedots
Fédérateur
Fédérateur

Messages : 617
Date d'inscription : 16/09/2010
Age : 29
Localisation : Toulouse

Revenir en haut Aller en bas

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

Message par gautier2305 le Mer 10 Nov 2010 - 21:32

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?

_________________

gautier2305
Fédérateur
Fédérateur

Messages : 412
Date d'inscription : 03/09/2010
Age : 30
Localisation : Carvin(62)

Revenir en haut Aller en bas

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

Message par Threedots le Mer 10 Nov 2010 - 23:12

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... ^^'
avatar
Threedots
Fédérateur
Fédérateur

Messages : 617
Date d'inscription : 16/09/2010
Age : 29
Localisation : Toulouse

Revenir en haut Aller en bas

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

Message par gautier2305 le Jeu 11 Nov 2010 - 0:15

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

_________________

gautier2305
Fédérateur
Fédérateur

Messages : 412
Date d'inscription : 03/09/2010
Age : 30
Localisation : Carvin(62)

Revenir en haut Aller en bas

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

Message par Guss_ le Jeu 11 Nov 2010 - 1:05

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é.


Guss_
Fédérateur
Fédérateur

Messages : 498
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

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

Message par gautier2305 le Jeu 11 Nov 2010 - 1:23

je ne connais pas le Vb désolé Guss

_________________

gautier2305
Fédérateur
Fédérateur

Messages : 412
Date d'inscription : 03/09/2010
Age : 30
Localisation : Carvin(62)

Revenir en haut Aller en bas

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

Message par Threedots le Jeu 11 Nov 2010 - 1:37

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
avatar
Threedots
Fédérateur
Fédérateur

Messages : 617
Date d'inscription : 16/09/2010
Age : 29
Localisation : Toulouse

Revenir en haut Aller en bas

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

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Page 3 sur 5 Précédent  1, 2, 3, 4, 5  Suivant

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