Driving parameters from assembly level into parts with changing names

[Anonymous]

I have the following piece of code which works great when everything is kept standard.

However when the part is made non-standard, users change the prefix of a file from an 'A' to an 'AN'. Obviously when this happens my rule can no longer find the file.

How can I re-code this to work with both names, or even better to write to the same part everytime, no matter what the name is changed to?

If Hinge_Side = "Left"
hinge = 0
Parameter("A01909:1", "hinge") = 0
Parameter("A01906:1", "hinge") = 0
Parameter("A01903:1", "hinge") = 0

ElseIf Hinge_Side = "Right"
Parameter ("hinge") = 1
Parameter("A01909:1", "hinge") = 1
Parameter("A01906:1", "hinge") = 1
Parameter("A01903:1", "hinge") = 1

End If

[HermJan.Otterman]

Did you rename the components in the browser before you used them in the code?

if you do, changing the filename does not change the browsername anymore, so the code keeps on working.

[Owner2229]

Hi, you might try something like this:

Dim oHinge As Integer

If Hinge_Side = "Left"
    oHinge = 0
ElseIf Hinge_Side = "Right"
    oHinge = 1
Else
    Return
End If

Parameter ("hinge") = oHinge

On Error Resume Next
Parameter("A01909:1", "hinge") = oHinge
Parameter("A01906:1", "hinge") = oHinge
Parameter("A01903:1", "hinge") = oHinge
Parameter("AN01909:1", "hinge") = oHinge
Parameter("AN01906:1", "hinge") = oHinge
Parameter("AN01903:1", "hinge") = oHinge