---

Hallo Gemeinde,

ich habe schon ausgiebig die Suchfunktion bemüht.
Ich benötige die Möglichkeit, mit einem Klick alle Komponenten und Unterkomponenten, also auch alle Bauteile in Unterbaugruppen, an ihrer aktuellen Position zu fixieren.
Einige Einträge habe ich im Forum gefunden, aber diese sind teilweise von 2007 oder älter und die Funktionen ergeben Fehlermeldungen.
Hat da vielleicht jemand ein aktuell funktionierendes iLogic?

Danke vorab.
Gruß
eddie

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

---

Diesen Beitrag hast Du gefunden?

https://ww3.cad.de/foren/ubb/Forum258/HTML/001143.shtml

Da habe ich ein Makro eingestellt, das alle Komponenten fixiert. Allerdings ist das schon einige Jahre her. Funktioniert das heute nicht mehr? Ich arbeite derzeit mit SolidWorks, und kann es nicht testen.

------------------
Cheers,
    Jochen

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

---

Hallo,
habe ich gefunden. Deins geht ja nicht in die Struktur und fixiert auch Bauteile in Unterbaugruppen. Dazu muss man ja  die Elemente anwählen. Allein das Anwählen würde bei mir eine Stunde dauern, da die Baugruppe mit Unterbaugruppen, Bauteilen etc. sehr tief verschachtelt ist. Ich möchte gern die Elemente nicht auf den Ursprung verschoben haben, sondern an Ort und Stelle fixiert haben, ohne einzelne Elemente vorher anwählen zu müssen.
Gibt es das vielleicht schon?

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

---

Weiter unten kamen ja noch verbesserte Versionen. Auch das auf den Ursprung verschieben ist schnell raus gestrichen.

Ich bin mir ehrlich gesagt gar nicht sicher, ob Du über Baugruppengrenzen hinweg fixieren KANNST. Oder ob Du da nicht jede BG öffnen und dort fixieren mußt. Aber warum willst Du überhaupt in den UBGs alles fixieren? Dazu hast Du diese doch, damit die Abhängigkeitsrechnerei eben aus der Haupt-BG draußen bleibt.

------------------
Cheers,
    Jochen

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

---

Welchen Teil muss ich den raus streichen, damit das auf den Ursprung verschieben raus ist?

Ich habe ein riesiges Anlagenlayout als STP-Datei vom Kunden bekommen, indem ich weiter arbeite, nachdem ich es in Inventor eingeladen habe. Dort sind aber Unmengen an Baugruppen und Unterbaugruppen inkl. Bauteilen enthalten. Ich möchte gern alle Elemente in allen Unterbaugruppen, alle Unterbaugruppen selbst u. alle Bauteile fixieren um den Ursprungszustand einzufrieren ohne die Elemente händisch auswählen zu müssen und ohne in die UBG separat reingehen zu müssen. Also eigentlich einmal alles fixieren an Ort und Stelle. :-)

Sind das keine iLogic Scripte?
Bekomme Fehler das es mit sub main() beginnen muss.
Wo muss ich denn den Code einfügen?

[Diese Nachricht wurde von eddiefelson am 17. Mai. 2021 editiert.]

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

---

du kannst die Baugruppe auch als Bauteil importieren und damit sogar auf Referenz setzen und einen neuen Stand reinladen, wenn der Kunde was neues schickt.

Wenn du das nicht willst, dann musst Dir die das programmieren und man muss dann rekusiv jeden Baugruppe rein und alles fixieren.

herzlich Sascha

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

---

Hallo Sascha,

danke für den Hinweis.
Ich muss nach dem Import Un-/Sichtbarkeiten schalten können und einzelne Bauteile löschen / bearbeiten können.

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

---

Hallo

Probier mal diese iLogic Variante

Code:

---

Sub Main()

Dim oAssDoc As AssemblyDocument = ThisDoc.Document
Dim oAssCompDef As AssemblyComponentDefinition = oAssDoc.ComponentDefinition
Dim oOccs As ComponentOccurrences = oAssCompDef.Occurrences

Call ProcessOccs(oOccs)
End Sub

Sub ProcessOccs(ByVal oOccs As ComponentOccurrences)
Dim oOcc As ComponentOccurrence
For Each oOcc In oOccs
oOcc.Grounded = True
        If oOcc.SubOccurrences.Count > 0 Then
            Call ProcessOccs(oOcc.SubOccurrences)
        End If
    Next
End Sub

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Perfekt, funktioniert.
Danke danke danke.

Ü's sind unterwegs

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