changing derived parameters

[Ralf_Krieg]

hello

Can anyone tell me why this Code does nothing? I suggest, that the Parameter will not longer be derived.

Private Sub UnlinkDerivedPrameter()
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oDPC As DerivedPartComponent
Set oDPC = oDoc.ComponentDefinition.Features.ReferenceFeatures.Item(1).ReferenceComponent

oDPC.Definition.Parameters.Item(1).IncludeEntity = False

End Sub

[Anonymous]

Hi krieg,

Did you find a solution to this?

I'm also working with derived parameters.

Feel free to email me at:

sdiaz at structurecraft dot com

Cheers,

Santiago

[sanjay.ramaswamy]

The definition obtained from the component is a tear-off and does not maintain a live link. You need to set the modified definition back to the component. Something like this...

Private Sub UnlinkDerivedPrameter()
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oDPC As DerivedPartComponent
Set oDPC = oDoc.ComponentDefinition.Features.ReferenceFeatures.Item(1).ReferenceComponent

Dim oDPD As DerivedPartDefinition
Set oDPD = oDPC.Definition

oDPD.Parameters.Item(1).IncludeEntity = False

oDPC.Definition = oDPD

End Sub

[Ralf_Krieg]

Hello

Once again, a perfect answer to my question. Thanks a lot Sanjay. 🙂

[Anonymous]

Thanks Sanjay!

[PACDrafting]

Hi Sanjay

This allows you to remove the derived parameter. How do you include a dervied parameter?

Thanks

Paul