Сообщество программистов Autodesk в СНГ

ADN Club => Inventor API => Тема начата: R.I.Chernov от 29-08-2016, 12:32:06

Название: Метод DrawingViews.AddBaseView()
Отправлено: R.I.Chernov от 29-08-2016, 12:32:06
Доброго времени суток, уважаемые форумчане! Помогите пожалуйста разобраться с работой вышеуказанного метода. У меня открыта сборка, необходимо создать чертеж и добавить вид. Не могу найти ошибку в коде (Не работает последний метод):
Код - 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
Название: Re: Метод DrawingViews.AddBaseView()
Отправлено: R.I.Chernov от 29-08-2016, 12:37:05
Прошу прощения за беспокойство! Не знаю, что произошло, но еще раз запустил, все работает! Видно это положительные чакры форума! :) Будем считать, что я просто решил поделиться с вами кодом, может кому пригодится!