| | | 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: Liste mit Gewicht erstellen (690 / mal gelesen)
|
GRM Mitglied CAD/PDM-Administrator / Konstrukteur Maschinenbau
Beiträge: 282 Registriert: 02.06.2005 HP Z440, Xeon, 32 GB RAM, Quadro M4000; Windows7-64; AIP2020; Vault Professional 2020
|
erstellt am: 10. Feb. 2020 09:14 <-- editieren / zitieren --> Unities abgeben:
Hallo! wir würden gerne für Alt-Daten das Gewicht im ERP aktualisieren (wurde früher oft nicht eingetragen) Im Vault gibt's für die Alt-Daten noch keinen Gewichtsinformation. Wie kann man aus einem lokalem Ordner mit ipt und iam, eine Liste mit Modellname und dem jeweiligem Gewicht herausfahren? Hat dazu jemand eine Idee? ------------------ Gruß Markus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RolandD Mitglied
Beiträge: 559 Registriert: 07.01.2005 i7-9700k 32GB DDR4-RAM Nvidia RTX 2060 SSD 970 m.2 Win10-64 (21H2) AIP 2020.3 Dell U3417W
|
erstellt am: 10. Feb. 2020 12:32 <-- editieren / zitieren --> Unities abgeben: Nur für GRM
Hallo Markus, ich würde eine IAM erstellen. - Alle gewünschten Dateien aus dem Explorer in die IAM ziehen - vielleicht vorsichtshalber Verwalten - neu erstellen und Masse aktualisieren - Stückliste der IAM öffnen, Masse und Dateiname einblenden - Nach Excel exportieren ------------------ Gruß Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Meierjo Mitglied
Beiträge: 432 Registriert: 20.08.2003 Windows 10 Prof 64 Bit Inventor Prof 2023 Vault Basic 2023
|
erstellt am: 10. Feb. 2020 12:57 <-- editieren / zitieren --> Unities abgeben: Nur für GRM
Hallo Falls du mit VBA was anfangen kannst, ich habe hier mal ein Makro geschrieben, welches das Gewicht in eine Excel exportiert. Code: Public Sub Gew_abrufen() Dim AppXLS As Excel.Application Dim wb As Excel.Workbook Dim Ws As Excel.WorkSheet Dim oDoc As Document Dim Btnr As String Dim Rev As String Dim ArtikelNr As String Dim Titel As String Dim Masse As String Set AppXLS = CreateObject("Excel.Application") Set wb = AppXLS.Workbooks.Add Set Ws = wb.Worksheets.Item(1) 'Überschriften in Excel-Tabelle setzen Ws.Range("A1").Value = "Bauteil-Nr" Ws.Range("B1").Value = "Revision" Ws.Range("C1").Value = "Artikel-Nr" Ws.Range("D1").Value = "Beschreibung" Ws.Range("E1").Value = "Gewicht" Ws.Range("A1:E1").Font.Underline = xlUnderlineStyleSingle Ws.Range("A1:E1").Font.Bold = True Ws.Range("A:E").HorizontalAlignment = xlCenter Ws.Range("A1").ColumnWidth = 15 Ws.Range("B1:C1").ColumnWidth = 10 Ws.Range("D1").ColumnWidth = 30 Ws.Range("E1").ColumnWidth = 10 With Ws.PageSetup .CenterHeader = ThisApplication.ActiveDocument.DisplayName .LeftFooter = "Seite &P von &N" .RightFooter = Now() End With i = 2 Set oDoc = ThisApplication.ActiveDocument 'wenn kein Zusammenbau, Sub verlassen If oDoc.DocumentType = kAssemblyDocumentObject Then GoTo Zusammenbau If oDoc.DocumentType = kPartDocumentObject Then GoTo Einzelteil 'MsgBox "Dieser Befehl kann nur aus einem I-Assembly oder I-Part ausgeführt werden!!", vbExclamation, "@Copyright by Urs Meier" Exit Sub Zusammenbau: If Not oDoc.ComponentDefinition.IsiAssemblyFactory Then MsgBox "Dieser Befehl kann nur aus einem I-Assembly oder I-Part ausgeführt werden!!", vbExclamation, "@Copyright by Urs Meier" Exit Sub End If For Each row In oDoc.ComponentDefinition.iAssemblyFactory.TableRows oDoc.ComponentDefinition.iAssemblyFactory.DefaultRow = row 'oDoc.Update i = i + 1 Ws.Range("A" & i).Value = oDoc.PropertySets("Design Tracking Properties").Item("Part Number").Value Ws.Range("B" & i).Value = oDoc.PropertySets("Inventor Summary Information").Item("Revision Number").Value Ws.Range("C" & i).Value = oDoc.PropertySets("Inventor User Defined Properties").Item("Artikelnr.").Value Ws.Range("D" & i).Value = oDoc.PropertySets("Inventor Summary Information").Item("Title").Value Ws.Range("E" & i).Value = Format(ThisApplication.ActiveDocument.ComponentDefinition.MassProperties.Mass, "###.###" & " Kg") Next 'Debug.Print Prompt AppXLS.Visible = True Exit Sub Einzelteil: If Not oDoc.ComponentDefinition.IsiPartFactory Then MsgBox "Dieser Befehl kann nur aus einem I-Assembly oder I-Part ausgeführt werden!!", vbExclamation, "@Copyright by Urs Meier" Exit Sub End If For Each row In oDoc.ComponentDefinition.iPartFactory.TableRows oDoc.ComponentDefinition.iPartFactory.DefaultRow = row 'oDoc.Update i = i + 1 Ws.Range("A" & i).Value = oDoc.PropertySets("Design Tracking Properties").Item("Part Number").Value Ws.Range("B" & i).Value = oDoc.PropertySets("Inventor Summary Information").Item("Revision Number").Value Ws.Range("C" & i).Value = oDoc.PropertySets("Inventor User Defined Properties").Item("Artikelnr.").Value Ws.Range("D" & i).Value = oDoc.PropertySets("Inventor Summary Information").Item("Title").Value Ws.Range("E" & i).Value = Format(ThisApplication.ActiveDocument.ComponentDefinition.MassProperties.Mass, "###.###" & " Kg") Next 'Debug.Print Prompt AppXLS.Visible = True Exit Sub End Sub
Die benutzerdefinierten iPorperties ArtikelNr musst du wahrscheinlich auskommentieren Gruss [Diese Nachricht wurde von Meierjo am 10. Feb. 2020 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|