Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Anonymous
in reply to: Jef_E

Thanks Jef,

 

I did have to change it a bit to get it to work, and I probably still don't have it quite right since it throws an error.  I will look into it more next time I need to do a bunch of files.   This is what I ended up with though.

Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oDerivedPartDef As DerivedPartUniformScaleDef

Set oDerivedPartDef = oDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents(1).Definition

oDerivedPartDef.Parameters.Item("Plate_6_Thk").IncludeEntity = True
oDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents(1).Definition = oDerivedPartDef
If Err Then Stop