06-27-2017
07:58 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-27-2017
07:58 AM
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