---

Hallo,

für eine kleine vba-Lösung möchte ich erreichen, dass ich
in einem geöffneten CATIA-Fenster via vba den obersten Knoten
im Strukturbaum ermittle und aktiviere.

Hat jemand eine Idee wie sich das realisieren leasst?

Gruss Hein_nieH

------------------
HeinHein

[Diese Nachricht wurde von HeinHein am 09. Mrz. 2016 editiert.]

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

---

Morgen,

hast Du schon mal so versucht?

Code:

---

Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As product
Set product1 = productDocument1.product

Set selection1 = CATIA.ActiveDocument.Selection
selection1.Add product1

CATIA.StartWorkbench ("Assembly")

End Sub

---

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

---

Hallo imation1999,

danke fuer den Hinweis. Ich werde es nachher mal probieren.

Gruss Hein_nieH

------------------
HeinHein

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

---

Zitat:

---

Original erstellt von imation1999:

Code:

---

Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As product
Set product1 = productDocument1.product

Set selection1 = CATIA.ActiveDocument.Selection
selection1.Add product1

CATIA.StartWorkbench ("Assembly")

End Sub

---

---

Hallo,
Wenn ein Produkt schon aktiv ist wird ein neues leeres Produkt geöffnet. Die mir einzige bekannte Lösung ist:

Code:

---

Dim oSel As Selection
Set oSel = CATIA.ActiveDocument.Selection
Dim oProd As Product
Set oProd = CATIA.ActiveDocument.Product

oSel.Clear
oSel.Add oProd
CATIA.StartCommand "FrmActivate"

---

Achtung: wie immer mit Startcommand sollte man auf die umgebungsprache achten. Diese Lösung ist für Englisch gedacht.

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

---

Nein, frag vorher einfach mit GetWorkbench() ab ob Du schon im Assembly bist.
Im Zweifelsfall musst Du vorher in eine andere Workbench wechseln und dann wieder in's Assembly.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Hallo,
irgendwie waechst mir die Arbeit heute über den Kopf.
Ich befürchte , dass ich heute nicht mehr dazu komme.

Trotzdem zunaechst einmal vielen dank fuer die Hinweise.

Gruss Hein_nieH

------------------
HeinHein

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

---

Hallo,

darf man fragen warum du das willst? Ist das wirklich notwendig?

Gruß
Randle

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

---

Hallo

ich habe versucht eine Lösung zu finden. Leider noch ohne Erfolg.
Mein Problem möchte ich anders beschreiben.
Wir haben ein CATProduct in welchem, z.B. durch Nutzeraktion, ein Subassemly aktiviert ist (also blau).
Via VBA code möchte ich erreichen, dass der Topknoten aktiviert wird (also der TopKnoten blau wird).

Kann mir da jemand helfen?
Gruss HeinHein

------------------
HeinHein

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

---

Hi Hein,

ich schliess mich Randle an:

Zitat:

---

darf man fragen warum du das willst?

---

Das oberste Product lässt sich über Catia.ActiveDocument.Product ansprechen.

Tschau,
Joe

PS: Suche nach SendKeys und FrmActivate ...

------------------
Inoffizielle Catia Hilfeseite

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