---

Hallo zusammen,

gibt es eine Möglichkeit, wenn man mit Save Management speichert, in dem Fenster, das dann aufgeht per vb das Feld Pattern Name anzusprechen?
Ich würde da gerne immer das aktuelle Datum sehen.
Dazu habe ich nichts gefunden.

Man kann per Start Command das Fenster aufrufen, aber weiter komme ich nicht.
In welcher Bibliothek befinden sich die Elemente, sollte das gehen?

THX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
IMHO geht das nicht per Catia API.
Wenn du das Fenster öffnest kann du bestimmt über die WindowsAPI auf alle Elemente des Fensters zugreifen.
Oder du arbeitest deine Dokumente per Schleife ab und speicherst sie unter neuem Dateinamen ab (Reihenfolge: erst Parts, dann Products und dann Zeichnungen)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Tweety,

ich hab's mal mit Sendkeys probiert.
Das Makro ändert das Pattern und beendet den Dialog wieder.
Das Pattern bleibt beim nächsten 'Save Management' erhalten.

Code:

---

Sub CATMain()
  Dim strDatum As String
  'getestet mit Datumformat dd.mm.yyyy
 
  strDatum = Right(Date, 4) & Mid(Date, 4, 2) & Left(Date, 2) 'datum umformatieren
  CATIA.StartCommand "Save Management..."                    'dialog starten
  AppActivate "CATIA V5"
  CATIA.RefreshDisplay = True
 
  SendKeys "{DEL 16}", True                                  'alten eintrag löschen
  CATIA.RefreshDisplay = True
 
  SendKeys strDatum & "_*", True                              'neuen text eintragen
  CATIA.RefreshDisplay = True
  SendKeys "{ESC}", True                                      'dialog schliessen
 
End Sub

---

Hope it helps,
Joe

------------------
Inoffizielle Catia Hilfeseite

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Joe,

danke erstmal, das sieht gut aus.
Mir wirft es aber einen Fehler in Zeile SendKeys {"DEL 16"}.

Ich habe es versucht mit SendKeys.Send {"DEL 16"} - Fehler bleibt.

Wofür steht die Zahl 16?

Danke.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Tweety,

Zitat:

---

Wofür steht die Zahl 16?

---

16x je ein Zeichen löschen.

Bei mir steht die Eingabemarke beim Aufruf des Dialogs im Feld 'Pattern'.
Falls das bei Dir nicht zutrift, funktioniert's nicht.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Joe,

Eingabemarke ist bei mir auch in dem Feld.
Trotzdem kommt der Fehler.
Fehler:
Source: Laufzeitfehler in Microsoft VBScript
Description: Typenkonflikt:'SendKeys'

Ärgerlich ...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Tweety,

das hab ich als VBA-Makro konzipiert.

Probier's mal im VBA-Editor.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

ich habe es jetzt in vb.NET umgemodelt, da kann ich Haltepunkte setzen. Das strDatum ist noch nicht richtig formatiert, aber das ist nebensächlich.

Jetzt bekomme ich keinen Fehler, aber in Zeile DEL, wird nichts gelöscht und in Zeile SendKeys.Send (strDatum) auch nichts eingefügt.

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim myCatApp As INFITF.Application
        Dim strDatum As String
        'getestet mit Datumformat dd.mm.yyyy

        myCatApp = GetObject("", "CATIA.Application")

        strDatum = Now.Date
        myCatApp.StartCommand("Save Management...")                  'dialog starten
        'AppActivate("CATIA V5")
        myCatApp.RefreshDisplay = True

        SendKeys.Send("{DEL 1}")                                    'alten eintrag löschen
        myCatApp.RefreshDisplay = True

        SendKeys.Send(strDatum)                                      'neuen text eintragen
        myCatApp.RefreshDisplay = True
        SendKeys.Send("{ESC}")                                        'dialog schliessen

        MsgBox("Erledigt")

    End Sub

Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Nur so eine Idee: ist auch das richtige Fenster (nicht nur die richtige Applikation) aktiv, oder wo sendest du Tastatureingaben (Sendkeys) hin?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Tweety,

ohne die AppActivate-Anweisung landet Sendkeys im Nirvana.

Ausserdem unterscheidet sich die VB.Net-Vaiante von Sendkeys deutlich von der VB(A)-Version.
Die Syntax ist eine völlig andere. So gibt's '.Send' nicht unter VBA.

Hier Infos zur VBA-Variante von Sendkeys:
https://activevb.de/tutorials/tut_sendkeys/sendkeys.html

Hier Infos zur VB.Net-Variante von Sendkeys:
https://msdn.microsoft.com/de-de/library/ms127847(v=vs.110).aspx
http://www.codeguru.com/vb/gen/vb_system/keyboard/article.php/c14629/SendKeys.htm

Entweder Du verwendest VBA wie ich's geschrieben habe oder Du gehst die VB.Net-Version noch mal durch.

Tschau,
Joe

PS: In Deinem Profil steht weder das V5-Release noch was von VB.Net!

------------------
Inoffizielle Catia Hilfeseite

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Joe,

ich habe mein Profil erweitert, danke für den Hinweis.
Vielleicht liegt es daran, dass ich V5R24 schon verwende, dass dein Macro bei mir nicht funktioniert.
Sobald eine Deklaration Dim ... enthalten ist, wird sofort ein Fehler ausgegeben.

Den Fehler in der Zeile, mit der man CATIA App aktiviert habe ich umgehen können durch:

Imports VB = Microsoft.VisualBasic
VB.Interaction.AppActivate("Save Management")

an der Stelle geht es also schon mal weiter.

Wo aber meine SendKeys danach landen, weiß ich nicht.
Am SendKey DEL rödelt er ganz schön lange, danach ist das Fenster Pattern Name aber nicht leer.

Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Ist auch das richtige Feld (also zB nicht ein Command-Button) im Fenster aktiv?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus,

wenn "Save Management" geöffnet wird, befindet sich der Cursor immer im Feld "Pattern Name".

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

vba_ed.png

Hi Tweety,

bist Du wirklich im VBA-Editor? (siehe Bild)

Oder in .vbs?

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Endlich gelöst, zumindest für VBA.

für alle, bei denen bei Left(Date) ein Fehler kommt ( oder Right, Mid ... )

Wenn es heißen soll Left(Date, 2) dann erweitern auf VBA.Strings.Left(Date, 2).

Warum die SendKeys aber nicht in vb.NET funktionieren, sondern nur aus dem VBA Editor, weiß ich noch nicht ...

Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Tweety,

Zitat:

---

Warum die SendKeys aber nicht in vb.NET funktionieren, sondern nur aus dem VBA Editor, weiß ich noch nicht ...

---

Hast Du mal den Text zum zweiten VB.Net - Link durchgelesen?

Das steht die Vorgehensweise drin.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP