10-12-2021
03:16 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-12-2021
03:16 AM
Thank you, it works!
Here is the final code:
Sub Main()
Dim oAsmDoc As Inventor.AssemblyDocument
Set oAsmDoc = ThisApplication.ActiveDocument
Dim oAsmCompDef As AssemblyComponentDefinition
Set oAsmCompDef = oAsmDoc.ComponentDefinition
Dim oOccurrences As ComponentOccurrences
Set oOccurrences = oAsmCompDef.Occurrences
Zapnuti_occurrence oOccurrences, oAsmDoc
End Sub
Sub Zapnuti_occurrence(oOccurrences As ComponentOccurrences, oDoc As Inventor.AssemblyDocument)
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
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
If InStr(oOccurrence.Definition.Document.DisplayName, new_element) = 0 Then
oDoc.Update
End If
Set oDoc = ThisApplication.Documents.Open(oOccurrence.Definition.Document.FullFileName)
Zapnuti_occurrence oDoc.ComponentDefinition.Occurrences, oDoc
oDoc.Save2
oDoc.Close
End If
Next
End Sub