Ilogic rules push and pull derived parts

[Anonymous]

Hi guys

Sorry if I describe this wrong. Im very new to ilogic but im pretty good with Inventor. 

Ive got 2 ipt files. The first has user parameters driving some sweeps and revolves. We’ll call it drill flute ipt. I have another ipt that is the drill body. The drill body derives in the drill flute ipts parameters and geometry to then subtract material. In my drill body ipt i have all the ilogic code and i can see the linked parameters showing up through the ilogic window. The problem is i want to write a rule that changes one of the parameters of the drill flute ipt. Basically i want my rule to do some math, update the drill flute ipt with the parameter updates, then update my drill body again so the geometry updates.

The problem im having is that none of my if then statements are updating the drill flute ipts parameters and obviously not updating the drill body thereafter. 

Any thought on how to push and pull parameters between two derives ipts files?

Rob

[chandra.shekar.g]

@Anonymous,

Can you please provide non confidential model data to test the feasibility?

Thanks and regards,

[Anonymous]

Hi Chandra,

I've attached a simplified example.  The rule in the drill body.ipt. I would like to have Linked Parameter l3Helix change based on a change in BodyLength.

Thanks,

Rob

If BodyLength <= 100 Then

l3Helix = BodyLength - 20

ElseIf BodyLength > 100 Then
 l3Helix = BodyLength - 10
 
End If

[chandra.shekar.g]

@Anonymous,

Try below iLogic code to change parameter value of derived parameter.

Dim oDoc As PartDocument
oDoc = ThisApplication.ActiveDocument 

Dim oReferDoc As Document
oReferDoc = oDoc.ReferencedDocuments.Item(1)

Dim oReferDef As ComponentDefinition
oReferDef = oReferDoc.ComponentDefinition

Dim oReferParam As Parameter
oReferParam = oReferDef.Parameters.UserParameters.Item(7)

Dim oValue As Double

If BodyLength <= 100 Then
    oValue = BodyLength  - 20 
ElseIf BodyLength > 100 Then
    oValue = BodyLength - 10 
End If

oReferParam.Expression = oValue & " mm"
Call oReferDoc.Update
Call oDoc.Update

Thanks and regards,

[Anonymous]

Chandra,

It is working well now. Thank you very much for the help!

Best Regards,

Rob

[chandra.shekar.g · Accepted solution]

@Anonymous & @Anonymous,

If the solution is working, click on "Accept solution" button.

Thanks and regards,