Hallo Vollzeit- und Hobby Programmierer,
derzeit wage ich mich an die Teileliste in einer Inventor Zeichnung.
Sowohl mein Addin als auch der Zugriff von extern (Plugin) funktionieren.
Ich möchte eine Teileliste, der ersten Baugruppenansicht auf dem aktiven Blatt einfügen und entsprechende Spalten hinzufügen.
Die Teileliste wird eingefügt und bereits mit den entsprechenden Spalten gefüllt.
Leider bekomme ich bei Spalten mit dem PropertyType = kCustomProperty und Spalten mit PropertyType = kFileProperty Fehlermeldungen.
Ich denke, es liegt daran, das es für kFileProperty und kCustomProperty mehrere Einträge gibt (Firma, Bestellungsdatum, Autor,...).
Hat jemand einen Tipp, wie ich diese unterscheiden und der Teileliste hinzufügen kann.
Folgenden Testcode verwende ich bislang:
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
Hat jemand eine Idee, wie ich die Benutzerdefinierten Iproperties Spalten und die kFileProperty Spalten der Teileliste hinzufügen kann.
Ich freue mich auf eine lebhafte Diskussion
Cheers Flo
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP