Imports RevisionManager
Imports System.Runtime.InteropServices
Module Example
Sub Main()
Dim objPropertySets As SolidEdgeFileProperties.PropertySets = Nothing
Dim objProperties As SolidEdgeFileProperties.Properties = Nothing
Dim objProperty As SolidEdgeFileProperties.Property = Nothing
Dim strName As String
Try
' Create a new instance of PropertySets.
objPropertySets = New SolidEdgeFileProperties.PropertySets
objPropertySets.Open("C:\Part1.par", False)
objProperties = objPropertySets.Item("Custom")
objProperty = objProperties.Add("My Custom Property", "My Custom Value")
strName = objProperty.Name
objPropertySets.Save()
objPropertySets.Close()
Catch ex As Exception
' Write any errors to console.
Console.WriteLine(ex.Message)
Finally
' Release COM Objects.
If Not (objProperties Is Nothing) Then
Marshal.ReleaseComObject(objProperties)
objProperties = Nothing
End If
If Not (objPropertySets Is Nothing) Then
Marshal.ReleaseComObject(objPropertySets)
objPropertySets = Nothing
End If
End Try
End Sub
End Module