---

Stuckliste.JPG

Hallo,
ich habe folgendes Problem:

Ich möchte mit ilogic in der Baugruppe den Benutzerdefinierten iproperty (Position) in das Objekt eintragen.
Bei Bauteilen, welche einen Schreibschutz haben und bei Bauteilen wo die Position leer ist, soll die ursprüngliche Nummerierung bestehen bleiben.
Bei Blechteilen funktioniert es aber bei Normbauteilen nicht?
Er gibt aber hierbei immer diese Fehlermeldung aus:
(Unbekannter Fehler (Ausnahme von HRESULT: 0x80004005 (E_FAIL)))

Kann mir jemand dabei helfen wäre echt super.

Hier ist mein Code:

Sub Main()
    Dim oapp As Inventor.Application
    oapp = ThisApplication
    Dim oDoc As Inventor.AssemblyDocument
    oDoc = oapp.ActiveDocument
    Dim oBOM As Inventor.BOM
    Dim vrtSelectedItem As String
    vrtSelectedItem = oDoc.FullFileName
    oDoc = oapp.Documents.Open(vrtSelectedItem, False)
    oBOM = oDoc.ComponentDefinition.BOM
 
 
    FirstLevelOnly = False
    If FirstLevelOnly Then
        oBOM.StructuredViewFirstLevelOnly = False
    Else
        oBOM.StructuredViewFirstLevelOnly = False
  End If
         
   
    Dim oBOMView As BOMView
    If (oBOM.StructuredViewEnabled = True) Then   
  oBOMView = oBOM.BOMViews(2)
  oBOM.PartsOnlyViewEnabled = False
    End If
 
    If (oBOM.PartsOnlyViewEnabled = True) Then
    oBOMView = oBOM.BOMViews(3)
    oBOM.StructuredViewEnabled = False
    End If
       
    Dim i As Long
       
    If Level > maxlevel Then
        maxlevel = Level
    End If
    For i = 1 To oBOMView.BOMRows.Count
        Dim oRow As BOMRow
        oRow = oBOMView.BOMRows.ITEM(i)
        Dim oCompDef As ComponentDefinition
        oCompDef = oRow.ComponentDefinitions.ITEM(1)
oRow.ItemNumber = oCompDef.Document.PropertySets.ITEM("Inventor User Defined Properties").ITEM("Item").Value

    Next

    oBOMRow = Nothing
    oBOM = Nothing
    oDoc = Nothing
    oapp = Nothing

End Sub

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

---

Sorry das ist der falsch Code!!!

Hier ist der richtige Code:

Sub Main()
    Dim oapp As Inventor.Application
    oapp = ThisApplication
    Dim oDoc As Inventor.AssemblyDocument
    oDoc = oapp.ActiveDocument
    Dim oBOM As Inventor.BOM
    Dim vrtSelectedItem As String
    vrtSelectedItem = oDoc.FullFileName
    oDoc = oapp.Documents.Open(vrtSelectedItem, False)
    oBOM = oDoc.ComponentDefinition.BOM
 
 
    FirstLevelOnly = False
    If FirstLevelOnly Then
        oBOM.StructuredViewFirstLevelOnly = False
    Else
        oBOM.StructuredViewFirstLevelOnly = False
  End If
         
   
    Dim oBOMView As BOMView
    If (oBOM.StructuredViewEnabled = True) Then   
  oBOMView = oBOM.BOMViews(2)
  oBOM.PartsOnlyViewEnabled = False
    End If
 
    If (oBOM.PartsOnlyViewEnabled = True) Then
    oBOMView = oBOM.BOMViews(3)
    oBOM.StructuredViewEnabled = False
    End If
       
    Dim i As Long
       
    If Level > maxlevel Then
        maxlevel = Level
    End If
    For i = 1 To oBOMView.BOMRows.Count
        Dim oRow As BOMRow
        oRow = oBOMView.BOMRows.ITEM(i)
        Dim oCompDef As ComponentDefinition
        oCompDef = oRow.ComponentDefinitions.ITEM(1)
oRow.ItemNumber = oCompDef.Document.PropertySets.ITEM("Inventor User Defined Properties").ITEM("Position").Value

    Next

    oBOMRow = Nothing
    oBOM = Nothing
    oDoc = Nothing
    oapp = Nothing

End Sub

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