---

Hallo Zusammen,

gibt es eine Möglichkeit, dass ich mir die kumulierte Anzahl aller Abhängigkeiten einer Baugruppe anzeigen lassen kann ?

Zum Hintergrund:
Man soll ja max. 300-400 Abhängigkeiten in einer Baugruppe platzieren.

Vielen Dank imk Voraus

Gruß Flo

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

---

Beziehungen.jpg

Hi,

im Ordner Beziehungen.

MfG MacFly

------------------
- - - der Erleuchtung ist es egal wie du Sie erlangst - - -
- - - Wir leben alle unter demselben Himmel, aber wir haben nicht alle denselben Horizont - - - (K. Adenauer)

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

---

Weiß ich erst mal nicht. Aber seit etwa 2017 ist im Browser der Baugruppe ganz oben ein Ordner "Beziehungen", in dem alle Abhängigkeiten zusammengefasst sind.
Das mit den 300 - 400 ist wohl eher ein Richtwert. So viel wie nötig, so wenig wie möglich. Und eine Schraube darf man ruhig noch nachziehen können.

Ob eine Beziehung dasselbe ist wie eine Abhängigkeit, darüber könnte man ja philosophieren... 

------------------
Gert Dieter 

Es ist besser, zu genießen und zu bereuen,
als zu bereuen, dass man nicht genossen hat.

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

---

Zitat:

---

Aber seit etwa 2017...

---

2015 war es auch schon da ;-) siehe Bild oben 
Ich meine sogar schon früher 

MfG MacFly

------------------
- - - der Erleuchtung ist es egal wie du Sie erlangst - - -
- - - Wir leben alle unter demselben Himmel, aber wir haben nicht alle denselben Horizont - - - (K. Adenauer)

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

---

Moin 

Falls die Anzahl aller Abhängigkeiten brauchst, also wirklich alle, auch der Unterbaugruppen, dann hilft dir entweder nur noch addieren, oder VBA.

Code:

---

Private Sub Test34()

Dim oAsem As AssemblyDocument
Set oAsem = ThisApplication.ActiveDocument
Dim oConstraint_Counter As Integer
oConstraint_Counter = oAsem.ComponentDefinition.Constraints.Count
Dim k As Integer
'Call iterate_Assembly(oAsem.ComponentDefinition, oConstraint_Counter)
    For k = 1 To oAsem.ComponentDefinition.Occurrences.Count
        If oAsem.ComponentDefinition.Occurrences.Item(k).DefinitionDocumentType = kAssemblyDocumentObject Then
            oConstraint_Counter = oConstraint_Counter + oAsem.ComponentDefinition.Occurrences.Item(k).Definition.Constraints.Count
            Call iterate_Assembly(oAsem.ComponentDefinition.Occurrences.Item(k), oConstraint_Counter)
        End If
    Next
MsgBox ("Gesamtanzahl aller Abhängigkeiten ist: " & oConstraint_Counter)
End Sub
Sub iterate_Assembly(ByRef oOcc As ComponentOccurrence, ByRef constraint_counter As Integer)

Dim k As Integer

If oOcc.DefinitionDocumentType = kAssemblyDocumentObject Then
    For k = 1 To oOcc.SubOccurrences.Count
        If oOcc.SubOccurrences.Item(k).DefinitionDocumentType = kAssemblyDocumentObject Then
            constraint_counter = constraint_counter + oOcc.SubOccurrences.Item(k).Definition.Constraints.Count
            Call iterate_Assembly(oOcc.SubOccurrences.Item(k), constraint_counter)
        End If
    Next
End If

End Sub Integer

If oOcc.DefinitionDocumentType = kAssemblyDocumentObject Then
    For k = 1 To oOcc.SubOccurrences.Count
        If oOcc.SubOccurrences.Item(k).DefinitionDocumentType = kAssemblyDocumentObject Then
            constraint_counter = constraint_counter + oOcc.SubOccurrences.Item(k).Definition.Constraints.Count
            Call iterate_Assembly(oOcc.SubOccurrences.Item(k), constraint_counter)
        End If
    Next
End If

End Sub

---

Gruß

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

---

