Find iProperty

[johnster100]

Hi,

i'm reading in iproperty names and values from a spreadsheet. 

My issue is when i read them in i don't know which propertyset they belong to.

What is the best way to find an iproperty when you don't know it's property set?

thanks,

John

[Curtis_Waguespack]

Hi @johnster100 

You could use something like this, where sPropertyName contains the iProperty name that you read in from Excel.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

sPropertyName = "Part Number" 'this is the varaible read in from Excel

' Get the active document.
Dim invDoc As Document
invDoc = ThisApplication.ActiveDocument

For Each oSet In invDoc.PropertySets
	For Each oProperty In oSet
		If oProperty.name = sPropertyName Then			
			sSet = oSet.name
			Exit For
		End If
	Next
Next

'display the property set name
MsgBox(sSet)

[WCrihfield]

You might find these links helpful too.

https://knowledge.autodesk.com/search-result/caas/simplecontent/content/write-all-available-info-abo... 

https://knowledge.autodesk.com/search-result/caas/simplecontent/content/list-all-iproperties-and-how... 

[J-Camper]

Here is an excel file, attached, with the iProperty sets and their iProperties.

[Curtis_Waguespack]

Hi everyone,

I might be misunderstanding the request, but I interpreted it to be asking for how to determine the property set, so that the Iproperty value can be set with the information pulled from excel, that information being an iproperty name and a corresponding value... 

So with that in mind, I'll add this example too.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

'pretend this info is being pulled from Excel
sPropertyName = "Part Number" 
sPropertyValue = "777-7777-009" 


'this uses the above info to set the value for property
For Each oSet In ThisApplication.ActiveDocument.PropertySets
	For Each oProperty In oSet
		If oProperty.name = sPropertyName Then	
			'set the property value 
			oSet.Item(sPropertyName).Value = sPropertyValue
			Exit For
		End If
	Next
Next

[johnster100]

Hi Guys,

thanks for your replies. The above suggestions worked 🙂

but they were quite slow, I found it quicker just to use a series of try and catch loops.

thanks again,

John

[JelteDeJong · Accepted solution]

just an other solution (an improved version of the code of @Curtis_Waguespack ) Searching for the correct set can take time, but you can look up all combinations of set/iProperties and save it in a dictonary. Then you can use that dictonary for looking up the needed set for a property. that should be faster. see cod below.

Public Class ThisRule
    Dim setsDictonary As Dictionary(Of String, String)
    Sub Main()

        ' setup/create a dictonary wit property names that is used to look up the set names
        setsDictonary = New Dictionary(Of String, String)
        For Each oSet As PropertySet In ThisDoc.Document.PropertySets
            For Each oProperty As [Property] In oSet
                setsDictonary.Add(oProperty.Name, oSet.Name)
            Next
        Next


        'pretend this info is being pulled from Excel
        Dim sPropertyName = "Part Number"
        Dim sPropertyValue = "777-7777-011"

        writeIPropertyValue(sPropertyName, sPropertyValue)

    End Sub
    Private Sub writeIPropertyValue(propertyName As String, value As String)
        Try
            'write iproperty values using the dictonary
            Dim oSet As PropertySet = ThisDoc.Document.PropertySets.Item(setsDictonary(propertyName))
            oSet.Item(propertyName).Value = value
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class