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

Hi,

 

Here is my complete Code to loop throught the assembly, only for files that are write enabled!

 

Public Sub SaveAllDesign(oTopDoc As Document)
        Dim fioTop As System.IO.FileInfo = New System.IO.FileInfo(oTopDoc.FullFileName)
        If fioTop.IsReadOnly = False Then

            Dim oInvDoc As Document

            For Each oInvDoc In oTopDoc.ReferencedDocuments
                Dim fio As System.IO.FileInfo = New System.IO.FileInfo(oInvDoc.FullFileName)

                If fio.IsReadOnly = False Then
                    'MsgBox(oInvDoc.FullFileName)

                    oInvDoc.Save()

                    If oInvDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
                        Try
                            SaveAllDesign(oInvDoc)
                        Catch ex As Exception

                        End Try
                    End If

                    If oInvDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then

                        Try
                            SaveAllDesign(oInvDoc)
                        Catch ex As Exception

                        End Try

                    End If

                End If
            Next
        End If
    End Sub

 

 

Regards,

Regards,

Arthur Knoors

Autodesk Affiliations:

Autodesk Software:Inventor Professional 2025 | Vault Professional 2024 | Autocad Mechanical 2024
Programming Skills:Vba | Vb.net (Add ins Vault / Inventor, Applications) | I-logic
Programming Examples:Drawing List!|Toggle Drawing Sheet!|Workplane Resize!|Drawing View Locker!|Multi Sheet to Mono Sheet!|Drawing Weld Symbols!|Drawing View Label Align!|Open From Balloon!|Model State Lock!
Posts and Ideas:Dimension Component!|Partlist Export!|Derive I-properties!|Vault Prompts Via API!|Vault Handbook/Manual!|Drawing Toggle Sheets!|Vault Defer Update!


! For administrative reasons, please mark a "Solution as solved" when the issue is solved !

Tags (1)