Private Sub test_dwg_4()
Dim oDoc_dwg As DrawingDocument
Set oDoc_dwg = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Set oSheet = oDoc_dwg.ActiveSheet
Dim oView As DrawingView
Set oView = oSheet.DrawingViews(1)
Dim oRefDocDiskr As DocumentDescriptor
Set oRefDocDiskr = oView.ReferencedDocumentDescriptor
Dim oDoc As Inventor.Document
Set oDoc = oRefDocDiskr.ReferencedDocument
Debug.Print oDoc.DisplayName
End Sub