custom properties

[tegstette]

I have an ilogic rule that lists all my custom properties - but it only lists the propertynames.

How can I get it to also show/add the value of the properties, something like this:

Propertyname = Propertyvalue

Dim oDoc As Document = ThisApplication.ActiveDocument
Dim Pros As New ArrayList
Dim item As String
	
		Dim oPropsets As PropertySets
		oPropsets = oDoc.PropertySets
		Dim oPropSet As PropertySet
		oPropSet = oPropsets.Item("Inventor User Defined Properties")
		Dim oPro As Inventor.Property
			For Each oPro In oPropSet
				Dim Found As Boolean = False
				For Each item In Pros
				If oPro.Name = item Then Found = True
			Next
		If Found = False Then
		Pros.Add(oPro.Name)
		End If
	
Next
Dim AllPros As String = "List of all used iProperties:"
	For Each item In Pros
	AllPros = AllPros & vbLf & item
	Next
MsgBox(AllPros)

[Owner2229 · Accepted solution]

Hi, how about this:

'...
Pros.Add(oPro.Name & " - " & oPro.Expression)
'...

[tegstette]

Perfect! Thank you