---

Hallo zusammen,

Ich vergebe in einem Part-Dokument ein Attributeset an ein Face.
Füge das Partteil in ein Assembly und habe gehofft dann
das Attribut des Partteils im Assembly auslesen zu können.
Leider taucht das dann aber nicht im Assembly auf. (Trotz Aktualieren usw.)

Public Sub CheckAtts()

Dim oAttMgr As AttributeManager
Dim oAttsetsEnum As AttributeSetsEnumerator
Set oAttMgr = ThisApplication.ActiveDocument.AttributeManager

Set oAttsetsEnum = oAttMgr.FindAttributeSets("*")

Dim oAttSet As AttributeSet
Dim oAtt As Inventor.Attribute

For Each oAttSet In oAttsetsEnum
usw.

Habe ich irgendetwas vergessen?

------------------
Gruß Jörn

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

---

Hallo Joern,

Du suchst an der falschen Stelle: Wenn Du ein AttributeSet mit Attributen an eine Flaeche vergibst, dann findest Du das AttributeSet auch nur an Flaechen.

Im Assembly hast Du nun aber keine Flaechen - Du hast ein FaceProxy-Objekt. Ueber das FaceProxy kommst Du wieder zurueck auf das Face-Objekt des Parts und da findest Du auch das AttributSte wieder. Ev. (hab's nicht probiert) ist Dein AttributSet auch direkt am FaceProxy zu finden.

Ich hoffe, das hilft.

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hallo Paul,

hatte mittlerweile auch schon etwas ausprobiert und du hast recht.
Ich muß über die Occurrences in den einzelnen Teilen den
Attribute Manger aufrufen und suchen; dann klappst.

With ThisApplication.ActiveDocument
    For d = 1 To .ComponentDefinition.Occurrences.Count
        Dim oOcc As ComponentOccurrence
        Set oOcc = .ComponentDefinition.Occurrences(d)
        Dim oAttMgr As AttributeManager
        Dim oAttsetsEnum As AttributeSetsEnumerator
        Set oAttMgr = oOcc.Definition.Document.AttributeManager
        Set oAttsetsEnum = oAttMgr.FindAttributeSets("*")
        Dim oAttSet As AttributeSet
        Dim oAtt As Inventor.Attribute
        For Each oAttSet In oAttsetsEnum
            Debug.Print oAttSet.Name
usw.

------------------
Gruß Jörn

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

---

Hallo,
ich habe eine Frage zu den Attributsets.
Gehe ich richtig in der Annahme, daß mir vergebene Attributsets beim Suchen bei von mir erstellten Elementen helfen?
z.B. eine Kreis in einer Skizze hat ein Attributset "Teilkreis", dann könnte ich nach diesem Attributset suchen, und finde so meinen Kreis wieder zum editieren.

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

   Das Saxregister
  

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

---

Hallo Hans Peter,

genau so ist es.

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

thinkCAD Web-Kataloge

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