---

Hi,

mein Problem ist eigentlich ganz simpel. Ich möchte nur a) Inventor starten, warten bis dieser "Betriebsbereit" ist (da am Anfang noch Datenbanken aktualisiert werden) und b) danach dateien öffnen und per Save(Copy)As in ein anderes Verzeichnis speichern - zum Schluss die Datei wieder schließen und mit der nächsten fortfahren. Ganz zum Schluss noch Inventor beenden.

In der Inventor Programmierhilfe finde ich zwar die VB Befehle für diese Dinge, allerdings funktioniert das ja nicht in VB.NET.

Mein bisheriger Versuch:

Code:

---

  Dim InvApp As Inventor.Application
   Dim oDoc As Inventor.Document
   If Not System.IO.File.Exists(sFile) Then MsgBox(sFile) 'Nur zur Kontrolle
   oDoc = InvApp.Open(sFile, False)
   Call oDoc.SaveAs(dFile, True)
   Call oDoc.Close(True)

---

Er Unterstreicht mir hierbei das "InvApp"(.Open) und sagt NullReferenceException wurde nicht behandelt. (Die Objektvariable oder die With-Blockvariable wurde nicht festgelegt)

Gibt es irgendwo eine Übersicht der VB.Net äquivalente zu den Inventor VB Befehlen?

[Diese Nachricht wurde von cadtb am 10. Dez. 2008 editiert.]

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

---

Also ich muss dir gestehen man kann das alles mit VB.Net machen!

inventor öffnen
datei öffnen
speichern
und wieder schließen!

Es gibt da ja auch einige Beispiele

C:\Programme\Autodesk\Inventor 2009\SDK\DeveloperTools\Samples\VB.NET\Standalone Applications

Einfach mal an diesen orientieren!!

mfg Bernhard

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

---

Das hat doch mit .NET nichts zu tun. 

Du solltest an InvApp auch mal etwas zuweisen, wenn du es weiter benutzen willst. Mit der Deklaration ist es nicht getan.

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

Danke euch für die Tipps,

habe es jetzt soweit das es Dateien öffnet, Speichert als, und wieder schließt.
Falls jemand vor ähnlichen Problemen steht, hier mein Code:

Code:

---

            Dim oApp As Inventor.Application
            Dim oDoc As Inventor.Document
            Try
                oApp = System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application")
            Catch ex As Exception
            End Try
            If oApp Is Nothing Then
                Dim inventorAppType As Type = System.Type.GetTypeFromProgID("Inventor.Application")
                oApp = System.Activator.CreateInstance(inventorAppType)
            End If
            oDoc = oApp.Documents.Open(sFile, False)
            oDoc.SaveAs(dFile, True)
            oDoc.Close(True)

---

sFile ist die Quelldatei, dFile die Zieldatei.
Falls es einfacher geht, bitte meckern 

Jetzt muss ich nurnoch hinkriegen das ich vorher noch eine eigene Inventor Instanz öffne und zum Schluss wieder beende.

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

---

Zum Öffnen kannst Du mal folgendes Versuchen:

  Dim inv As Object
     
        On Error Resume Next
        inv = GetObject(, "Inventor.application")
        If Err.Number() <> 0 Then
            inv = CreateObject("Inventor.application")
        End If

        inv.Visible = True

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