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

@Frederick_Law thanks for the link. Looking into it I've tried to modify it for what I'm trying to achieve but running into errors. I'm sure I haven't coded this correctly lol.

 

error1.jpg

 

Sub Main()
	Dim oDoc As PartDocument = ThisDoc.Document
	Dim oCompDef As PartComponentDefinition = oDoc.ComponentDefinition
	Dim oModelStates As ModelStates
	Dim oModelState As ModelState
	Dim oOccu As ComponentOccurrence
	Dim oOccuDef As ComponentDefinition
	Dim oOccuDoc As Document
	oModelState.Name "-N" iProperties.Value("Project", "Part Number") = oModelState.Name "Master" iProperties.Value("Project", "Part Number")
	oModelState.Name "-G" iProperties.Value("Project", "Part Number") = oModelState.Name "Master" iProperties.Value("Project", "Part Number")
	oModelState.Name "L-N" iProperties.Value("Project", "Part Number") = oModelState.Name "Master" iProperties.Value("Project", "Part Number")
	oModelState.Name "L-G" iProperties.Value("Project", "Part Number") = oModelState.Name "Master" iProperties.Value("Project", "Part Number")
	oModelState.Name "R-N" iProperties.Value("Project", "Part Number") = oModelState.Name "Master" iProperties.Value("Project", "Part Number")
	oModelState.Name "R-G" iProperties.Value("Project", "Part Number") = oModelState.Name "Master" iProperties.Value("Project", "Part Number")
	
	iProperties.Value("Custom", "Finished part number") = iProperties.Value("Project", "Part Number") & oModelState.Name "-N" iProperties.Value
	iProperties.Value("Custom", "Finished part number") = iProperties.Value("Project", "Part Number") & oModelState.Name "-G" iProperties.Value
	iProperties.Value("Custom", "Finished part number") = iProperties.Value("Project", "Part Number") & oModelState.Name "L-N" iProperties.Value
	iProperties.Value("Custom", "Finished part number") = iProperties.Value("Project", "Part Number") & oModelState.Name "L-G" iProperties.Value
	iProperties.Value("Custom", "Finished part number") = iProperties.Value("Project", "Part Number") & oModelState.Name "R-N" iProperties.Value
	iProperties.Value("Custom", "Finished part number") = iProperties.Value("Project", "Part Number") & oModelState.Name "R-G" iProperties.Value
	
	End Sub

 

Regards,
Kenny
If this post solved your issue please mark "Accept as Solution". It helps everyone...really!