| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Stückliste in einer Zeichnung neu nummerieren (528 mal gelesen)
|
Big-Daddy Mitglied Konstrukteur
Beiträge: 51 Registriert: 08.04.2015 IV 2022 Prof.
|
erstellt am: 19. Mai. 2022 08:48 <-- editieren / zitieren --> Unities abgeben:
|
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2166 Registriert: 15.11.2006 Windows 10 x64, AIP 2022
|
erstellt am: 19. Mai. 2022 10:50 <-- editieren / zitieren --> Unities abgeben: Nur für Big-Daddy
Hallo Reden wir von der Teileliste oder wirklich der Zeichnungsstückliste? Die Zeichnungsstückliste kann man mW nicht neu nummerieren, dazu muss man in die entsprechende Stücklistenansicht der Baugruppe. In der Teileliste (PartsList) und der Stücklistenansicht (BOMView) der Baugruppe gibt's dafür die Renumber Methode. ------------------ MfG Ralf
RKW Solutions GmbH www.RKW-Solutions.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Big-Daddy Mitglied Konstrukteur
Beiträge: 51 Registriert: 08.04.2015 IV 2022 Prof.
|
erstellt am: 19. Mai. 2022 13:13 <-- editieren / zitieren --> Unities abgeben:
|
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2166 Registriert: 15.11.2006 Windows 10 x64, AIP 2022
|
erstellt am: 19. Mai. 2022 13:45 <-- editieren / zitieren --> Unities abgeben: Nur für Big-Daddy
Hallo Also die Bauteilliste. Als iLogic für alle Teilelisten des aktiven Blattes:
Code:
Dim oSheet As Sheet = ThisDrawing.Document.ActiveSheet Dim oPartsList As PartsList For Each oPartsList In oSheet.PartsLists oPartsList.Renumber Next
Wenn zusätzlich noch durch alle Blätter gewandert werden soll:
Code:
Dim oCurrSheet As Sheet = ThisDrawing.Document.ActiveSheet Dim oSheet As Sheet For Each oSheet In ThisDrawing.Document.Sheets oSheet.Activate Dim oPartsList As PartsList For Each oPartsList In oSheet.PartsLists oPartsList.Renumber Next NextoCurrSheet.Activate
------------------ MfG Ralf RKW Solutions GmbH www.RKW-Solutions.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Big-Daddy Mitglied Konstrukteur
Beiträge: 51 Registriert: 08.04.2015 IV 2022 Prof.
|
erstellt am: 19. Mai. 2022 14:58 <-- editieren / zitieren --> Unities abgeben:
|
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2166 Registriert: 15.11.2006 Windows 10 x64, AIP 2022
|
erstellt am: 19. Mai. 2022 15:43 <-- editieren / zitieren --> Unities abgeben: Nur für Big-Daddy
Hallo Erst Sortieren, dann nummerieren vermute ich. Probier mal:
Code:
Dim oCurrSheet As Sheet = ThisDrawing.Document.ActiveSheet Dim oSheet As Sheet For Each oSheet In ThisDrawing.Document.Sheets oSheet.Activate Dim oPartsList As PartsList For Each oPartsList In oSheet.PartsLists Try oPartsList.Sort2("Bezeichnung", PrimaryColumnAscending := True, SortByString := True, AutoSortOnUpdate := True) Catch MsgBox("Sortieren fehlgeschlagen. Fehlt Spalte 'Bezeichnung' ?", MsgBoxStyle.Critical, "iLogic") End Try oPartsList.Renumber Next NextoCurrSheet.Activate
------------------ MfG Ralf RKW Solutions GmbH www.RKW-Solutions.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Big-Daddy Mitglied Konstrukteur
Beiträge: 51 Registriert: 08.04.2015 IV 2022 Prof.
|
erstellt am: 20. Mai. 2022 07:54 <-- editieren / zitieren --> Unities abgeben:
|