09-30-2022
01:50 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-30-2022
01:50 AM
Not completely certain what you are asking but I have put this together:
Dim Doc As PartDocument = ThisDoc.Document oPCD = Doc.ComponentDefinition If oPCD.IsModelStateMember Then Doc = oPCD.FactoryDocument End If oMStates = oPCD.ModelStates newModelStateName = HEIGHT oMState = oMStates.Add(newModelStateName)
Hope that helps ![]()