---

Hallo CAD Commmunity,

ich bin mal wieder auf ein Problem gestoßen. Und zwar, möchte ich automatisiert die Anzahl der Triangles ermitteln aus denen ein Surface besteht. Das ganze würde ich gerne auf Part ebene durchführen. Die ermittelten Werte werden anschließen in eine Exceltabelle eingetragen.
Das Problem ist, um den Triangles Count zu bestimmen kenne ich auf Part ebene nur den Befehl "c: triangles count" welchen man unten rechts in die Kommandozeile einträgt. Zudem  weiß ich leider auch nicht wie ich dies automatisieren kann, außer über send keys Methoden, bzw. wie ich aus der MsgBox den Ergebnisse auslesen kann.

Ich weiß, dass ich über Umwege mithilfe von CGRŽs zum Ziel kommen würde, aber bei ein paar tausend Parts wird das ganze ziemlich Zeit intensiv werde.

Also für einen Lösungsansatz oder auch gerne ein paar Zeilen Code wäre ich sehr dankbar!

VG Rouven

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

---

Hallo Aitec,

habe mal ein bisschen herum gespielt. Das einzige Problem, welches ich bei deinem Problem habe, ist es die Messagebox weg zu bekommen.

Aber mal von vorne.

Das "triangle count"-Feature kannst du im Makro mit dem Command

Catia.StartCommand "triangles count"

starten.

Danach erscheint, wie üblich, das Fenster mit den Werten.
Hier ist das Problem, bei dem ich dann nicht weiter weiß.

Mit Strg+C kann man den Messagebox-Inhalt in die Zwischenablage legen.

Leider habe ich keinen Weg gefunden, das Kopieren und das nachfolgende Schließen der Messagebox umzusetzen. SendKeys hat bei mir zumindest nicht funktioniert.

Vielleicht hat hier jemand anderes eine Lösung dazu.

Die Zwischenablage kannst du letztendlich mit VBA auslesen.
Hierzu gibt es von Microsoft selbst eine Beschreibung. Einfach nach "Lesen von Daten aus der Zwischenablage" googlen.

Ich hoffe ich konnte dir einen Ansatz geben, der dich oder jemand anderen zur Lösung führt.

Gruß
Diesaster

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

---

Hallo Desaster,

Danke für deine Antwort. Danke für den Tipp mit Strg+C ich wusste nicht das es auf diese Weise funktioniert. Kann man die MsgBox dann nicht einfach über Alt+F4 wieder schließen? Manuell funktioniert dies auf jeden Fall.
Ansonsten verwende ich ein Tool mit dem man sich die "wirklichen" Fensternamen sowie Schaltflächen etc. auslesen kann. Mit diesen Informationen ist es möglich  die Meldefenster über Windows handle befehle anzusprechen.

VG
Aitec

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

---

Hallo Aitec,

habe mal ein bisschen in meiner Freizeit an einem Lösungsansatz gearbeitet.

Hier der Code, welcher soweit funktioniert.

Code:

---

Sub trianglesAuswerten()

Tabelle1.Hyperlinks(1).Follow

Application.Wait (Now + TimeValue("0:00:02"))

AppActivate "Triangles"

SendKeys "^C", 100

AppActivate "Triangles"
SendKeys "{ESC}", 100

End Sub

---

Zur Erklärung:

Habe es in Excel selbst umgesetzt. Erste Zeile Hyperlink ist der Link, in dem das CATScript Makro liegt. Wollte das Makro eigentlich in Excel mit einbinden, aber dann fährt das Makro nicht mehr fort. Auch das Aufrufen mit ExecuteScript hat Probleme bereitet. Aus diesem Grund habe ich den Hyperlink mit eingefügt. Du musst nur sicherstellen, dass der richtige Hyperlink angesprochen wird.

Die Wartezeit muss im Programm enthalten sein, da es sonst einen Laufzeitfehler verursacht.

In den folgenden Schritten wird dann das Messagebox-Fenster aktiv gesetzt, kopiert und geschlossen.

Ich denke das Einfügen in eine Excel Tabelle sollte dann für dich kein Problem sein.

Zu guter Letzt noch das CATScript, welches durch den Hyperlink aufgerufen wird.

Code:

---

Sub CATMain()
Catia.StartCommand "triangles count"
End Sub

---

Viel Spaß damit!

PS: Vielleicht haben andere auch noch eine Idee, wie man es besser machen könnte, aber für den Anfang sollte es reichen denke ich.

Gruß
Diesaster

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

---

Hi Diesaster,

danke für die Lösung, wirklich ein sehr interessanter Weg. Ich werde den Code gleich mal ausprobieren.
Ich hatte mir derweil einen anderen Lösungsweg aufgebaut, der aber nicht sehr performant ist. Dabei gehe ich wie folgt vor:
1. Neues Product anlegen und ein Part darin erzeugen
2. Das GeoSet welches die entsprechende Oberfläche enthält kopieren und in das neu erzeugt Product/Part einfügen.
3. Alle Geometrien etc. die nicht betrachtet werden sollen ins Hide
4. Mit der SendKeys Methode den Simplification befehl aufrufen
5. Triangles Count auslesen und in die Excel eintragen

Besten Dank für deine Lösung!

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