Compare old and new file names after Save As
Add this code to the internal rules and the rule to "Event Triggers" in the "Before Save Document" section.
Dim sName As String = ThisApplication.GeneralOptions.UserName
iProperties.Value("Summary", "Author") = sName
iProperties.Value("Project", "Designer") = sNameAndrii 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.
If you need to get a reference to the 'other' document, why not use
Dim oOtherDocument As Document = ThisApplication.Documents.Open(sOtherDocumentFullDocumentName, False)
Then use similar API code to alter iProperties
oOtherDocument.PropertySets..Item("Inventor Summary Information").Item("Author").Value = ThisApplication.GeneralOptions.UserName
Wesley Crihfield
(Not an Autodesk Employee)
What is the value of sOtherDocumentFullDocumentName? Imagine that I perform a Save As or Save&Replace and I want to change the properties of that new saved (and replaced) file? Is there a way to get the file name from the save as dialogue window?
Sorry, been busy at work. Since this appeared to be a code related topic, I just assumed the SaveAs action would be done by code too, instead of with the manual process with the file dialog. When done entirely by code, you know the file's name before you save it, and after you save it, because you had to specify the new file name. There are events we can monitor for the regular Save and the SaveCopyAs actions, but not for the SaveAs action. This is likely because the SaveAs action causes you to loose the reference to the 'other' document. Below are a couple links to the events I am talking about, but I am not sure they will be of much use to you in this situation. When properly utilizing those events, you can sometimes get useful information from the 'Context' (NameValueMap), but only the information it has available in that timing frame (before or after), and only in those two situations (Save, SaveCopyAs).
ApplicationEvents.OnSaveDocument Event
Wesley Crihfield
(Not an Autodesk Employee)
Maybe a bit odd thought but why don't you save your 12345-00-000-00 assembly as a template? If you do that you can create new files without the problems of read-only flags. In that case, rules like the one from @Andrii_Humeniuk
Dim sName As String = ThisApplication.GeneralOptions.UserName
iProperties.Value("Summary", "Author") = sName
iProperties.Value("Project", "Designer") = sNameAlthough I would use an external rule for this type of situation. It will make things simpler if you want to change the behaviour in the future
Jelte de Jong
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Blog: hjalte.nl - github.com
Hi @Nejc.Leban . You need to add this rule to external rules. Next, you need to run a read-only document and run this rule. It SaveAs your document and replaces the author and designer.
Dim oDoc As Document = ThisApplication.ActiveDocument
Dim oFileDlg As Inventor.FileDialog = Nothing
InventorVb.Application.CreateFileDialog(oFileDlg)
oFileDlg.Filter = "Inventor Files (*.iam;*.ipt)|*.iam;*.ipt|All Files (*.*)|*.*"
oFileDlg.FileName = System.IO.Path.GetFileName(oDoc.FullFileName)
oFileDlg.ShowSave()
If oFileDlg.FileName Is Nothing Or oFileDlg.FileName = "" Then Exit Sub
oDoc.SaveAs(oFileDlg.FileName, True)
If System.IO.File.Exists(oFileDlg.FileName) Then
Dim sName As String = ThisApplication.GeneralOptions.UserName
Dim oChildDoc As Document = ThisApplication.Documents.Open(oFileDlg.FileName, True)
oChildDoc.PropertySets.Item("Inventor Summary Information").Item("Author").Value = sName
oChildDoc.PropertySets.Item("Design Tracking Properties").Item("Designer").Value = sName
oChildDoc.Save()
End If
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.
