Hey Team,
I'm getting the same problem, but we run an autosave pdf iLogic code (picked up from a forum).
Is anyone here smarter than me, and knows which line I might be able to change so that I get the pdf that I'm after, but the part isn't changed?
The save dialogue says that I've made user edits to the part (when it hasn't actually been touched)

'Export current drawing as a multi-sheet PDF
oPath = "S:\Production\Public Folders\PDF\"
oFileName = ThisDoc.FileName(False) 'without extension
oPDFAddIn = ThisApplication.ApplicationAddIns.ItemById ("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
oDocument = ThisApplication.ActiveDocument
oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
oOptions.Value("All_Color_AS_Black") = 0
oOptions.Value("Remove_Line_Weights") = 1
oOptions.Value("Vector_Resolution") = 300
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
'oOptions.Value("Custom_Begin_Sheet") = 3
'oOptions.Value("Custom_End_Sheet") = 7
'get PDF target folder path
'Uncomment the following line to append \PDF onto the end of the current IDW folder location
'oFolder = Left(oPath, InStrRev(oPath, "\")) & "PDF"
oFolder = oPath
'Check for the PDF folder and create it if it does not exist
'If Not System.IO.Directory.Exists(oFolder) Then
'System.IO.Directory.CreateDirectory(oFolder)
'End If
'Set the PDF target file name
'oDataMedium.FileName = oFolder & "\" & oFileName & " Rev" & oRevNum & ".pdf"
oDataMedium.FileName = oFolder & oFileName & ".pdf"
'Publish document
oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
MessageBox.Show("PDF saved", "File Save")