custom iProperties creation

[Greatwhitenorth]

Hi,

First off, I know very little about iLogic.  I'm looking for an iLogic Rule that will check the custom iProperties for the following names, and if they don't exist, create them. 

MaterialPartNumber

MaterialQty

MaterialUOM

I have tried this rule, but it wipes out existing values:

iProperties.Value("Custom", "MaterialPartNumber") = MaterialPartNumber
iProperties.Value("Custom", "MaterialQty") = MaterialQty
iProperties.Value("Custom", "MaterialUOM") = MaterialUOM

Could someone here show me how this is done?

Thanks in advance.

Bob

[MechMachineMan]

Have you searched the forums and google?

I'm certain there are probably dozens of times this question has been answered on the forums here.

[chandra.shekar.g · Accepted solution]

Hi Stewart,

Please find the following iLogic code to create custom iProperties if it is not existing.

    Dim oDoc As PartDocument
    oDoc = ThisApplication.ActiveDocument        

    Dim oPropSets As PropertySet
    oPropSets = oDoc.PropertySets.Item("Inventor User Defined Properties")

    Dim isPartNumber As Boolean = False
    Dim isQty As Boolean = False
    Dim isUOM As Boolean = False

    For Each oProp As Inventor.Property In oPropSets
        If oProp.DisplayName = "MaterialPartNumber" Then
            isPartNumber = True
        ElseIf oProp.DisplayName = "MaterialQty" Then
            isQty = True
        ElseIf oProp.DisplayName = "MaterialUOM" Then
            isUOM = True
        End If
    Next
	
    If isPartNumber = False Then
	iProperties.Value("Custom", "MaterialPartNumber") = "PartNumber"
    End If 
	
    If isQty = False Then
	iProperties.Value("Custom", "MaterialQty") = "Qty"
    End If
	
    If isUOM = False Then
	iProperties.Value("Custom", "MaterialUOM") = "UOM"
    End If

Please feel free to contact if there is any doubt.

If solves your problem, click on "Accept as solution" / give a "Kudo".

Thanks and regards,

[Greatwhitenorth]

Thanks Chandra! This works perfectly!

Bob