Finding reference parameter in ipt

[3DSetout]

Hi Inventor Technicians

Is there a way to identify what sketch or Solid a reference parameter (d0, d1, d2 etc) is in / on.

Thanks

MatB

[cwhetten · Accepted solution]

Hi.

My first inclination was to say that you just hover your mouse over the name of the parameter and it will show you the parent, just like it does with model and user parameters.

But, I decided to test it--and it doesn't work.  Whoever programmed that aspect of the parameters dialog forgot to include that behavior for the reference parameters!  Not cool!

So, I don't see a way to find where a reference parameter is defined, other than hunting through the entire part. 

Cameron Whetten
Inventor 2014

[3DSetout]

Thanks Cameron

. . I did not know that even that limited functionality,

Of the 'Parameter to sketch' identifier existed. .

it even works on my embedded excel Parameters.

At least now I will be able to find Model parameters easily.

Thats cool. But not as cool as the 'possible but forgotten' call.

Sometimes the list is too long to be displayed for some parameters.

Q- is there another way to view the expanded 'Parameter to sketch' information text. .

Thanks MatB

[cwhetten]

Hmm...  Not that I know of, unfortunately.  At least, not without some customized programming.

Cameron Whetten
Inventor 2014

[j.glim]

Hi MatB,

Stumbled upon the same issue.

Wrote this:

Public Sub FindRefParamParent()
Dim oParam As Parameters
Set oParam = ThisApplication.ActiveDocument.ComponentDefinition.Parameters

Dim oRP As ReferenceParameter
Dim oSkt As Sketch
Dim SktParam As DimensionConstraint
ThisApplication.ScreenUpdating = False

For Each oRP In oParam.ReferenceParameters  'Call Reference Parameter
    For Each oSkt In oRP.Parent.ComponentDefinition.Sketches 'Call parent of referenced parameter
        For Each SktParam In oSkt.DimensionConstraints
            If SktParam.Parameter.Name = oRP.Name Then
                MsgBox "Parameter Name " & oRP.Name & " is Consumed By " & oSkt.Name
            End If
        Next
    Next
Next
ThisApplication.ScreenUpdating = True
End Sub

Worked for me!