А в результате PictureBox1 остается пустым!? Какие тут еще могут быть подводные камни?
Ну Автодеск камней подводных всегда наворотить успеет. Вот и наворотили с 2015-ого похоже.
Не спрашивай сколько я времени потратил, что бы найти решение этой траблы.
Проблема в переменной среды, которую нужно переопределить в процедуре
AddInventorPath().
Эту переменную среды так же можно переопределить и в самой винде.
И филат, привыкай использовать конструкторы классов
Public Sub New, а не события загрузки формы
OnLoadImports System.Windows.Forms
Imports Inventor
Public Class Form1
Private oDoc As ApprenticeServerDocument
Private oClientView As ClientView
Private oApprentice As ApprenticeServerComponent
Private oCamera As Camera
Public Sub New()
' Этот вызов является обязательным для конструктора.
InitializeComponent()
' Добавить код инициализации после вызова InitializeComponent().
oApprentice = New ApprenticeServerComponent
AddInventorPath()
End Sub
Public Sub AddInventorPath()
Dim path As String = System.Environment.GetEnvironmentVariable("PATH")
Dim inventorPath As String = oApprentice.InstallPath
path &= ";" & inventorPath & "Bin"
System.Environment.SetEnvironmentVariable("PATH", path)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim oName As String = "C:\Users\Pater\Documents\Part3.ipt"
oDoc = oApprentice.Open(oName)
oClientView = oDoc.ClientViews.Add(PictureBox1.Handle.ToInt32())
oCamera = oClientView.Camera
oCamera.ViewOrientationType = ViewOrientationTypeEnum.kIsoTopRightViewOrientation
oCamera.Fit()
oCamera.Perspective = True
oCamera.Apply()
oClientView.Update(False)
'PictureBox1.Image.Save("D:\111.png")
End Sub
End Class
