---

Hallo zusammen,

ich habe ein kleines Makro, welches aus einem Formular Werter zusammensetzt und dann in die iProperty "Kd.Zeich.Nr" eintragen soll. Das Makro soll ausgehend von einer Baugruppe alle Teile und Unterbaugruppen durchgehen und diesen Wert schreiben. Das Durchlaufen sowie das erstellen des Wertes funktioniert einwandfrei. Allerdings will Inventor einfach den Wert nicht in die iProperty schreiben 

Hier der Code

Code:

---

Sub Zeichnungsnummer_setzen()
    Dim oDocument As Document
    Dim Hersteller As String
    Dim PropSet As PropertySet
    Dim Counter As String
    Dim NewValue As String
    Dim ItemDoc As Object
   
   
Set oDocument = ThisApplication.ActiveDocument
 
    For Each ItemDoc In oDocument.AllReferencedDocuments
      With ItemDoc
        Set PropSet = .PropertySets.Item("Inventor User Defined Properties")
        Counter = CStr(StartSetDrwNr.TB_StartValue)
        Counter = Format(Counter, "000")
        'Schauen ob Hersteller hinterlegt ist, wenn nein dann soll Nummer vergeben werden
       
        If PropSet.Item("Hersteller").Value = "" Then
        Select Case .DocumentType 'entscheiden ob Baugruppe oder ET
            Case Is = kPartDocumentObject 'Einzelteil -> DET
                NewValue = StartSetDrwNr.TB_DrwNo & "-DET-" & Counter & "-" & StartSetDrwNr.TB_Ver
                Call UpdateCustomiProperty(ItemDoc, "Kd.Zeichn.Nr.", NewValue)
               
            Case Is = kAssemblyDocumentObject 'Baugruppe -> SUB
                NewValue = StartSetDrwNr.TB_DrwNo & "-SUB-" & Counter & "-" & StartSetDrwNr.TB_Ver
                Call UpdateCustomiProperty(ItemDoc, "Kd.Zeichn.Nr.", NewValue)
               
        End Select
        StartSetDrwNr.TB_StartValue = StartSetDrwNr.TB_StartValue + 1
        Else
        End If
    End With
    Next
End Sub

Public Sub UpdateCustomiProperty(ByRef Doc As Document, ByRef PropertyName As String, ByRef PropertyValue As Variant)
    ' Get the custom property set.
    Dim customPropSet As PropertySet
    Set customPropSet = Doc.PropertySets.Item("Inventor User Defined Properties")
       
    ' Get the existing property, if it exists.
    Dim prop As Property
    On Error Resume Next
    Set prop = customPropSet.Item(PropertyName)

    ' Check to see if the above call failed.  If it failed
    ' then the property doesn't exist.
    If Err.Number <> 0 Then
    ' Failed to get the existing property so create a new one.
    Set prop = customPropSet.Add(PropertyValue, PropertyName)
    Else
    ' Change the value of the existing property.
   
    prop.Value = PropertyValue 'Hier wird der Wert NICHT übertragen
    End If
End Sub

---

Das Formular hat 3 Felder: tb_startvalue, tb_drwno, tb_ver

Danke für eure Hilfe 

Patrice

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

---

Hallo Patrice,

Property.Value erwartet String. NewValue ist als String deklariert, wird aber später (PropertyValue) in Variant umgewandelt. So sollte es funktionieren:

Code:

---

Public Sub UpdateCustomiProperty(ByRef Doc As Document, ByRef PropertyName As String, ByRef PropertyValue As String)

---

------------------
alex

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