I would like to create/update an iPart using a function or iLogic, where a column is created from custom properties (e.g., item_name_cz, modificationtext_0, etc.). We work a lot with iParts, and this functionality would greatly simplify our workflow. Ideally, it would also compare whether a value already exists in the table, and if it does, skip it.
Could you please explain in more details what you mean?
Do you mean lining user defined iProperty to iProperty like below?
I somehow put together a code in VBA that creates columns. But if I check it in the table, the columns are new without reference to the properties of the component.
Sub Test_iPart_Table_ver2()
' Connect to Inventor
Dim inventorApp As Object
On Error Resume Next
Set inventorApp = GetObject(, "Inventor.Application")
On Error GoTo 0
' If unable to connect to Inventor
If inventorApp Is Nothing Then
MsgBox "Cannot connect to Inventor"
Exit Sub
End If
' Get the active document (assuming it's an iPart factory)
Dim oDoc As Object
Set oDoc = inventorApp.ActiveDocument
' Verify if the document is an iPart factory
If oDoc.ComponentDefinition.iPartFactory Is Nothing Then
MsgBox "This document is not an iPart factory."
Exit Sub
End If
' Get the iPart factory
Dim oFactory As Object
Set oFactory = oDoc.ComponentDefinition.iPartFactory
' Start the Excel application in the background (invisible)
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Visible = False ' Excel runs in the background, not visible
' Define workbook and worksheet
Dim xlWorkbook As Excel.Workbook
Dim xlWorksheet As Excel.WorkSheet
Set xlWorksheet = oFactory.ExcelWorkSheet ' Get the Excel worksheet from iPart
' Get Custom iProperties
Dim oPropSets As PropertySets
Set oPropSets = oDoc.PropertySets
Dim oCustomProps As PropertySet
Set oCustomProps = oPropSets.Item("Inventor User Defined Properties")
' Get values from Custom iProperties
Dim item_name_cz As String
Dim modificationtext_0 As String
Dim add_titleblockinfo As String
On Error Resume Next ' Error protection
item_name_cz = oCustomProps.Item("item_name_cz").Value
modificationtext_0 = oCustomProps.Item("modificationtext_0").Value
add_titleblockinfo = oCustomProps.Item("add_titleblockinfo").Value
On Error GoTo 0 ' Restore normal error handling
' Check and add columns
Dim nextColumn As Integer
' Add column for item_name_cz
If Not ColumnExists("item_name_cz", xlWorksheet) Then
nextColumn = FindFirstFreeColumn(xlWorksheet)
xlWorksheet.Cells(1, nextColumn).Value = "item_name_cz"
xlWorksheet.Cells(2, nextColumn).Value = item_name_cz
Else
MsgBox "Column 'item_name_cz' already exists."
End If
' Add column for modificationtext_0
If Not ColumnExists("modificationtext_0", xlWorksheet) Then
nextColumn = FindFirstFreeColumn(xlWorksheet)
xlWorksheet.Cells(1, nextColumn).Value = "modificationtext_0"
xlWorksheet.Cells(2, nextColumn).Value = modificationtext_0
Else
MsgBox "Column 'modificationtext_0' already exists."
End If
' Add column for add_titleblockinfo
If Not ColumnExists("add_titleblockinfo", xlWorksheet) Then
nextColumn = FindFirstFreeColumn(xlWorksheet)
xlWorksheet.Cells(1, nextColumn).Value = "add_titleblockinfo"
xlWorksheet.Cells(2, nextColumn).Value = add_titleblockinfo
Else
MsgBox "Column 'add_titleblockinfo' already exists."
End If
' Get reference to workbook
Set xlWorkbook = xlWorksheet.Parent
' Save and close workbook
xlWorkbook.Save
xlWorkbook.Close
' Quit Excel application
xlApp.Quit
Set xlApp = Nothing
End Sub
' Function to check if a column exists
Function ColumnExists(columnName As String, xlWorksheet As Excel.WorkSheet) As Boolean
Dim cell As Excel.Range
For Each cell In xlWorksheet.Rows(1).Cells
If cell.Value = columnName Then
ColumnExists = True
Exit Function
End If
Next
ColumnExists = False
End Function
' Find the first free column
Function FindFirstFreeColumn(xlWorksheet As Excel.WorkSheet) As Integer
Dim cell As Excel.Range
For Each cell In xlWorksheet.Rows(1).Cells
If IsEmpty(cell.Value) Then
FindFirstFreeColumn = cell.Column
Exit Function
End If
Next
' If no free column exists, add a new one at the end
FindFirstFreeColumn = xlWorksheet.Cells(1, xlWorksheet.Columns.Count).End(xlToLeft).Column + 1
End Function
manually added values (there are duplicates)
your column name is incorrect, try this:
"item_name_cz [Inventor User Defined Properties]"
"modificationtext_0 [Inventor User Defined Properties]"
"add_titleblockinfo[Inventor User Defined Properties]"
I also don't understand why you're adding column name to first and second row?
xlWorksheet.Cells(1, nextColumn).Value = "add_titleblockinfo"
xlWorksheet.Cells(2, nextColumn).Value = add_titleblockinfo
??
this is how my table looks before and after running code:
before
after
