Create every possible instance of a Content Center Part

[iogurt1]

For some reasons it would take too long to explain, we want to create every possible instance of a Content Center part. We have a Flange that has different sizes, schedules and materials (see picture). The family table shows that there are 298 possible iterations. Is it possible thru iLogic to create every possible part so we can check them into Vault? 

[iogurt1]

So I guess I just answered my own question and if someone later stumbles upon this, use the following code. Might not be the most efficient way to do it but it works.

Note: It creates the files in the background while the rule is running. And if your family table has less than 99999 rows, there will be an error once all the possible parts have been created so you know it's done.

i = 1
While i < 999999

Dim NewRow As Integer = i

'active assembly s
Dim oMainAsm As AssemblyDocument = ThisDoc.Document
Dim oAsmDef As AssemblyComponentDefinition = oMainAsm.ComponentDefinition

' get the occurrence by its position in the occurrences collection
Dim oOcc As ComponentOccurrence = oAsmDef.Occurrences.Item(1)
Dim oDef As PartComponentDefinition = oOcc.Definition
Dim oDoc As PartDocument = oDef.Document

'reference to the CC properties - oProps
Dim oPropSets As PropertySets = oDoc.PropertySets
Dim oProps As PropertySet = oPropSets.Item("Content Library Component Properties")

' family id
Dim oProp As Inventor.Property = oProps.Item("FamilyId")
Dim FamilyId As String = oProp.Value
'MsgBox("FamilyId: " + FamilyId)

'reference to the ContentFamily
Dim oContentCenter As ContentCenter = ThisApplication.ContentCenter
Dim oFamily As ContentFamily = oContentCenter.GetContentObject("v3#" + FamilyId + "#")  
'MsgBox("Content Family DisplayName:  " + oFamily.DisplayName & vbNewLine & _'        "Rows in Family:  " & oFamily.TableRows.Count )'
''create new member file
Dim ErrorType As MemberManagerErrorsEnum
Dim strContentPartFileName As String
Dim strErrorMessage As String
strContentPartFileName = oFamily.CreateMember(NewRow, ErrorType, strErrorMessage)

i= i+1
End While  

[Jef_E · Accepted solution]

Wow, thats written so expensive.. you do alot of steps 99999 times that are only required once? And get an error to know it's done? Is that a thing now?

I took the liberty to adjust that code a little.. didn't change anything except the loop and added an end message. I guess a For Each oRow As ContentTableRow In oFamily.TableRows would also be possible as loop

        'active assembly s
        Dim oMainAsm As AssemblyDocument = ThisDoc.Document
        Dim oAsmDef As AssemblyComponentDefinition = oMainAsm.ComponentDefinition

        ' get the occurrence by its position in the occurrences collection
        Dim oOcc As ComponentOccurrence = oAsmDef.Occurrences.Item(1)
        Dim oDef As PartComponentDefinition = oOcc.Definition
        Dim oDoc As PartDocument = oDef.Document

        'reference to the CC properties - oProps
        Dim oPropSets As PropertySets = oDoc.PropertySets
        Dim oProps As PropertySet = oPropSets.Item("Content Library Component Properties")

        ' family id
        Dim oProp As Inventor.Property = oProps.Item("FamilyId")
        Dim FamilyId As String = oProp.Value
        'MsgBox("FamilyId: " + FamilyId)

        'reference to the ContentFamily
        Dim oContentCenter As ContentCenter = ThisApplication.ContentCenter
        Dim oFamily As ContentFamily = oContentCenter.GetContentObject("v3#" + FamilyId + "#")
        'MsgBox("Content Family DisplayName:  " + oFamily.DisplayName & vbNewLine & _'        "Rows in Family:  " & oFamily.TableRows.Count )'
        ''create new member file
        Dim ErrorType As MemberManagerErrorsEnum
        Dim strContentPartFileName As String
        Dim strErrorMessage As String

        ' Do a loop here for all the rows.
        For i As Integer = 1 To oFamily.TableRows.Count
            strContentPartFileName = oFamily.CreateMember(i, ErrorType, strErrorMessage)
        Next

        ' Msgbox to alert the process is done.
        MsgBox("All " & oFamily.TableRows.Count & " c/c family items are created.")

[iogurt1]

Thanks for this. Yeah, letting an error show if something is done isn't the best way, glad there's a solution to this 🙂

[AreHoland]

Hi,

thank you for sharing this rule, it saved me a lot of time generating members. I'm not very good with code, but i would very much like this rule to exclude rows in the family that is suppressed, or if part number contains "NA". Anyone got an idea on how to solve this?