Hallo Zusammen,

vielen Dank für die Antworten.

Ich werde es mal mit dem VBA versuchen,
da ich immer weider zwischendurch Abhängigkeiten gelöscht habe und neue hinzugefügt habe wird mir der Ordner keine genaue Angabe machen können.

Trotzdem schonmal Danke an alle.

Gruß Flo

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

---

Kannst du mir evtl. zeigen wie ich das mache........

Kenn mich leider nicht mit VBA aus........

Oder gibt es da ne gute Anleitung wo man sich reinlesen kann.

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

---

Der Ordner ist immer aktuell und zeigt den ist zustand an ;-) ...

MfG MacFly

------------------
- - - der Erleuchtung ist es egal wie du Sie erlangst - - -
- - - Wir leben alle unter demselben Himmel, aber wir haben nicht alle denselben Horizont - - - (K. Adenauer)

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

---

Ja, das weiß ich.

Aber ich habe keine Anzahl aller Abhängigkeiten. (Die müsste ich alle zählen)

Und das wollte ich vermeiden...... wenn es geht

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

---

Zitat:

---

da ich immer weider zwischendurch Abhängigkeiten gelöscht habe und neue hinzugefügt habe wird mir der Ordner keine genaue Angabe machen können.

---

Deine Vorherige Antwort/Begründung ließ vermuten, dass du es nicht weißt.
Aber wenigstens scheust du nicht davor zu schreiben das es an deiner Faulheit scheitert  

Ein Trick wäre eine Bildschirmlänge zu zählen, da die letzte zu makieren und dann zu scrollen usw. ....

MfG MacFly

------------------
- - - der Erleuchtung ist es egal wie du Sie erlangst - - -
- - - Wir leben alle unter demselben Himmel, aber wir haben nicht alle denselben Horizont - - - (K. Adenauer)

[Diese Nachricht wurde von MacFly8 am 23. Mai. 2018 editiert.]

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

---

Zitat:

---

Original erstellt von MacFly8:
2015 war es auch schon da ;-) siehe Bild oben  
Ich meine sogar schon früher  

---

und schon immer konnte man auf Modellierungsansicht umschalten und hatte den Überblick.

Die Anzahl ist ein weiche Grenze, weils auch darauf ankommt wie verkettet die sind.
Ich zähle nach Gefühl die Nummern der letzten Passend und Einfügen zusammen und ziehe per Daumen ab.
Man kann abschätzen wie viele wieder gelöscht wurden.
Dazu kommt noch die Daumenregel dass man den Baugruppenbrowser auf dem CAD-Monitor ohne scrollen überblicken soll, Schrauben etc. ausgeschlossen.
Heikel wirds erst bei flexiblen Unterbaugruppen.

Damit hab ich im Support noch nie ein Makro gebraucht ...

------------------

------------------
Der Clown ist die wichtigste Mahlzeit am Tag.

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

---

Moin

Naja ob man da jetzt ein Makro für braucht oder besser abschätzt und nach Erfahrung geht ist diskutabel.
Kann mir durchaus Vorgesetzte vorstellen die da strikte Vorschriften machen und dann jedesmal nachzählen zu müssen wennŽs eng wird macht auch weniger Spaß.

Zu "wie nutze ich Makros": https://forums.autodesk.com/t5/inventor-deutsch/makros-in-inventor-einbinden/td-p/6712888
Davor solltest aber noch die erste Zeile abändern in: Public Sub Test34()
Test34 kannst in einen Namen deiner Wahl abändern.

Generell haben die anderen Autoren aber recht damit, dass die Anzahl der Abhängigkeiten wenig Aussagekraft hat. Da spielen dann andere Faktoren wie adaptive Skizzen, flexible Unterbaugruppen, Referenzen etc. eine entscheidende Rolle.
Ein halbwegs verlässliches Gefühl für die Eigenheiten der DIVA bekommt man erst nach den ersten zwanzig Katastrophen (es können auch mal neunzehn sein)

Gruß

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

---

Hallo Zusammen,

Danke für die vielen Antworten.

Habe einen Bildschirm gezählt und dann markiert und runtergescrollt.

MFG

Florian

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