Anonymous
346 Views, 2 Replies
06-21-2017
11:30 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-21-2017
11:30 AM
I am having some issues trying to set a parameter to Included from a derived part. The following runs without error, and I can put a watch on oDerivedPartDef.Definition.Parameters.Item("Plate_6_Thk").IncludeEntity, and it never changes from False to True. What am I missing?
Also Is there no way to change a Revision Cell to or from Static?
Public Sub Derived()
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oDerivedPartDef As DerivedPartComponent
Set oDerivedPartDef = oDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents(1)
oDerivedPartDef.Definition.Parameters.Item("Plate_6_Thk").IncludeEntity = True
If Err Then Stop
End Sub
Solved! Go to Solution.
06-23-2017
12:42 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-23-2017
12:42 AM
It's somthing really stupid.. you must set back the definition.. struggled with this also for a while ![]()
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oDerivedPartDef As DerivedPartComponent
Set oDerivedPartDef = oDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents(1)
oDerivedPartDef.Definition.Parameters.Item("Plate_6_Thk").IncludeEntity = True
oDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents(1).Definition = oDerivedPartDef
Please kudo if this post was helpfull
Please accept as solution if your problem was solved
Inventor 2014 SP2
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