Best Regards

Are

[Jef_E]

        'active assembly s
        Dim oMainAsm As AssemblyDocument = ThisDoc.Document
        Dim oAsmDef As AssemblyComponentDefinition = oMainAsm.ComponentDefinition

        ' get the occurrence by its position in the occurrences collection
        Dim oOcc As ComponentOccurrence = oAsmDef.Occurrences.Item(1)
        Dim oDef As PartComponentDefinition = oOcc.Definition
        Dim oDoc As PartDocument = oDef.Document

        'reference to the CC properties - oProps
        Dim oPropSets As PropertySets = oDoc.PropertySets
        Dim oProps As PropertySet = oPropSets.Item("Content Library Component Properties")

        ' family id
        Dim oProp As Inventor.Property = oProps.Item("FamilyId")
        Dim FamilyId As String = oProp.Value
        'MsgBox("FamilyId: " + FamilyId)

        'reference to the ContentFamily
        Dim oContentCenter As ContentCenter = ThisApplication.ContentCenter
        Dim oFamily As ContentFamily = oContentCenter.GetContentObject("v3#" + FamilyId + "#")
        'MsgBox("Content Family DisplayName:  " + oFamily.DisplayName & vbNewLine & _'        "Rows in Family:  " & oFamily.TableRows.Count )'
        ''create new member file
        Dim ErrorType As MemberManagerErrorsEnum
        Dim strContentPartFileName As String
        Dim strErrorMessage As String

        ' Do a loop here for all the rows.
        For i As Integer = 1 To oFamily.TableRows.Count
            If Not oFamily.TableRows.Item(i).IsSuppressed Then
                strContentPartFileName = oFamily.CreateMember(i, ErrorType, strErrorMessage)
            End If
        Next

        ' Msgbox to alert the process is done.
        MsgBox("All " & oFamily.TableRows.Count & " c/c family items are created.")  

If you also need the NA function included let me know, I must think then 😉 I marked the changes with blue.

[AreHoland]

Hi,

thank you very much, it worked perfect! I do not need the "NA" exclusion, i just need one of them:)

Best Regards

Are

[cmcconnell]

Hello,

I also have a need to create the children from entire content center families.

Unfortunately, I do not know much about iLogic.

I have attempted to use this snippet in an assembly, and it throws the following error:

Error in rule: Rule0, in document: Assembly2.iam

The parameter is incorrect. (Exception from HRESULT: 0x80070057 (E_INVALIDARG))

I am attempting to run the code in an assembly - is this the correct place? I should add that I am currently working in IV 2017.

[MechMachineMan]

How the rule is written:

1. Make an assembly file.

2. Place - FROM THE CONTENT CENTER - the content center item you would like to have every row generated for.

3. Run the rule.

4. Wait and watch the magic.

[jgoetsch]

This process takes a very long time to run (8 seconds each. families rang from 500 to 3500 items). even on a CPU running at 5.2ghz. Is there anyway to improve the speed? Additionally can it be modified to work through all content center families that are in the assembly? This way I could build an assembly that has each of the families we have Modified and run them all at once.

[K.TRYFONIDIS]

This is a Very nice proposal, have you managed to get any code for this proposal.

[JUSTIN_BRADFORD]

Once the rule is run, do I need to check the part in? 

We are updating all of the family tables we have and now need each version checked into vault to not break all of our assemblies. 

[jgoetsch]

No, I haven't had any response. I'm sure I could write it at this point, but "time is time, and I have none".

[iogurt1]

As I remember it, you now have to check them all in, Yes

[jgoetsch]

When we run this routine. We checkout all existing files from the the vault. Then run the program. then check everything back in.

[JUSTIN_BRADFORD]

That makes sense. We were trying to figure out if we needed to delete the files from the vault, run this script and then basically check new files in. Or if this would update the existing files. 

[Jerzy.FabianskiNGSZF]

Hello.

I'm pretty fresh with macros, trying to run following macro, but get some error.

I would be great full for any help on it.

So far I'm working on Inv. 2021 & installed latest visual studio in addition.

I have created assembly, placed C-C file in it and saved all on Hdd, but unfortunately it's not working.

[robmit_arm]

1. This is iLogic not VBA.

2. This is internal rule, to run this iLogic you must save it within assembly file.

[Jerzy.FabianskiNGSZF]

Thank you.
Working now.

[diego_dorta]

thank you very usefull rule. is there the way to not only generete the file but also place them in the current assembly. this will be very time saving when you have to update the content center file after a family table change.

thank you