Hot News aus dem CAD.de-Newsletter:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Dateiname in Speicher Dialog vorbelegen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   Dateiname in Speicher Dialog vorbelegen (138 mal gelesen)
Andreas01
Mitglied
Dipl.-Ing.(FH) Konstrukteur


Sehen Sie sich das Profil von Andreas01 an!   Senden Sie eine Private Message an Andreas01  Schreiben Sie einen Gästebucheintrag für Andreas01

Beiträge: 203
Registriert: 05.08.2004

Inventor 2020
i7
32 GB RAM
Quatro FX 4000
WIN10-64bit

erstellt am: 18. Mai. 2020 12:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik


Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 1604
Registriert: 15.11.2006

Windows 10 x64, Inventor 2020

erstellt am: 18. Mai. 2020 17:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Andreas01 10 Unities + Antwort hilfreich

Hallo

Wenn ich das teste, wird der Dateiname vorbelegt, so wie es soll. Ist der Dateiname bei dir wirklich fix der String "test.ipt" oder eine Variable? Ist die wirklich gefüllt?
Ich verwende InititalDirectory gar nicht, da ich noch nie erlebt habe, dass der Wert im Filedialog irgendwas bewirkt. Ich setze FileName als vollständigen Pfad mit Dokumentname.
Was machst du, wenn es test.ipt im quellpfad nicht gibt?

------------------
MfG
Ralf

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

Andreas01
Mitglied
Dipl.-Ing.(FH) Konstrukteur


Sehen Sie sich das Profil von Andreas01 an!   Senden Sie eine Private Message an Andreas01  Schreiben Sie einen Gästebucheintrag für Andreas01

Beiträge: 203
Registriert: 05.08.2004

Inventor 2020
i7
32 GB RAM
Quatro FX 4000
WIN10-64bit

erstellt am: 19. Mai. 2020 07:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


FileDialog_1.jpg

 
Hallo Ralf,

bei mir macht der das aber nicht. Ich habe den Dateinamen schon als Variable und festen String übergeben beides funktioniert nicht.
Ich habe auch versucht in FileName den vollständigen Pfad einzutragen leider auch ohne Erfolg.

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik


Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 1604
Registriert: 15.11.2006

Windows 10 x64, Inventor 2020

erstellt am: 20. Mai. 2020 08:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Andreas01 10 Unities + Antwort hilfreich

Hallo

Ich habe es mit Inventor 2020 und 2021, jeweils aktueller Patchstand, ausprobiert.
2020 respektiert das InitialDirectoy-Property, 2021 ignoriert es.
Beide setzen das initiale Verzeichnis korrekt, wenn im FileName Property der komplette Pfad vorgegeben wird.
2020 füllt das Feld Dateiname nicht, 2021 füllt es.
Der ShowSave-Dialog macht alles korrekt, soweit ich sehen konnte.

Ich halte es für einen Bug, den Autodesk jetzt verändert hat. Beseitigt kann man ja so nicht sagen.

Du verwendest Version 2018?

------------------
MfG
Ralf

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

Andreas01
Mitglied
Dipl.-Ing.(FH) Konstrukteur


Sehen Sie sich das Profil von Andreas01 an!   Senden Sie eine Private Message an Andreas01  Schreiben Sie einen Gästebucheintrag für Andreas01

Beiträge: 203
Registriert: 05.08.2004

Inventor 2020
i7
32 GB RAM
Quatro FX 4000
WIN10-64bit

erstellt am: 20. Mai. 2020 09:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Ralf,

wir arbeiten noch mit 2020. Du hast aber Recht, habe es mit Inventor 2021 ausprobiert und die Vorbelegung mit den Dateinamen funktioniert. Also ist es wohl ein Bug?

Danke.

Gruß
Andreas

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2020 CAD.de | Impressum | Datenschutz