Discussion :

[Vostro1310]

Bonjour,

Je vous écris concernant l'ouverture du logiciel Abaqus grâce au petit .exe que je réalise en ce moment même.

Dans mon application, il y a aussi l'ouverture d'un fichier Excel mais aussi Catia.
Je n'ai eu aucun problème pour coder leur ouverture.

Voici ce que j'utilise:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim Abaqus
 
' Ouverture Abaqus
Set Abaqus = GetObject("Abaqus.Application")
 
'Si Abaqus n'est pas ouvert -> on l'active
If Abaqus Is Nothing Then
Set Abaqus = CreateObject("Abaqus.Application")
Abaqus.Visible = True
 
'Ouverture du fichier Abaqus
Set Abaqus = Abaqus.Documents.Open(Dir1.Path & "\" & File1.FileName)

Lorsque j'ai coder l'ouverture de Catia, j'avais pu selectionner des reférence sur Catia et idem pour Excel.

Par contre pour Abaqus, je ne trouve rien.
Comment pourrais je faire?

Merci beaucoup

[iclic]

Bonjour,

D'abord c'est quoi ce logiciel Abaqus?

A+

[Vostro1310]

Abaqus est un logiciel d'éléments finis.
On s'en sert pour l'étude de la résistance de pièces mécaniques.

[OhMonBato]

Bonjour,

Le code que tu mets dans ton message fonctionne-t-il ou pas ? Sans référence ça me parait difficile.

[Vostro1310]

Non le code que j'ai mis ne marche pas.
C'est vrai que dans les références, je n'en vois aucune qui pourrait être bonne...

[OhMonBato]

Dans ce cas, personnellement je ne vois que un shell pour lancer ton appli et si tu dois vraiment la piloter depuis VB, des SendKeys, mais c'est lourd.
As tu la possibilité d'écrire des macros VBA comme dans Excel et Catia (il me semble avoir lu que Catia le permettait en tout cas mais je ne connais pas) ?

[Vostro1310]

Oui il faudrait que je puisse la piloter depuis VB.
J'ai fait une petite application pour mon projet de fin d'étude.
Depuis VB, je manipule automatiquement Word, Excel et Catia.
C'est vraiment embêtant que Abaqus ne marche pas.
Comment est ce que fonctionnent les sendkeys?

[OhMonBato]

Comment est ce que fonctionnent les sendkeys?

L'aide de VB, la FAQ ou les tutos ou la fonction "Rechercher" de ce forum, Google, à priori tu dois pouvoir trouver par toi même
Je doute quand même que ce soit une solution vraiment viable vu le type de logiciel.

Si tu as la doc de ce logiciel, tu n'as trouvé aucune information sur une librairie éventuellement ? Ca m'étonne un peu tout de même.

[Vostro1310]

Y a t il des possibilités de rajouter sois même des références?

[Vostro1310]

J'ai aussi une petite erreur:

Lorsque je lance Catia, tout va bien mais après l'ouverture de la pièce et de Catia, je n'arrive pas à lancer une mise à jour:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
    Dim Catia
    Dim debut
    Dim fin
 
 
    If File1.Filename = "" Then
        MsgBox "Sélectionner un fichier", vbOKOnly + vbCritical, "Attention"
    ElseIf Right(File1.Filename, 4) <> "Part" Then
        MsgBox "Choisissez un fichier *.CATPart!", vbOKOnly + vbCritical, "Mauvais type de fichier"
    Else
Select Case MsgBox("Etes vous sûr de vouloir charger " & File1.Filename & "", vbYesNo, "Selection du fichier")
 
Case vbYes
    Form1.Enabled = True
    Form2.Enabled = False
    Form3.Visible = True
    Form3.Timer1.Enabled = True
 
    ' Ouverture catia
    On Error Resume Next
    Set Catia = GetObject("CATIA.Application")
    'Si Catia n'est pas ouvert -> on l'active
    If Catia Is Nothing Then
 
    Set Catia = CreateObject("CATIA.Application")
    Catia.Visible = True
 
    End If
    On Error GoTo 0
 
  'Ouverture d'un fichier Catia
    Set Catia = Catia.Documents.Open(Dir1.Path & "\" & File1.Filename)
 
    debut = Now
    fin = 10
 
    Do While Timer < debut + fin
    Loop
 
    Catia.Documents.Update
 
Case vbNo

Est ce que quelqu'un saurait d'où vient l'erreur?
L'erreur est:
Object doesn't support this property or method

[OhMonBato]

Vu que tu as la touche F2 sous VB, tu peux au moins connaitre les fonctions dispo avec ta librairie Catia.

[Vostro1310]

Une question d'ordre générale:

Lorsque j'ouvre une pièce, ca m'ouvre un **.CATPart
Une fois ouvert, j'arrive à faire la mise à jour et à lancer l'enregistrement.
Par contre je voudrais changer le format du fichier.
Et le passer en .igs

Le problème c'est qu'une fois enregistrée, la pièce est **.CATPart.Igs

Voilà mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
Catia.ActiveDocument.Part.Update
    path = Catia.ActiveDocument.path
    newname = File1 & ".igs"
    Catia.ActiveDocument.SaveAs (path & "\" & newname)

[OhMonBato]

Comme très probablement File1 = "**.CATPart" c'est assez logique non ?
A toi de supprimer la première extension au préalable, les fonctions de manipulation de chaine de VB sont là pour ça.
Mais une fois encore, regarde les membres, méthodes, propriétés de ta librairie Catia en appuyant sur F2, tu verras s'il y a une propriété "Extension" ou une méthode "Export" ou équivalent. Pas sûr que le fait de changer l'extension en fin de nom suffise à réellement modifier le format.

[ProgElecT]

Salut OhMonBato

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'Si Abaqus n'est pas ouvert -> on l'active
If Abaqus Is Nothing Then
Set Abaqus = CreateObject("Abaqus.Application")

Il ne fait pas reference à Abaqus en design, de fait il ne peut pas utiliser F2.

[OhMonBato]

Salut ProgElect

bien d'accord avec toi pour Abaqus, mais je parlais de Catia pour lequel il semble avoir la librairie.

[ProgElecT]

Je ne crois pas post 12

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    ' Ouverture catia
    On Error Resume Next
    Set Catia = GetObject("CATIA.Application")
    'Si Catia n'est pas ouvert -> on l'active
    If Catia Is Nothing Then
 
    Set Catia = CreateObject("CATIA.Application")
    Catia.Visible = True
 
    End If