| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Auf dem Weg zur digitalen Auftragsmappe. , ein Anwenderbericht
|
Autor
|
Thema: Stücklisten Sortierung Kategorien (622 mal gelesen)
|
Bonny Pfotenpuff Mitglied Schlosser
Beiträge: 99 Registriert: 06.06.2006 Intel Core i9-9900K 8x 3,6GHz MSI GeForce GTX 1060 6GT Windows 10 Professionell Inventor 2019 Office 2016
|
erstellt am: 05. Sep. 2023 07:37 <-- editieren / zitieren --> Unities abgeben:
Moin zusammen, ich muss jetzt doch mal die Frage stellen, da mich diese Sache doch mittlerweile schon länger stört. Ich habe mir für unsere Stücklisten ein System über eigens erstellte Kategorien erdacht, um eine Sortierung in meinem Sinne zu ermöglichen. Das funktioniert ganz gut, auch wenn der Aufwand etwas höher ist. Was mir meines Wissens möglich war, habe ich bereits im Stil-Editor und in den Templates voreingestellt, 2 Sachen konnte ich aber nicht automatisieren. Einmal, dass mir in der Bauteilliste meine von mir gewünschte Sortierung gleich als Voreinstellung mitbringt, damit ich nicht jedes Mal bei einer neuen Stückliste erst wieder die 3 Kategorien manuell auswählen muss. Das andere ist, ich muss den Haken bei „Automatisches Sortieren beim Aktualisieren“ auch jedes Mal setzen. Das funktioniert ja dann soweit, aber warum werden dann die Positionen dann nicht auch gleich automatisch wieder sortiert, sondern man muss auch dies immer wieder bei Änderungen manuell über den Button manuell machen. Lässt sich das irgendwo voreinstellen oder muss ich damit leben ? Danke Vorab und Grüßle. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
OibelTroibel Mitglied Konstrukteur
Beiträge: 602 Registriert: 18.04.2014 ACAD/Inventor 2018-21
|
erstellt am: 05. Sep. 2023 11:53 <-- editieren / zitieren --> Unities abgeben: Nur für Bonny Pfotenpuff
|
Bonny Pfotenpuff Mitglied Schlosser
Beiträge: 99 Registriert: 06.06.2006 Intel Core i9-9900K 8x 3,6GHz MSI GeForce GTX 1060 6GT Windows 10 Professionell Inventor 2019 Office 2016
|
erstellt am: 05. Sep. 2023 13:28 <-- editieren / zitieren --> Unities abgeben:
Das funktioniert leider nicht, da hier keine Möglichkeiten zum Einstellen im Stil-Editor vorhanden sind. Es gibt hier ein „Gruppieren“ aber kein „Sortieren“. Und wenn man in der idw- Template eine Stückliste dahin gehend bearbeiten will, muss man auch auf eine Baugruppe verweisen, damit man überhaupt erst eine Stückliste bearbeiten kann. Wenn man dann rückgehend die BG wieder löscht um ein leeres Template zu haben, gehen anscheinend auch die gemachten Änderungen in der Stückliste wieder verloren. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
OibelTroibel Mitglied Konstrukteur
Beiträge: 602 Registriert: 18.04.2014 ACAD/Inventor 2018-21
|
erstellt am: 05. Sep. 2023 13:37 <-- editieren / zitieren --> Unities abgeben: Nur für Bonny Pfotenpuff
Du hast recht, das automatische Sortieren in der Bauteilliste wird wieder gelöscht, sobald die temporäre Baugruppe gelöscht wird und kann somit nicht in eine leere Vorlage gespeichert werden. Sorry für die Falschangabe [Diese Nachricht wurde von OibelTroibel am 05. Sep. 2023 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Albert Schweizer Mitglied Designer
Beiträge: 5 Registriert: 08.09.2023
|
erstellt am: 08. Sep. 2023 17:03 <-- editieren / zitieren --> Unities abgeben: Nur für Bonny Pfotenpuff
|
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2580 Registriert: 15.11.2006 Windows 10 x64, AIP 2020-2025
|
erstellt am: 12. Sep. 2023 11:00 <-- editieren / zitieren --> Unities abgeben: Nur für Bonny Pfotenpuff
Moin Komplett automatisieren geht so einfach nicht, aber man könnte sich ein kleines Makro schreiben und wenigstens die nachträglichen Anpassungen vereinfachen. Code:
Private Sub PartsListSort()Dim oApp As Inventor.Application Set oApp = ThisApplication Dim oDrawDoc As DrawingDocument Set oDrawDoc = oApp.ActiveDocument Dim oSheet As Sheet Set oSheet = oDrawDoc.ActiveSheet If oSheet.PartsLists.count = 0 Then Call MsgBox("Fehler bei Aktualisierung der Teileliste. Es wurde keine Teileliste auf dem aktivem Blatt gefunden.", vbCritical, "Makro PartsListSort") Exit Sub End If Dim oPartsList As PartsList Set oPartsList = oSheet.PartsLists(1) On Error Resume Next Call oPartsList.Sort2("KATEGORIE", True, "KOMMENTARE", True, "BESCHREIBUNG", True, True, True) If Err.Number <> 0 Then Call MsgBox("Fehler bei Aktualisierung der Teileliste. Fehlt eine Spalte?", vbCritical, "Makro PartsListSort") End If End Sub
------------------ MfG Ralf RKW Solutions GmbH www.RKW-Solutions.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |