---

Servus Allen!

Ich habe ein GeoSet, welches Axis.Systems beinhaltet und ich möchte auf das Geoset in einer Schleife zugreifen und bei jedem Schleifendurchgang das nächste Axis.System auswählen. Mein Problem ist, dass im HybridInputbody keine Elemente (Axis.Systems) gefunden werden.
Für Flächenelemente funktioniert es (siehe folgenden Code)

....

For i = 1 To HybridInputBody.HybridShapes.Count

    Dim hybridObject
    Set hybridObject = HybridInputBody.HybridShapes.Item(i)

Kann mir jemanden einen Tip geben?
Besten Dank schon mal.

Gruß

AL-Fonse

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

---

Hallo AL-Fonse,

an das AchsenSystem in dem GeoSet kommst du nur noch über die Selection, da es weder unter den .AxisSystems noch unter dem .HybridBodies.Item(n) auftaucht.

Also:
...
oSel.Clear
oSel.Add oHBody
oSel.Search "CATGmoSearch.AxisSystem,sel"
Set oAxisSyst = oSel.Item(1).Value

oder mit Schleife (falls es mehrere sind)

For i = 1 to oSel.Count
  Set oAxisSyst = oSel.Item(i).Value
Next

Du kommst von dem AchsenSystem im GeoSet auch nihct mehr nach "oben", da die .Parent -Methode nichts liefert.

Also ein Rat: Lass die AchenSysteme im Knoten AxisSystems.

Gruß

------------------
tomtom1972

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

---

Servus!

Danke für die Antwort.
Jetzt bin ich auf das nächste Problem gestoßen und dachte ich könnte das auch so einfach mit der Selektion lösen, dem ist aber nicht so.
Und zwar ist nicht immer klar welchen Inhalt ein Geoset hat, d.h. es können AxisSystem, Flächen, Linien, Punkte ... sein, kann ich das verallgemeinern und wenn ja wie?
Besten Dank schon mal!

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

---

Servus
Wenn du alle Objekte in einem GeoSet haben willst, geht dass auch mit einer Selektion:

Code:

---

....oSel.Clear
oSel.Add oHBody
oSel.Search "Type=*,sel"

For i = 1 to oSel.Count
  Set oObject= oSel.Item(i).Value
Next
...

---

Allerdings werden dabei auch "sekundäre" Feature/Parameter selektiert.
Ggf musst du den Filter entsprechend anpassen. (zB "Type!=InternalParameter,sel")

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 12. Sep. 2011 editiert.]

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