Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  AutoCAD VBA
  Dialogbox zum Dateispeichern

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
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Dialogbox zum Dateispeichern (746 mal gelesen)
Björn Möller
Mitglied



Sehen Sie sich das Profil von Björn Möller an!   Senden Sie eine Private Message an Björn Möller  Schreiben Sie einen Gästebucheintrag für Björn Möller

Beiträge: 96
Registriert: 22.03.2004

AutoCad Map 2019 Topobase, MapKanal

erstellt am: 14. Jan. 2016 12:08    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 Forum,

ich habe ein Tool, dass per VBA PDF-Dateien erzeugt.
Beim Speichern wird eine Dialogbox zur Dateien-Benennung geöffnet.
Der Befehl funktionierte unter 32bit. Ichselbst habe ihn nie verstanden sondern nur abgekupfert.
Es wird auf eine comdlg32 zugegriffen und eine Funktion GetSaveFileName genutzt.
Nun unter 64bit funktioniert der Code nicht mehr.

Hat jemand von Euch eine Dialogbox zum Dateispeichern von nicht AutoCAD-Dateien unter 64bit am laufen und kann mir auf die Sprünge helfen?

Gruß Björn

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

bkrüger
Mitglied
Konstrukteur


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

Beiträge: 51
Registriert: 14.09.2014

erstellt am: 14. Jan. 2016 13:33    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 Björn Möller 10 Unities + Antwort hilfreich

Hallo Björn,
habe momentan kein ACad bei der Hand, im Inventor würde ich das mit dem
Filedialog machen (das sollte in jeder VBA-Umgebung funktionieren).
Im Folgenden nur das Nötigste, weitere Infos findet man in der Hilfe
Code:

Dim oFileDlg As FileDialog
Call ThisApplication.CreateFileDialog(oFileDlg)


falls da eine Fehlermeldung kommt, ggf. im VB-Editor unter Extras/Verweise bei "MS Scriting runtime" und/oder "MS Forms" die Häkchen setzen.
Jetzt Filter für pdf-dateien setzen:
Code:

oFileDlg.Filter = "PDF Files (*.pdf)|*.pdf|All Files (*.*)|*.*"


Aufruf der eigentlichen Speichern-Dialogbox mit
Code:

  oFileDlg.ShowSave


der gewählte Dateiname (komplett mit Pfad und Erweiterung) steht in 
Code:

oFileDlg.filename


Ist der leer, wurde der Dialog abgebrochen

Gruß Boris

[Diese Nachricht wurde von bkrüger am 14. Jan. 2016 editiert.]

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

rexxitall
Mitglied
Dipl. -Ing. Bau


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

Beiträge: 266
Registriert: 07.06.2013

Various: systems, Operating systems, cad systems, cad versions, programming languages.

erstellt am: 15. Jan. 2016 20:02    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 Björn Möller 10 Unities + Antwort hilfreich

Die Magie steckt im deklarieren des Windows API. Googe mal nach VBA 64bit PTRSAVE. Es gibt auch das komplette WINAPI 64 bit vordeklariert von Microsoft. Somit einfach die API deklarationen umschreiben und es tut wieder 

siehe auch
https://msdn.microsoft.com/de-de/library/office/gg264421.aspx
api text
https://www.microsoft.com/en-us/download/confirmation.aspx?id=9970
API Aufrufe 64bit
http://www.cadsharp.com/docs/Win32API_PtrSafe.txt

------------------
Wer
es nicht versucht, hat schon verlorn 
Und bei 3 Typos gibts den vierten gratis !
<<< for sale !

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)2023 CAD.de | Impressum | Datenschutz