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

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 :smiling_face_with_smiling_eyes: