06-09-2023
07:45 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-09-2023
07:45 AM
@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.
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!
Kenny
If this post solved your issue please mark "Accept as Solution". It helps everyone...really!