Hi,
I have new info for this issue, maybe it you solution.
try this, I have example for indetify In Use in Part Document
Public Sub IdentifyParameterUseIn()
Dim app As Application
Set app = ThisApplication
Dim oPD As PartDocument
Set oPD = app.ActiveDocument
Dim oPCD As PartComponentDefinition
Set oPCD = oPD.ComponentDefinition
Dim oParam As Parameters
Set oParam = oPCD.Parameters
Dim oMP As ModelParameter
Dim oSkt As Sketch
Dim ParentCompDef As PartComponentDefinition
Dim oFeat As PartFeature
Dim oFeatParam As Parameter
Dim DimCon As DimensionConstraints
Dim SktParam As DimensionConstraint
'call Model Parameter
For Each oMP In oParam.ModelParameters
'call parent of model parameter
Set ParentCompDef = oMP.Parent.ComponentDefinition
For Each oSkt In ParentCompDef.Sketches
Set DimCon = oSkt.DimensionConstraints
For Each SktParam In DimCon
If SktParam.Parameter.Name = oMP.Name Then
MsgBox "Parameter Name " & oMP.Name & " is Consumed By " & oSkt.Name
End If
Next
Next
For Each oFeat In ParentCompDef.Features
For Each oFeatParam In oFeat.Parameters
If oFeatParam.Name = oMP.Name Then
MsgBox "Parameter Name " & oMP.Name & " is Consumed By " & oFeat.Name
End If
Next
Next
Next
End Sub
Please use the ACCEPT AS SOLUTION or KUDOS button if my Idea helped you to solve the problem.
Autodesk Inventor Professional Certified 2014
