Как обратится к сборке, с которой сделан базовый вид.

[R.I.Chernov]

Доброго времени суток, уважаемые форумчане! Помогите пожалуйста с вопросом, указанным в теме. Потыкался в свойство Parent вида, вроде не то.

[mikazakov]

DrawingView.ReferencedDocumentDescriptor

[R.I.Chernov]

Спасибо, Михаил.  Итоговый код, получился такой (мб пригодится кому):

Код - Visual Basic [Выбрать]

1. Private Sub test_dwg_4()
2.     Dim oDoc_dwg As DrawingDocument
3.     Set oDoc_dwg = ThisApplication.ActiveDocument
4.     Dim oSheet As Sheet
5.     Set oSheet = oDoc_dwg.ActiveSheet
6.     Dim oView As DrawingView
7.     Set oView = oSheet.DrawingViews(1)
8.     Dim oRefDocDiskr As DocumentDescriptor
9.     Set oRefDocDiskr = oView.ReferencedDocumentDescriptor
10.     Dim oDoc As Inventor.Document
11.     Set oDoc = oRefDocDiskr.ReferencedDocument
12.     Debug.Print oDoc.DisplayName
13. End Sub