Update iProperty values using Apprentice

Create a new VB.Net project and add a reference to the Inventor interop. Copy the code below into the project and call the function. For a Forms application you can call this when a button is clicked, or from a console application you can call it from the Main function.

Public Sub ApprenticeUpdate()
    ' Declare a variable for Apprentice. 
    Dim invApprentice As New Inventor.ApprenticeServerComponent

    ' Open a document using Apprentice. 
    Dim invDoc As Inventor.ApprenticeServerDocument
    invDoc = invApprentice.Open("C:\Temp\Part1.ipt")

    ' Get the design tracking property set. 
    Dim invDTProperties As Inventor.PropertySet
    invDTProperties = invDoc.PropertySets.Item("Design Tracking Properties")

    ' Edit the values of a couple of properties. 
    invDTProperties.Item("Checked By").Value = "Bob"
    invDTProperties.Item("Date Checked").Value = Now

    ' Save the changes. 
    invDoc.PropertySets.FlushToFile()

    ' Close the document and release all references. 
    invDoc = Nothing
    invApprentice.Close()
    invApprentice = Nothing
End Sub