---

Hallo

Habe ein Problem mit der Deklaration:

Imports System
Imports System.Type
Imports System.Activator
Imports System.Runtime.InteropServices
Imports Inventor

Public Class Form33
    Dim _invApp As Inventor.Application
    Dim _started As Boolean = False

***Programm Code stammt aus dem Inventor-VBA Forum ***

        Dim ThisApplication As Inventor.DesignProjects -> Gibt Error Meldungen
        Dim AAAA As String
        AAAA = "C:\000000\test\TEST.ipj" --> Der Pfad ist gültig !!!
Dim oProject As DesignProject
        oProject = ThisApplication.DesignProjectManager.DesignProjects.ItemByName(AAAA) -> Gibt Error Meldungen
        oProject.Activate()

Hinweise zu Software:
Inventor 2015 64 Bit
Visual Studio 2013 Prof

Grüße aus Bochum

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Code:

---

Imports System
Imports System.Type
Imports System.Activator
Imports System.Runtime.InteropServices
Imports Inventor

Public Class Form33
    Dim _invApp As Inventor.Application
    Dim _started As Boolean = False

     Dim AAAA As String
     AAAA = "C:\000000\test\TEST.ipj" --> Der Pfad ist gültig !!!
     Dim oProject As DesignProject
     oProject = _invApp.DesignProjectManager.DesignProjects.ItemByName(AAAA) -> Gibt Error Meldungen
     oProject.Activate()

---

Ich hoffe du hast _invApp irgendwo dazwischen auch die laufende Inventorinstanz zugewiesen. Sonst läuft auch dieser Schnipsel nicht.

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

ich hoffe du hast _invApp irgendwo dazwischen auch die laufende Inventorinstanz zugewiesen. Sonst läuft auch dieser Schnipsel nicht.

Frage Wie ??????????????????????????????????

Grüße aus Bochum

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Ist das eine AddIn-dll? Dann sollte deine Activate-Sub in etwa so beginnen:

Code:

---

Public Sub Activate(ByVal oAddInSiteObject As Inventor.ApplicationAddInSite, ByVal bFirstTime As Boolean) Implements Inventor.ApplicationAddInServer.Activate
            Try

                'Initialize AddIn members
                _invApp = oAddInSiteObject.Application

                '.... usw.

---

Oder bei einer eigenständigen Exe

Code:

---

Dim _invApp As Inventor.Application

' Attempt to get a reference to a running instance of Inventor.
Try
    _invApp = GetObject(, "Inventor.Application")
Catch ex As Exception
    MsgBox("Inventor must be running.")
    Exit Sub
End Try

---

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP