Добрый день. Есть код:
Case "DLxDrawingEnvironment", "DLxDrawingSketchEnvironment"
Dim dDoc As Object
dDoc = m_inventorApplication.ActiveDocument
Dim oSheets As Sheets
oSheets = dDoc.Sheets
Dim oSheet As Sheet
Dim oViews As DrawingViews
Dim oView As DrawingView
Dim nModel As Object
For Each oSheet In oSheets
oViews = oSheet.DrawingViews
For Each oView In oViews
nModel = oView.ReferencedDocumentDescriptor.ReferencedDocument.FullFileName
m_Form.mnModel.Text = nModel
Next
Next
Для чертежей деталей он работает, т.е. в текстовом поле mnModel прописывается путь для файла модели.
Для чертежей сборок он не хочет работать. В чем может быть причина?
