Beiträge: 305
Registriert: 21.03.2006

erstellt am: 16. Mai. 2006 12:56      <-- editieren / zitieren -->      Unities abgeben: 

Dateiname = GetSaveName("AutoCAD DWG|*.dwg|", "dwg", "C:\TEMP\", "Mein Speichern", "TEST.DWG")

Beiträge: 305
Registriert: 21.03.2006

erstellt am: 16. Mai. 2006 13:20      <-- editieren / zitieren -->      Unities abgeben: 

Filter1 = "DWG-Datei (*.dwg)|*.dwg|DXF-Datei (*.dxf)|*.dxf|"  '???

Beiträge: 1096
Registriert: 24.07.2002

erstellt am: 16. Mai. 2006 13:23      <-- editieren / zitieren -->      Unities abgeben: 

Du kannst die verschiedenen Dateitypen bei einem CommonDialog einfach aneinander reihen:
"DXF Files (*.dxf)|*.dxf|DWG Files (*.dwg)|*.dwg".

Getrennt werden diese nur durch folgendes Zeichen : | (AltGr+< ).
Diese Dateien werden dir dann getrennt angezeigt.

Beiträge: 1096
Registriert: 24.07.2002

erstellt am: 16. Mai. 2006 19:23      <-- editieren / zitieren -->      Unities abgeben: 

Bei Stellis Version ohne Formular kannst du die Angaben wie folgt aneinander reihen:
dateiname = GetSaveName("AutoCAD DWG|*.dwg|DXF-File|*.dxf|", "dwg|dxf", "C:\TEMP\", "Mein Speichern", "TEST.DWG")

Dann gibt dir der Dateiname bei Wahl DXF-File auch den Dateinamen mit der Endung DXF zurück.

Bei einem Formular mit dem CoomonDialog musst du über me.Commondialog1.Filename gehen. Da wird dir die Endung auch mit Angegeben.

Danach musst du halt ein Abfrage machen und die Datei unter dem Namen und der Dateiendung speichern.

Beiträge: 1195
Registriert: 17.08.2005

erstellt am: 02. Jun. 2006 16:17      <-- editieren / zitieren -->      Unities abgeben: 

besser als PM ist es hier im Board zu fragen, hier können direkt alle das Problem lösen und die Antwort ist dann alle zugänglich.

schöne Pfingsten

Stelli

Beiträge: 1195
Registriert: 17.08.2005

erstellt am: 02. Jun. 2006 16:37      <-- editieren / zitieren -->      Unities abgeben: 

Lösung siehe unten. Musst du nur noch in deine Funktion einbauen. Z.B. als Parameter der geändert wird.

Code:

---

  If GetSaveFileName(OFN) Then
    Temp$ = OFN.lpstrFile
    'Alles nach dem NULL-Zeichen verwerfen
    n = InStr(Temp$, vbNullChar)
    If n > 1 Then
      GetSaveName = Left$(Temp$, n - 1)
    Else
      GetSaveName = ""
    End If
  Else
    GetSaveName = ""
  End If
  ' Hier kannst du die gewählte Option abfragen
  Debug.Print "gewählter Index: " & OFN.nFilterIndex
 
End Function

---

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

Beiträge: 305
Registriert: 21.03.2006

erstellt am: 06. Jun. 2006 10:31      <-- editieren / zitieren -->      Unities abgeben: 

Tschulgulung für unangebrachtes PMen ("Tschulgulung" sagt mein Dreijähriger). Ich wollte die Allgemeinheit nicht mit dem so aufgewärmten Thread belästigen. Wenn ich das mit PM ausreichend oft abgeschrieben habe, poste ichs als Anhang.

Bei der Gelegenheit: Weiß jemand, wie in AC 2007 die SaveAs-Parameter für Speichern unter DWG und DXF 2007 heißen? Vermutlich doch ac2007_dwg und ac2007_dxf? Ich habe 2007 auf dem Tisch liegen, aber mich noch nicht getraut.

Beiträge: 305
Registriert: 21.03.2006

Beiträge: 1096
Registriert: 24.07.2002

erstellt am: 06. Jun. 2006 11:05      <-- editieren / zitieren -->      Unities abgeben: 

Du liegst schon richtig. Die Hilfe gibt dieses Beispiel:

Sub Example_Version()
    ' This example returns AutoCAD version as a string
   
    Dim version As String
    version = ThisDrawing.Application.version
    MsgBox "This is AutoCAD Version " & version, , "Version Example"

End Sub

Bei mir gibt Autocad "16.2s (LMS Tech)" wieder, was der Version 2006 entsprechen sollte.

Beiträge: 1195
Registriert: 17.08.2005

erstellt am: 06. Jun. 2006 15:11      <-- editieren / zitieren -->      Unities abgeben: 

schön das es mit dem Filterindex geklappt hat.

Die AutoCAD Version kannst du auch so bestimmen.

Stelli