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