---

Hallo,

ich möchte ein AxisSystem aus einem GeoSet selektieren, welches z.B. an letzter oder einer bestimmten Position im GeoSet befindet und habe dies folgend versucht, ...

Set g_oNew_Object = hybridbodyAblageSet.HybridShapes.Item(hybridbodyAblageSet.HybridShapes.Count)

Set osel = g_oRootDoc.Selection
        osel.Clear
        osel.Add g_oNew_Object

... dies ist leider nicht zielführend.Deshalb jetzt meine Frage wie kann ich auf das Axissystem im GeoSet zugreifen. Vielen dank.

Gruß
AL-Fonse

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

---

Wenn Du ehh schon eine Selection verwendet ist das Einfachste, aber nicht Beste, eine Suche über den HybridBody nach Achsensystemen.

------------------
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

---

Sorry,

verstehe deinen Hinweis nicht, oder stehe auf dem Schlauch!?
Aber wie kann ich über den Hybridbody suchen?

Was wäre deiner Meinung nach die bessere Lösung.
Thanks Al-Fonse

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

---

Servus
zB so (ungetestet):

Code:

---

Set osel = g_oRootDoc.Selection
osel.Clear
osel.Add hybridbodyAblageSet
osel.Search "CATPrtSearch.AxisSystem,sel"

---

Gruß
Bernd

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

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

---

Servus,

vielen Dank für die Hilöfen, aber irgendwie komme ich nicht weiter. Ich habe zwar nun das AchsneSystem selektiert, aber wie kann ich jetzt von diesem den Namen ändern?

Vielleicht hilft dies zum Verständnis meines Problems, wie ich es mit Flächen mache, ..

Set g_oNew_Object = hybridbodyAblageSet.HybridShapes.Item(hybridbodyAblageSet.HybridShapes.Count)

        Set osel = g_oRootDoc.Selection
        osel.Clear
        osel.Add g_oNew_Object

        g_oNew_Object.Name = g_sNewBauteilName

Habe noch eine neue Frage, und zwar wie kann man die Funktion " Under Axis node" ausschalten? (für Current habe ich es gefunden axisSystem1.IsCurrent = False)

Danke.

Gruß AL-Fonse

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

---

Servus
Zum umbenennen auf erstes Objekt der Selektion zugreifen und Name ändern:

Code:

---

osel.Search "CATPrtSearch.AxisSystem,sel"
osel.item2(1).Value.Name = "Bla"

---

" Under Axis node" ausschalten? Ich befürchte das geht nicht per Makro

Gruß
Bernd

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

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

---

Servus,

Danke erstmal für den Support.
Aber jetzt stürze ich von einem Problem ins nächste!
Ich sollte nun das letzte Element aus dem Search alleine in der Selektion 8osel) haben, um für dieses Element Eigenschaften zu ändern. Ich habe es so versucht ...

Set osel = g_oRootDoc.Selection                                osel.Clear                                                   
osel.Add g_ohybridbodyTargetSet                                 
osel.Search "(CATPrtSearch.AxisSystem),sel"                   
AnzahlTyp = osel.Count
                                       
osel.Clear
osel.Search "(CATPrtSearch.AxisSystem),sel"
osel.add osel.Item2 (AnzahlTyp)

funktioniert aber nicht!

Was gibt es hier für eine Lösung oder gibt es für dieses Problem (Auswahl eines Acchsensystem) eine bessere Lösung wie sie User-HoBLila schon angesprochen hat.

Vielen Dank.

Gruß AL-Fonse
             

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

---

Servus
Warum leerst du die Selektion, sprich doch einfach das letzte Element davon an:

Code:

---

Set osel = g_oRootDoc.Selection
osel.Clear                                                 
osel.Add g_ohybridbodyTargetSet                               
osel.Search "(CATPrtSearch.AxisSystem),sel"                 
AnzahlTyp = osel.Count                                     
osel.Item2(AnzahlTyp).value.Name = "Bla"

---

Gruß
Bernd

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

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

---

Servus!

...sorry habe mein Problem falsch definiert, dass mit der Umbenennung funktioniert, dass habe ich hinbekommen, aber jetzt möchte ich über visprobertyset die Farbe ändern.
Bei mir wird aber für das komplette osel.search die farbe geändert!

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

---

Servus
Entweder alle Element bis auf das letzte aus der Selektion entfernen (Schleife über die Selektion) oder das letzte Objekt in einer Variablen zwischenspeichern, Selektion leeren, Objekt aus Variable der Selektion hinzufügen und VisProperties ändern.
Dein Code lief nicht, da du Selektion geleert hattest und dann aus der leeren Selektion das Element wieder selektieren wolltest.

Gruß
Bernd

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

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