Code:
Private Sub PartslistToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PartslistToolStripMenuItem.Click Dim oPartsLists As Inventor.PartsLists
Dim oPartsList As Inventor.PartsList
Dim oPLC As Inventor.PartsListColumns
oPartsLists = _invApp.ActiveDocument.ActiveSheet.PartsLists
Dim oPoint As Point2d
oPoint = _invApp.ActiveDocument.ActiveSheet.DrawingViews.Item(1).Center
oPartsLists.Add(_invApp.ActiveDocument.ActiveSheet.DrawingViews.Item(1), oPoint,,,, True)
oPartsList = _invApp.ActiveDocument.ActiveSheet.PartsLists.Item(1)
oPLC = oPartsList.PartsListColumns
oPLC.Add(PropertyTypeEnum.kBaseQuantityPartsListProperty, "test1", , 2, True)
oPLC.Add(PropertyTypeEnum.kBaseUnitPartsListProperty, "test1", , 2, True)
'oPLC.Add(PropertyTypeEnum.kCustomProperty, "3", , 1, True)
oPLC.Add(PropertyTypeEnum.kFilenamePartsListProperty, "test2", , 2, True)
'oPLC.Add(PropertyTypeEnum.kFileProperty, "test3", , 5, True)
oPLC.Add(PropertyTypeEnum.kItemPartsListProperty, "test4", , 3, True)
oPLC.Add(PropertyTypeEnum.kItemQuantityPartsListProperty, "test5", , 2, True)
oPLC.Add(PropertyTypeEnum.kMassPartsListProperty, "test6", , 2, True)
oPLC.Add(PropertyTypeEnum.kMaterialPartsListProperty, "test7", , 2, True)
oPLC.Add(PropertyTypeEnum.kQuantityPartsListProperty, "test8", , 2, True)
oPLC.Add(PropertyTypeEnum.kUnitQuantityPartsListProperty, "test9", , 2, True)
oPLC.Add(PropertyTypeEnum.kVolumePartsListProperty, "asd10", , 2, True)
End Sub