Solid Edge Getting custom file property value by API

Companies often add custom file properties their Solid Edge files e.g. "Manufacturer".  How to get that custom file property value through the Solid Edge API?

Solution

Here is a quick snippet of code to get the custom file property value by API.

This is sample code, without any error checking, showing the value of custom property "Manufacturer" in a message box:

Dim objApp As SolidEdgeFramework.Application
Set objApp = GetObject(, "SolidEdge.Application")

MsgBox (objApp.ActiveDocument.Properties.Item("Custom").Item("Manufacturer").Value)

Set objApp = Nothing

Hardware/Software Configuration

Platform: INTL64
OS: windows
OS Version: 1064
Product: SOLID_EDGE
Application: AUTOMATION
Version: V221.0
Function: CUSTOM_SAMPLES

Ref: 002-8522449