Или ссылку на ответ там, или (лучше) копию ответа сюда.
Извиняюсь, упустил, хотел сам ответ оформить ссылкой (.
В общем виде "сохранить как" можно отследить так:
Private Sub oAppEvents_OnSaveDocument(ByVal DocumentObject As _Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As NameValueMap, ByRef HandlingCode As HandlingCodeEnum) Handles oAppEvents.OnSaveDocument
If BeforeOrAfter = EventTimingEnum.kAfter Then
If Context.Item(1) <> Context.Item(2) Then
Dim sdoc As Document = Nothing
If m_inventorApplication.ActiveDocument.FullFileName = Context.Item(1) Then
sdoc = m_inventorApplication.ActiveDocument
Else
Try
sdoc = m_inventorApplication.Documents.ItemByName(Context.Item(1))
Catch ex As Exception
sdoc = m_inventorApplication.Documents.Open(Context.Item(1))
End Try
End If
End If
End If
End Sub
DocumentObject - старый документ
Context.Item(1) - ссылка на новый документ
sdoc - новый документ