---

Hallo hilfreiches Forum,

ich möchte "dialoglos" im Inventor11 eine Baugruppe speichern.

z.B.

Call IvApp.CommandManager.PostPrivateEvent(Inventor.PrivateEventTypeEnum.kFileNameEvent, "C:\TMP\TASM.IAM")
rCrtlDef =IvApp.CommandManager.ControlDefinitions.Item("AppFileSaveCmd")
rCrtlDef.Execute()

Leider bekomme ich den Speicherdialog in dem Inventor erkennt,
was alles gespeichert (oder nicht) werden muß, nicht weg.

Forum, Goggle und meine fruchtlosen Experimente mir dem
UserInputEvents-Objekt brachten mich nicht wirklich weiter.

Was fehlt? Oder läßt sich das auf anderem Wege um die Ecke bringen?

Gruß

Rainer

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

---

ThisApplication.SilentOperation = True

und danach:

ThisApplication.SilentOperation = False

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

FX64 Software Solutions

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

---

Hallo daywa1k3r!

Das ging ja schnell. DANKE!

Nur irgendwie scheint dies das Problem nicht zu lösen.

Das Speichern wird damit abgebrochen (keine Datei erzeugt)
und ich kriege ein paar Zeilen weiter eine Fehlermeldung,
da eine Zeichnungsausleitung nur von einer gespeicherten Baugruppe
funktioniert.
Also irgenwie muß man den Dialog den OK-Button drücken lassen
oder die Baugruppe durch den Inventor "anders" speichern lassen.

Gruß

Rainer

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

---

Komisch. Das funktioniert bei mir:

Code:

---

Sub test_save_asm()
    Dim oAsm As AssemblyDocument
    Set oAsm = ThisApplication.ActiveDocument
   
    ThisApplication.SilentOperation = True
    On Error Resume Next
    oAsm.SaveAs Replace(oAsm.FullFileName, ".iam", "_2.iam"), False
    If Err.Number = 0 Then
        MsgBox ("Alles klar")
    Else
        MsgBox ("Nix klar")
    End If
    ThisApplication.SilentOperation = False
End Sub

---

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

FX64 Software Solutions

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

---

Hallo daywa1k3r!

Vielleicht sind wir an einander vorbei?

Es handelt sich um eine neue Baugruppe, die
ich speichern muß.

Bei Deinem Code handelt sich es um ein SaveAs!
Vielleicht behandelt das Inventor im Dialog anders,
da beim Save ein Dialog erscheint, welche Unterbauteile
bzw. Baugruppen noch gesichert werden müssen?

Wie gesagt, was auch schon auf der Autodeskseiten,
überall SaveAs leider nirgendwo "dialogloses" Save
für Baugruppen.

Gruß

Rainer

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

---

Ich verstehe nicht was da nicht funktionieren soll!? 

Code:

---

Sub test_save_asm()
    Dim oAsm As AssemblyDocument
    Set oAsm = ThisApplication.ActiveDocument
   
    ThisApplication.SilentOperation = True
    On Error Resume Next
    oAsm.SaveAs "C:\test.iam", False
    If Err.Number = 0 Then
        MsgBox ("Alles klar")
    Else
        MsgBox ("Nix is klar")
    End If
    ThisApplication.SilentOperation = False
End Sub

---

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

FX64 Software Solutions

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

---

. . . gerade VB und Inventor runter und wieder hoch

und nun geht's. Da muß sich das System anscheinend
verschluckt haben, da ich den Code nicht geändert
habe.

Vielen Dank!

Gruß

Rainer

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