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
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
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
Hello
Once again, a perfect answer to my question. Thanks a lot Sanjay. 🙂
Hi Sanjay
This allows you to remove the derived parameter. How do you include a dervied parameter?
Thanks
Paul