Hallo zusammen,
ich stehe glaube ich auf dem Schlauch. Bei Speichern oder Öffnen Dialog kann ich doch den "Dateinamen" schon mit einen Dateinamen vorbelegen mit z.B.:
oFileDlg.FileName = "test.ipt"
' Create a new FileDialog object.
Dim oFileDlg As Inventor.FileDialog = Nothing
Call oInventorApp.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 = "Neue Referenzdatei"
' Set the initial directory that will be displayed in the dialog.
Dim quellpfad As New cls_Pfad
oFileDlg.InitialDirectory = quellpfad.Pfad(oInventorApp.ActiveDocument.FullFileName)
' Set the flag so an error will be raised if the user clicks the Cancel button.
oFileDlg.CancelError = True
oFileDlg.FileName = "test.ipt"
oFileDlg.ShowOpen()
Wenn ich den Code ausführe steht leider bei Dateiname nichts, mach ich da was falsch?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP