---

Hallo,
ich habe ein Problem mit der automatischen Erstellung eines AllCATParts.

Bei der Suche im diesem Forum bin ich auf diesen Code gestoßen:

Code:

---

            Dim CATIA
            Dim Doc

            CATIA = GetObject(, "CATIA.application")
            Doc = CATIA.ActiveDocument

            Dim ActDoc As ProductDocument
            ActDoc = CATIA.ActiveDocument
            Dim MySel 'As Selection
            MySel = CATIA.ActiveDocument.Selection
            MySel.Add(ActDoc.Product)        '.Products.Item(1)

            CATIA.RefreshDisplay = True
            CATIA.StartCommand("Generate CATPart from Product...")
            MySel = CATIA.ActiveDocument.Selection
            MySel.Add(ActDoc.Product)

            CATIA.RefreshDisplay = True
            AppActivate("Generate CATPart from Product")
            'System.Windows.Forms.Application.DoEvents")
            SendKeys.Send("{Enter}")

---

Hier ist nochmal der Link zur Quelle:
http://ww3.cad.de/foren/ubb/Forum137/HTML/005735.shtml

Eigentlich soll das Programm problemfrei ausgeführt werden, allerdings hängt sich mein Programm immer auf, wenn es den "Enter"- Befehl senden möchte.

Weiß jemand vielleicht woran das liegen könnte ?

Gruß
Marcel

PS: Ich arbeite mit der R26 Version von CATIA

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

---

Ich habe in den Tiefen des Internets doch einen Code gefunden, mit dem es funktioniert!
Das Problem lag darin, dass ein Timer festgelegt werden muss, um den SendKey -Auftrag zu senden.

http://nickpisca.com/BLAST/index.php/GenerateCATPartFromProduct

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

---

Hallo,

Hier ein Code ohne "CATIA.StartCommand" und "Senkey" die oft problematisch sind.

https://ww3.cad.de/foren/ubb/Forum137/HTML/005584.shtml

------------------
Gruss
Marc

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

---

Servus Marc

Bei neueren Releases ist für dies Lösung aber die DF1-Lizenz notwendig (siehe zB hier)

Gruß
Bernd

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

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

---

Hallo Bernd,

ich kann zwar über den Makro-Editor von CATIA zwar "ENTER" über "SendKeys" verschicken, wenn ich allerdings den Code auf mein CATSkript übertrage, funktioniert dies nicht mehr.

Darüber hinaus habe ich in meinem CATSkript versucht SendKeys mit diesem Objekt anzusteuern:

Code:

---

Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{Enter}", True

---

Dies war aber auch ohne Erfolg.
Hast du da vielleicht noch eine Idee, wie es funktionieren könnte?

Gruß
Marcel

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