---

Tabelle.JPG

Hallo

Suche Code :
um Werte einer Tabelle zu schreiben
Inventor-Tabelle in einer Zeichnung *.idwt ist vorhanden

Grüße aus Bochum

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

---

Hallo

Ist zwar für eine Teileliste, aber für deine CustomTable ist der Ablauf der gleiche.

Code:

---

Public Sub PartListEdit()
    ' Set a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument
   
    ' Set a reference to the first parts list on the active sheet.
    ' This assumes that a parts list is on the active sheet.
    Dim oPartList As PartsList
    Set oPartList = oDrawDoc.ActiveSheet.PartsLists.Item(1)
   
    ' Iterate through the contents of the parts list.
    Dim i As Long
    For i = 1 To oPartList.PartsListRows.Count
        ' Get the current row.
        Dim oRow As PartsListRow
        Set oRow = oPartList.PartsListRows.Item(i)
       
        ' Iterate through each column in the row.
        Dim j As Long
        For j = 1 To oPartList.PartsListColumns.Count
            ' Get the current cell.
            Dim oCell As PartsListCell
            Set oCell = oRow.Item(j)
           
            ' Check that the column isn't the quantity column.
            If oPartList.PartsListColumns.Item(j).Title  "QTY" Then
                ' Change the current value in the part list.
                oCell.Value = i & "," & j
            End If
        Next
    Next
   
    ' This changes a specific column by name.
    Dim ItemNumber As Long
    ItemNumber = oPartList.PartsListRows.Count
    For i = 1 To oPartList.PartsListRows.Count
        Set oCell = oPartList.PartsListRows.Item(i).Item("ITEM")
        oCell.Value = ItemNumber
        ItemNumber = ItemNumber - 1
    Next
End Sub

---

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

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

---

Hallo,

Ich habe hier noch das VB.NET-Äquivalent zu obenstehendem VBA-Code(hier gleich mit CustomTables):

Code:

---

Dim IVDoc As Inventor._DrawingDocument '= ...
Dim IVPartlist As Inventor.CustomTable
For Each IVPartlist In IVDoc.ActiveSheet.CustomTables
    If IVPartlist.Title = "MyTitle" Then
        Dim Row As Inventor.Row
        For Each Row In IVPartlist.Rows
            For i = 0 To IVPartlist.Columns.Count
                Dim Cell As Inventor.Cell
                Cell = Row.Item(i)
                If Cell.Type = Inventor.ObjectTypeEnum.kBOMQuantityObject Then
                    Cell.Value = 42.ToString
                End If
            Next
        Next
    End If
Next

---

Die Typendeklarationen sind schrägerweise nötig, da Option-Infer die Rückgabetype der IV-COM-Bibliothek nicht zurückzuschreiben vermag.
Vielleicht wäre noch zu sagen, dass ich diese Lösung nicht getestet habe, aber die Syntax sieht doch arg so aus, als müsste es funktionieren.
Ich weiss nicht, ob da überhaupt Bedarf besteht, aber da die Frage im Inventor-.NET-Bereich gestellt wurde, denke ich, ist neben der VBA.Lösung auch eine VB.NET-Variante erwünscht...

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