CATIA V5 | 3DEXPERIENCE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Le Deal du moment : -20%
-20% sur le Lot de 2 écrans PC GIGABYTE ...
Voir le deal
429 €

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

+8
flo
Tétras-Mobile
Guss_
Threedots
tuxmickmac
mike688
gautier2305
SamsGuamejy
12 participants

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

Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par SamsGuamejy Jeu 30 Sep 2010 - 11:29

thanks Gautier Wink

_________________
SamsGuamejy
3DExperience R2018x
Responsable R&D
http://www.beam3.bzh

Xeon E3-1505M 2.80GHz _ Quadro M3000M _ 32Go Ram _ Win10 _ SSD 240Go + DD 500Go
SamsGuamejy
SamsGuamejy
Fédérateur
Fédérateur

Messages : 314
Date d'inscription : 13/09/2010
Age : 39
Localisation : Vendée (85) FRANCE

http://www.beam3.fr

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par gautier2305 Jeu 30 Sep 2010 - 16: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

_________________
Section programmation CatScript, VBA, VB.NET... - Page 3 Avatar10

gautier2305
Fédérateur
Fédérateur

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

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par gautier2305 Ven 1 Oct 2010 - 11: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!

_________________
Section programmation CatScript, VBA, VB.NET... - Page 3 Avatar10

gautier2305
Fédérateur
Fédérateur

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

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par SamsGuamejy Ven 1 Oct 2010 - 12: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
3DExperience R2018x
Responsable R&D
http://www.beam3.bzh

Xeon E3-1505M 2.80GHz _ Quadro M3000M _ 32Go Ram _ Win10 _ SSD 240Go + DD 500Go
SamsGuamejy
SamsGuamejy
Fédérateur
Fédérateur

Messages : 314
Date d'inscription : 13/09/2010
Age : 39
Localisation : Vendée (85) FRANCE

http://www.beam3.fr

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par SamsGuamejy Ven 1 Oct 2010 - 13:59

Bon j'ai testé vite fait et ça marche pas... sniff...
Section programmation CatScript, VBA, VB.NET... - Page 3 Sans_t18

Il faut que j'y retourne...

_________________
SamsGuamejy
3DExperience R2018x
Responsable R&D
http://www.beam3.bzh

Xeon E3-1505M 2.80GHz _ Quadro M3000M _ 32Go Ram _ Win10 _ SSD 240Go + DD 500Go
SamsGuamejy
SamsGuamejy
Fédérateur
Fédérateur

Messages : 314
Date d'inscription : 13/09/2010
Age : 39
Localisation : Vendée (85) FRANCE

http://www.beam3.fr

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par SamsGuamejy Ven 1 Oct 2010 - 18: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
3DExperience R2018x
Responsable R&D
http://www.beam3.bzh

Xeon E3-1505M 2.80GHz _ Quadro M3000M _ 32Go Ram _ Win10 _ SSD 240Go + DD 500Go
SamsGuamejy
SamsGuamejy
Fédérateur
Fédérateur

Messages : 314
Date d'inscription : 13/09/2010
Age : 39
Localisation : Vendée (85) FRANCE

http://www.beam3.fr

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par SamsGuamejy Ven 1 Oct 2010 - 20: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
3DExperience R2018x
Responsable R&D
http://www.beam3.bzh

Xeon E3-1505M 2.80GHz _ Quadro M3000M _ 32Go Ram _ Win10 _ SSD 240Go + DD 500Go
SamsGuamejy
SamsGuamejy
Fédérateur
Fédérateur

Messages : 314
Date d'inscription : 13/09/2010
Age : 39
Localisation : Vendée (85) FRANCE

http://www.beam3.fr

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par SamsGuamejy Ven 1 Oct 2010 - 22: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
3DExperience R2018x
Responsable R&D
http://www.beam3.bzh

Xeon E3-1505M 2.80GHz _ Quadro M3000M _ 32Go Ram _ Win10 _ SSD 240Go + DD 500Go
SamsGuamejy
SamsGuamejy
Fédérateur
Fédérateur

Messages : 314
Date d'inscription : 13/09/2010
Age : 39
Localisation : Vendée (85) FRANCE

