---

Servus
Gibt es eine Möglichkeit Inventor als Applikation zu bestimmen ohne ThisApplication zu benutzen, vergleichbar mit Excel.Application für Excel, so daß man auf die API auch von außen zugreifen kann?
MfG ulli

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

---

Hallo Ulli,

ThisApplication gibt's nur direkt in Inventor-VBA. Das  was Du suchst, funktioniert genau gleich: wenn Du z.B. in Excel die Inventor-Typelibrary einbindest, dann setze die Referenz auf Inventor z.B als 

Private oApp As Inventor.Application

' GetObject setzt voraus, dass Inventor bereits laeuft, sonst Err
Set oApp = GetObject(, "Inventor.Application")

' falls Fehler wird Inventor gestartet
If Err then
  Err.Clear
  Set oApp = CreateObject("Inventor.Application")

  ' oder anstelle 'CreateObject' einfach Fehlermeldung ausgeben
  ' MsgBox "Inventor muss gestartet sein!",16,"Falscher Fehler"
  ' Exit Sub
EndIf

oApp.Visible = True

usw.

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Danke.
Das ist genau das, was ich benötige.
allerdings würde ich dazu gern noch etwas wissen.
Kann ich so auch aus einem VB-Programm auf die Lib zugreifen??
Das wäre nämlich sehr wichtig für mich.
MfG
ulli

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

---

Hallo Ulli,

oeffne in Excel den VAB-Editor. Im VBA-Editor geh auf 'Extras' - 'Verweise'. Eine Liste mit verfuegbaren Verweisen oeffnet sich. Aktiviere in der Liste das Kontrollkaestchen fuer 'Autodesk Inventor Object Library' - thats it.

Uebrigens: ich hatte im Code-Beispiel noch was vergessen:

VOR Set oApp = GetObject(, "Inventor.Application")
gehoert noch 'On Error Resume Next' - sonst kackt Deine Applikation bei 'GetObject' ab, falls Inventor nicht laeuft.

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hmm ich hab das jetzt mal so probiert in ein VB-Programm zu schreiben.
Leider kriege ich da immer Fehlermeldungen der Art:
"Fehler beim Kompilieren
Benutzerdefinierter Typ nicht definiert."
Die bezieht sich auf oApp As Inventor.Application.
Muß ich das noch irgendwo definieren.
Ich habe alle möglichen Verweise gesetzt, die setzbar sind.
Der Code sieht folgendermaßen aus:

Public Sub main()

' Inventor-Objekt finden

Dim oApp As Inventor.Application

On Error Resume Next
' GetObject setzt voraus, dass Inventor bereits laeuft, sonst Err
Set oApp = GetObject(, "Inventor.Application")

' falls Fehler wird Inventor gestartet
If Err Then
  Err.Clear
  Set oApp = CreateObject("Inventor.Application")

 
End If

oApp.Visible = True

' eigentliche Funktion

Dim oOccurrence As ComponentOccurrence

Set oOccurrence = oApp.ActiveDocument.SelectSet.Item(1)
    If Err Then
        MsgBox "An occurrence must be selected."
        Exit Sub
    End If
    On Error GoTo 0
   
    Call SetVisibility(oOccurrence.Name)

End Sub

Private Sub SetVisibility(SearchName As String)
   
    Dim oOccurrence As ComponentOccurrence
    oOccurrence.Edit

End Sub

Was hab ich vergessen, falsch gemacht, nicht gewusst??
Ist schließlich das erste VB-Programm, das ich schreibe.
MfG
ulli

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

---

Hat sich schon erledigt.
Ich habe die Verweise fälschlicherweise in Inventors VBA-Editor gesetzt und nicht im Visual Studio und noch ein paar Fehler im Code.
Jetzt läuft es.
Ich möchte mich hiermit nochmals herzlichst bedanken für die ausgezeichnete Hilfe.
MfG
ulli

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