---

Hallo,
meine iProperties werden durch ein VBA-Pogramm automatisch
durch Abgleich mit einer externen Datenbank belegt.
Wenn ich dann das Bauteil erstmalig speichern möchte,
dann ist der Speichern-Dialog mit "Bauteil1.ipt" vorbelegt.
Kann man das irgendwie so umbiegen, damit dieser Dialog
gleich mit einem iProperty belegt wird, da der Dateiname
bereits in einem vermerkt ist.

-----
Erich

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

---

Hallo,
bei den Beispielen in der Programmierhilfe ist der Code Filedialog dafür geeignet.

------------------
Gruß
SEHER
www.inventor-tools.de

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

---

Ich danke Dir,
der Beispiel-Code klappt gut 
ich muss dazu zwar ein eigenes Button definieren, dafür kann
ich aber auch gleich den Speicherpfad mit vorbelegen.

------
Erich

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

---

wo find ich den Beispielcode?

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

---

Hallo, habe z.Z. nur 2009 vorOrt,

Invenbtor-Hilfe/Weitere Ressourcen/Programmierhilfe  (mk:@MSITStore  :\Inventor%202009\Inventor%202009\Pss\ADMAPI_13_0.chm::/API_Home.htm) und dann unter Samples (Sample Code) sind eine ganze Menge VBA Beispiele.

---edit anfang ----

Public Sub TestFileDialog()
    ' Create a new FileDialog object.
    Dim oFileDlg As FileDialog
    Call ThisApplication.CreateFileDialog(oFileDlg)

    ' Define the filter to select part and assembly files or any file.
    oFileDlg.Filter = "Inventor Files (*.iam;*.ipt)|*.iam;*.ipt|All Files (*.*)|*.*"

    ' Define the part and assembly files filter to be the default filter.
    oFileDlg.FilterIndex = 1

    ' Set the title for the dialog.
    oFileDlg.DialogTitle = "Open File Test"

    ' Set the initial directory that will be displayed in the dialog.
    oFileDlg.InitialDirectory = "C:\Temp"

    ' Set the flag so an error will be raised if the user clicks the Cancel button.
    oFileDlg.CancelError = True

    ' Show the open dialog. The same procedure is also used for the Save dialog.
    ' The commented code can be used for the Save dialog.
    On Error Resume Next
    oFileDlg.ShowOpen
' oFileDlg.ShowSave

    ' If an error was raised, the user clicked cancel, otherwise display the filename.
    If Err Then
        MsgBox "User cancelled out of dialog"
    ElseIf oFileDlg.FileName <> "" Then
        MsgBox "File " & oFileDlg.FileName & " was selected."
    End If
End Sub

---- edit ende ----

Gruß

------------------
Gruß
SEHER
www.inventor-tools.de

   

[Diese Nachricht wurde von SEHER am 04. Nov. 2011 editiert.]

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

---

Hallo,

Inventor hat ein eigenes Clipboard, damit kannst Du einen Namen in Dialogen vorbelegen. Siehe dazu in der API-Hilfe:
CommandManager.PostPrivateEvent

HTH

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Online 3D-Ersatzteilkataloge

Meine Tochter auf Youtube

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