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

Hi @K.TRYFONIDIS . Try this code:

Sub main()
	Dim oAsmDoc As AssemblyDocument = ThisDoc.FactoryDocument
	Dim oDocs As Documents = ThisApplication.Documents
	Dim oRefDocs As DocumentsEnumerator = oAsmDoc.AllReferencedDocuments
	If oRefDocs.Count = 0 Then Exit Sub
	For Each oRefDoc As Document In oRefDocs
		Dim oDoc As Document = oDocs.Open(oRefDoc.FullDocumentName, True)
		System.Threading.Thread.Sleep(5000)
		If oDoc.IsModifiable Then oDoc.Save()
		oDoc.Close()
	Next
End Sub

 

Andrii Humeniuk - CAD Coordinator, Autodesk Certified Instructor

LinkedIn | My free Inventor Addin | My Repositories

Did you find this reply helpful ? If so please use the Accept as Solution/Like.

EESignature