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

 

Sub Main()
    Dim oAsmDoc As Inventor.AssemblyDocument
    oAsmDoc = ThisApplication.ActiveDocument
'    Dim oAsmCompDef As AssemblyComponentDefinition
'    Set oAsmCompDef = oAsmDoc.ComponentDefinition
'    Dim oOccurrences As ComponentOccurrences
'    Set oOccurrences = oAsmCompDef.Occurrences
    Zapnuti_occurrence(oAsmDoc)
End Sub
Sub Zapnuti_occurrence(oDoc As Inventor.AssemblyDocument)
    Dim oAsmCompDef As AssemblyComponentDefinition
    oAsmCompDef = oDoc.ComponentDefinition
    Dim oOccurrences As ComponentOccurrences
	Dim oOccurrence As ComponentOccurrence
    oOccurrences = oAsmCompDef.Occurrences
'    Dim oSuppress_Occurrence As Boolean
'    Dim oModelState As ModelState
'    Dim oModelState_created As Boolean
    
'    oModelState_created = False
    For Each oOccurrence In oOccurrences 'tady to změnit na list
'        oSuppress_Occurrence = False
        If oOccurrence.Suppressed = True Then
'            If oModelState_created = False Then
'                Set oModelState = ThisApplication.ActiveDocument.ComponentDefinition.ModelStates.Add("Part2Suppressed2")
'            End If
            oOccurrence.Unsuppress
'            oSuppress_Occurrence = True
        End If
        'do stuff...
        'If oSuppress_Occurrence = True Then
        '    oSuppress_Occurrence = False
        '    oOccurrence.Suppress
        'End If
    
        If oOccurrence.DefinitionDocumentType = kAssemblyDocumentObject Then
			    Dim oSubAsmCompDoc As AssemblyDocument
    				oSubAsmCompDoc = oOccurrence.Definition.Document
'            If InStr(oOccurrence.Definition.Document.DisplayName, new_element) = 0 Then
'                oDoc.Update
'            End If
'            oDoc = ThisApplication.Documents.Open(oOccurrence.Definition.Document.FullFileName)
                            
            
            Call Zapnuti_occurrence(oSubAsmCompDoc) 
            
'            oDoc.Save2
'            oDoc.Close
        End If
    Next
End Sub

Which inventor version are you use?

In the 2021,there is no modelstate .

 

 

Try this