---

Hallo...

Wie kann ich einem Makro klarmachen ,daß er die "OK-Taste" automatisch betätigen soll??

Gruß MCrupt

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

---

Hi,

falls Du den OK Button von einer MsgBox meinst, denke ich das das nicht geht. Statt der MsgBox müsstest Du ein Fenster oder eine Dialogbox programmieren, die nach einer bestimmten Anzeigezeit wieder verschwindet.

Gruß

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

---

Hallo..

Kannst Du mir ein Beispiel geben, wie ich das machen kann?? Bin ein absoluter Neuling in der Hinsicht!

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

---

Hallo

kannst Du dein Problem vielleicht mal genauer beschreiben, z.B. um welchen OK-Button es sich handelt , welchen zweck es hatt , Code ,VB6 oder .NET oder CATscript.... usw

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

---

Hallo Augustiner..

und zwar handelt es sich um die Funktion "CATPart aus Produkt generieren"

Habe das Makro mittlerweile soweit erstellt :

Language="VBSCRIPT"

Sub CATMain()

CATIA.SystemService.ExecuteBackgroundProcessus ( "D:\Makro\CATIABefehl.exe CATPart aus Produkt generieren" )

Dim CATProtDoc As ProductDocument
Dim CATProt As Product
Dim wshshell

Set CATProtDoc = CATIA.ActiveDocument
Set CATProt = CATProtDoc.Product

CATIA.ActiveDocument.Selection.Clear
CATIA.ActiveDocument.Selection.Add CATProt

End Sub

Er öffnet das Fenster, wo die Teilenummer bzw. das Produkt eingetragen wird. Dies hab ich auch hinbekommen. Nur muss ich nun die "OK-Taste" drücken, um fortzufahren.
Das drücken der "OK-Taste" möchte ich auch automatisieren. Es gibt hier im Forum zwar schon Antworten darauf es mit einer "SendKey.vbs" zu machen, aber ich möchte es in dem Makro mit verfassen..!!!
Leider gibt es dazu hier im Forum noch keine Antworten..

Danke

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

---

Hallo,

mit VB (nicht im CATScript) und CATIA in engl. Sprachversion mache ich das so:

  Set oProdToALLCATPart = Catia.Documents.Open(objFile.Path)
  iWinCount = Catia.Windows.Count
  Set oSel = Catia.ActiveDocument.Selection
  oSel.Clear
  oSel.Add (Catia.ActiveDocument.Product)
  AppActivate ("CATIA V5")
  Catia.StartCommand ("Generate CATpart from product...")
  Start = Timer
  Do While Timer < Start + 1
  DoEvents
  Loop 
  SendKeys Chr(13), True
  While Catia.Windows.Count = iWinCount
  Wend

Gruss TomTom

------------------
tomtom1972

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

---

Ja,Ja..Das sieht super aus,aber wie funzt das mit ner deutschen Version???

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

---

Hallo,

keine Ahnung. Die Unterstützung von deutschen Versionen habe ich schon lange aufgegeben. Hast du es einfach mal mit dem Code probiert?
Vieleich läufts ja. Das einzige, was Sprachabhängig ist, ist die Zeile mit dem CATIA.Startcommand.

Gruss
TomTom

------------------
tomtom1972

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

---

Hab es geschafft....
Nun ist mein Macro ein .catvba. Allerdings kann ich diese Datei nicht über die DOS Eingabeaufforderung aufrufen..
Was muss ich tun???

Folgendes hab ich schon:

D:\cnext -object d:\Product1.CATProduct

normalerweise kommt hiernach das -macro ...catvba, nur das funzt nicht. mit einem -macro ...CATScript hatte es hingehauen.

Allerdings hab ich in meinem .catvba einen Verweis (fett), den das CATSkript nicht kennt und nicht ausführt

Sub CATMain()

Dim CATProtDoc As ProductDocument
Dim CATProt As Product
Dim WshShell

CATIA.SystemService.ExecuteBackgroundProcessus ("D:\...\CATIABefehl.exe CATPart aus Produkt generieren")

Set CATProtDoc = CATIA.ActiveDocument
Set CATProt = CATProtDoc.Product

CATIA.ActiveDocument.Selection.Clear
CATIA.ActiveDocument.Selection.Add CATProt

Call Shell("wscript c:\sendkey.vbs")

End Sub

Danke!!!!!!!

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