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