---

Hallo,

ich möchte Bodies einer Baugruppe entsprechend den Properties des jeweiligen parts (component Member) einfärben.

Dazu Schleife über alle sichtbaren Objekte der Baugruppe:

Code:

---

Dim Objekte() As DisplayableObject
        Objekte = s.Parts.Display.Views.WorkView.AskVisibleObjects
        For Each Obj As DisplayableObject In Objekte
            If TypeOf (Obj) Is Body Then
                ' jetzt möchte ich das part
                ' wissen, wo Obj definiert ist.

                ' OwningPart liefert mir das Assembly part
                ' OwningComponent funzt nicht so recht.
           
                ' --> ergibt part as NXOpen.part
                ' Dann Body entsprechend umfärben weiss ich wies geht...
            End If
        Next

---

Mittels

Code:

---

ufs.Obj.AskOwningPart(target_body, owner)

---

erhalte ich nur den Tag des Assemblies . Ausserdem weiss ich nicht wie ich aus einem Tag ein part-Objekt mache.

Für Eure Hilfe bin ich sehr dankbar.

Jörg

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

---

Zitat:

---

Ausserdem weiss ich nicht wie ich aus einem Tag ein part-Objekt mache.

---

Hallo Jörg,

der NXObjectManager liefert zu einem bekannten Tag das zugehörige TaggedObject. Je nach dessen Typ, kannst Du über CTYPE weiter umwandeln.

Gruß, Michael

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

---

Hallo! Ich bring das Thema noch mal nach oben. Die Ursprungsfrage war ja noch nicht geklärt.
Ich habe das gleiche Problem: Wie kommt man von der Komponente zum zugehörigen Part? OwningPart ist es nicht, das ist immer die Baugruppendatei. In dem Informationsfenster zur Komponente gibt es das Attribut "Comp member in part". Genau das möchte ich auslesen.

[Diese Nachricht wurde von e.gilsdorf am 02. Sep. 2011 editiert.]

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

---

Hallo e.gilsdorf,

das Part, sofern eines existiert, bekommt man über [Component].Prototype.

Gruß, Michael

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

---

Hallo,
ich muss das Thema nochmal aufgreifen, weil es ja leider immer noch nicht geklärt ist.
Wie komme ich an die Komponente eines Objekts?

Die Umwandlung eines Tags in ein Part funktioniert folgendermaßen:
        Dim PartTag As NXOpen.Tag = NXOpen.Tag.Null
        ufs.Obj.AskOwningPart(Object1.Tag, PartTag)
        Dim Part1 As Part = CType(theSession.GetObjectManager.GetTaggedObject(PartTag), Part)

Aber wie um Himmels Willen komme ich an die Komponente? Mit ufs.Obj.AskOwningPart bekomme ich nur den Baugruppenknoten...

Vielen Dank, pleudel.

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

---

Zitat:

---

... weil es ja leider immer noch nicht geklärt ist

---

Hallo pleudel,

der Eindruck entsteht m.E. durch die "ökonomische" Art deiner Vorredner, Danke zu sagen: Nichts gesagt ist schon genug gelobt.    Wär's ungeklärt, hätt's bestimmt weitere Nachfragen gegeben.

Das Zauberwort heisst Occurence. Sobald es sich bei einem Objekt um eine solche handelt, erhält man über verschiedene Methoden in UF_ASSEM die gewünschten Daten.

Gruß, Michael

------------------
Ein Mensch wird laut, wenn er was will;
wenn er's erst hat, dann wird er still;
Das "Danke" ist, nach alter Sitte,
Weit seltner als das "Bitte, Bitte".

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