---

Hallo an Alle,

Ich möchte mein Aktuellen GeometricalSet als ein HybridBody einstellen, und will es nicht also so ein "HardCode" im Makro schreiben.

Wie jetzt hier:

'Declaring Geometrical set
Dim HBody As HybridBody
Set HBody = MyPart.HybridBodies.Item("GeometricalSet.3")

Ich will nicht so "GeometricalSet.3" im Makro eingeben, sondern will den Aktuellen GeometricalSet automatisch wählen. Weil mein makro auch in anderen GeometricalSets verwendbar sein muss.

Hoffe Jemand mir helfen kann.
Vielen Dank im voraus 

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

---

Servus
Dazu kannst du die Methode "InWorkObject" nutzen.

Gruß
Bernd

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

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

---

Moin,

ich sehe da drei Möglichkeiten.

1. Du weisst an welcher Stelle (in der Reihenfolge) das GeoSet in deinem Modell steht. Also z.B. HybridBodies.Item(4)

2. Das GeoSet kann anhand des Namens identifiziert werden. Hierzu müsste man die GeoSets der Reihe nach durchgehen und den Namen analysieren. Also z.B. If HybridBody.Name = ? Then ...

3. Du gehts über die Selection (UserAuswahl). Hier gibt es zwei Möglichkeiten.

3.1: Der Anwender muss das GeoSet auswählen, BEVOR er das Makro startet.

3.2: Nach dem Start des Makros wird der Anwender aufgefordert ein (oder auch mehrere) GeoSet(s) auszuwählen.

Zu jedem dieser Ansätze findest du zahlreiche Beiträge hier im Forum.

Gruß
Randle

Nachtrag: Der Ansatz mit InWorkObject ist natürlich auch gut, das es "immer" um das aktuelle GeoSet geht, hatte ich überlesen.

[Diese Nachricht wurde von Randle am 28. Jan. 2015 editiert.]

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

---

Vielen Dank Bernd und Randle für ihre schnelle Rückmeldungen.

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