---

Send_Keys.jpg

Guten Morgen zusammen,

mit Hilfe dieses Forums und den super Beiträgen konnte ich einen großen Teil meiner jetzigen Aufgabe automatisieren. An einer Stelle komme ich aber trotz intensiver Suchen nicht weiter und würde mich freuen, wenn Ihr mir ein paar Ideen zukommen lasst :-)

System:
- CATIA V5R21
- Code in catvba
- Windows 7

Problem:
- eine Fläche mit Hilfe der "Simplification" Funktion (DMU Workbench) automatisch zu vereinfachen
- ich habe sehr viele Flächen und möchte diese nacheinander vereinfachen lassen und speichern

Aktueller Stand:
- es wird immer ein Teil in eine Assembly (Product) geladen
- somit ist immer genau ein Teil im Product welches ich vereinfachen will
- es funktionieren alle Schritte bis auf der letzte zum Speichern (siehe Bild)

Code:

---

Sub CATMain()

CATIA.StartWorkbench "DMUOptimzer"

Set product2 = CATIA.ActiveDocument.Product.Products.Item(1)

Dim oActiveSelection As Selection
Set oActiveSelection = CATIA.ActiveDocument.Selection
oActiveSelection.Clear
oActiveSelection.Add product2
       
Set WshShell = CreateObject("WScript.Shell")
Call CATIA.StartCommand("Simplification")
               
CATIA.RefreshDisplay = True
'Call WshShell.AppActivate("Simplification", True)
           
Call WshShell.SendKeys("{TAB}", True)
Call WshShell.SendKeys("{ENTER}", True)
       
'Dieses ENTER funktioniert noch nicht       
Call WshShell.SendKeys("{ENTER}", True)

       
End Sub

---

Was ich schon versucht habe:
- viele ENTER zu machen so dass eines zum richtigen Zeitpunkt gesetzt werden müsste
- mit TAB, TAB zuvor auf "Save As" zu kommen und dann erst ein ENTER
- das Makro vor dem letztem ENTER zu verlangsamen

Ich würde mich sehr über ein paar Tipps und Ideen freuen.

Vielen Dank und einen schönen Tag :-)
Viele Grüße, Marcel

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

---

Servus
Hat es einen Grund warum du dies mit SendKeys abarbeitest anstatt auf die entsprechenden Methoden direkt zuzugreifen?

Code:

---

Sub CATMain()

Dim RootProduct As Product
dim oProduct as Product
dim MyGroups as Groups
Dim MyGroup As Group
Dim oSimplifications As Simplifications
Dim docSimplified as Document

Set RootProduct = CATIA.ActiveDocument.Product
set oProduct = RootProduct.Products.item(1)

'Gruppe bilden und erstes Product aus der Productscollection zuweisen
set MyGroups  = RootProduct.GetTechnologicalObject("Groups")
Set MyGroup = MyGroups.Add
MyGroup.AddExplicit oProduct

'Vereinfachung bilden und exportieren
Set oSimplifications = RootProduct.GetTechnologicalObject("Simplifications")

set docSimplified  = oSimplifications.ComputeSimplification (MyGroup, 0.1)

docSimplified.SaveAs "D:\test.cgr"

'Gruppe wieder löschen
MyGroups.Remove (MyGroup.Name)

End Sub

---

Gruß
Bernd

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

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

---

Hi Bernd,

tausend Dank mal wieder für deine mega Antwort. Mit der passenden Methode ist es natürlich viel einfacher und sicherer :-) funktioniert super.

Ehrlich gesagt tue ich mir noch schwer passende Methoden zu finden, wenn ich den Befehl bzw. die Workbench nicht kenne. Ich werde mich jetzt mal noch genauer mit der "V5 Automation" Dokumentation auseinandersetzen und dann beim nächsten Mal genauer auf die Suche gehen.

Bzw. getreu deinem Motto "Warum einfach, wenn es auch kompliziert geht" 

Danke nochmal :-) und einen schönen Tag.

Viele Grüße,
Marcel

[Diese Nachricht wurde von 89marbru am 07. Mrz. 2017 editiert.]

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