Imports System
Imports System.Type
Imports System.Activator
Imports System.Runtime.InteropServices
Imports Inventor
Public Class ScanViewsForm
Dim _invApp As Inventor.Application
Dim _started As Boolean = False
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
InitializeComponent()
Try
_invApp = Marshal.GetActiveObject("Inventor.Application")
Catch ex As Exception
Try
Dim invAppType As Type =
GetTypeFromProgID("Inventor.Application")
_invApp = CreateInstance(invAppType)
_invApp.Visible = True
_started = True
Catch ex2 As Exception
MsgBox(ex2.ToString())
MsgBox("Не удалось ни найти, ни создать сеанс Inventor")
End Try
End Try
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
InitializeComponent()
_invApp = Marshal.GetActiveObject("Inventor.Application")
If _invApp.Documents.Count = 0 Then
MsgBox("Надо открыть документ чертежа")
Return
End If
If _invApp.ActiveDocument.DocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then
MsgBox("Требуется открыть чертеж")
Return
End If
Dim Doc1 As Inventor.DrawingDocument
Dim Sheet1 As Inventor.Sheet
'Dim View1 As DrawingView
Doc1 = _invApp.ActiveDocument
Sheet1 = Doc1.Sheets.Item(1)
'View1 = _Sheet1.DrawingViews(1)
Dim oPoint1 As Point2d
oPoint1 = _invApp.TransientGeometry.CreatePoint2d(20.0, 13.0)
Dim oPoint2 As Point2d
oPoint2 = _invApp.TransientGeometry.CreatePoint2d(20.0, 20.0)
Dim oPartDoc As PartDocument
oPartDoc = _invApp.Documents.Open("D:\CAM\MT2CAM4\model3.ipt", False)
Dim oView1 As DrawingView
oView1 = Sheet1.DrawingViews.AddBaseView(oPartDoc, oPoint1, 1, ViewOrientationTypeEnum.kTopViewOrientation, DrawingViewStyleEnum.kHiddenLineDrawingViewStyle)
Dim oView2 As DrawingView
oView2 = Sheet1.DrawingViews.AddBaseView(oPartDoc, oPoint2, 1, ViewOrientationTypeEnum.kFrontViewOrientation, DrawingViewStyleEnum.kHiddenLineDrawingViewStyle)
Call oPartDoc.Close(True)
End Sub