Метод DrawingViews.AddBaseView()

[R.I.Chernov]

Доброго времени суток, уважаемые форумчане! Помогите пожалуйста разобраться с работой вышеуказанного метода. У меня открыта сборка, необходимо создать чертеж и добавить вид. Не могу найти ошибку в коде (Не работает последний метод):

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

1. Sub test_dwg_2()
2. Dim oApp As Inventor.Application
3. Set oApp = ThisApplication
4.  
5. Dim oDoc As Inventor.Document
6. Set oDoc = ThisApplication.ActiveDocument
7.  
8. Dim Path_Name As String
9. Path_Name = "C:\Users\Public\Documents\Autodesk\Inventor 2013\Templates\Обычный.idw"
10.  
11. Dim oDoc_dwg As Inventor.DrawingDocument
12. Set oDoc_dwg = oApp.Documents.Add(kDrawingDocumentObject, Path_Name)
13.  
14. Dim oSheet_1 As sheet
15. Set oSheet_1 = oDoc_dwg.ActiveSheet
16.  
17. Dim oTG As TransientGeometry
18. Set oTG = oApp.TransientGeometry
19.  
20. Call oSheet_1.DrawingViews.AddBaseView(oDoc, oTG.CreatePoint2d(10, 10), 0.1, kBottomViewOrientation, kHiddenLineRemovedDrawingViewStyle)
21. End Sub

[R.I.Chernov]

Прошу прощения за беспокойство! Не знаю, что произошло, но еще раз запустил, все работает! Видно это положительные чакры форума! Будем считать, что я просто решил поделиться с вами кодом, может кому пригодится!