http://www.beam3.fr

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par tuxmickmac Lun 4 Oct 2010 - 11: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 : 49
Localisation : nord

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par SamsGuamejy Lun 4 Oct 2010 - 11:56

Salut Mick Exclamation!

Je testerais ça ce soir Wink Merci encore Exclamation!

_________________
SamsGuamejy
3DExperience R2018x
Responsable R&D
http://www.beam3.bzh

Xeon E3-1505M 2.80GHz _ Quadro M3000M _ 32Go Ram _ Win10 _ SSD 240Go + DD 500Go
SamsGuamejy
SamsGuamejy
Fédérateur
Fédérateur

Messages : 314
Date d'inscription : 13/09/2010
Age : 39
Localisation : Vendée (85) FRANCE

http://www.beam3.fr

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par tuxmickmac Lun 4 Oct 2010 - 14: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 : 49
Localisation : nord

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par SamsGuamejy Lun 4 Oct 2010 - 15:16

Very Good Mick !!!!

_________________
SamsGuamejy
3DExperience R2018x
Responsable R&D
http://www.beam3.bzh

Xeon E3-1505M 2.80GHz _ Quadro M3000M _ 32Go Ram _ Win10 _ SSD 240Go + DD 500Go
SamsGuamejy
SamsGuamejy
Fédérateur
Fédérateur

Messages : 314
Date d'inscription : 13/09/2010
Age : 39
Localisation : Vendée (85) FRANCE

http://www.beam3.fr

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par SamsGuamejy Lun 4 Oct 2010 - 19:32

Ma petite mise à jour : Disponible ICI

_________________
SamsGuamejy
3DExperience R2018x
Responsable R&D
http://www.beam3.bzh

Xeon E3-1505M 2.80GHz _ Quadro M3000M _ 32Go Ram _ Win10 _ SSD 240Go + DD 500Go
SamsGuamejy
SamsGuamejy
Fédérateur
Fédérateur

Messages : 314
Date d'inscription : 13/09/2010
Age : 39
Localisation : Vendée (85) FRANCE

http://www.beam3.fr

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par gautier2305 Mar 5 Oct 2010 - 16: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!

_________________
Section programmation CatScript, VBA, VB.NET... - Page 3 Avatar10

gautier2305
Fédérateur
Fédérateur

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

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par Guss_ Lun 8 Nov 2010 - 16: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_
Admin
Admin

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

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par Guss_ Mar 9 Nov 2010 - 11: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_
Admin
Admin

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

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par Threedots Mar 9 Nov 2010 - 14: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 ?
Threedots
Threedots
Fédérateur
Fédérateur

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

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par gautier2305 Mer 10 Nov 2010 - 9: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, "")

_________________
Section programmation CatScript, VBA, VB.NET... - Page 3 Avatar10

gautier2305
Fédérateur
Fédérateur

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

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par Threedots Mer 10 Nov 2010 - 10: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 ?
Threedots
Threedots
Fédérateur
Fédérateur

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

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par gautier2305 Mer 10 Nov 2010 - 10: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?

_________________
Section programmation CatScript, VBA, VB.NET... - Page 3 Avatar10

gautier2305
Fédérateur
Fédérateur

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

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par Threedots Mer 10 Nov 2010 - 12: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... ^^'
Threedots
Threedots
Fédérateur
Fédérateur

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

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par gautier2305 Mer 10 Nov 2010 - 13:15

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

_________________
Section programmation CatScript, VBA, VB.NET... - Page 3 Avatar10

gautier2305
Fédérateur
Fédérateur

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

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par Guss_ Mer 10 Nov 2010 - 14: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_
Admin
Admin

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

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par gautier2305 Mer 10 Nov 2010 - 14:23

je ne connais pas le Vb désolé Guss

_________________
Section programmation CatScript, VBA, VB.NET... - Page 3 Avatar10

gautier2305
Fédérateur
Fédérateur

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

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty Re: Section programmation CatScript, VBA, VB.NET...

Message par Threedots Mer 10 Nov 2010 - 14: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
Threedots
Threedots
Fédérateur
Fédérateur

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

Revenir en haut Aller en bas

Section programmation CatScript, VBA, VB.NET... - Page 3 Empty 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

Revenir en haut

- Sujets similaires

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