---

Hallo

Ist es möglich über die API herauszufinden ob ein Teil, Baugruppe oder eine Zeichnung schon gespeichert worden ist?

------------------
Gruss Frank

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

---

Hallo Frank

Set SWModel = SWApp.ActiveDoc
If Not SWModel Is Nothing Then
filename = SWModel.GetTitle()
End If

wenn filename ".sld" enthält ist es schon gespeichert

------------------
Gruß Ingo

Feuer & Flamme Leipzig 2012

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

---

Zitat:

---

Original erstellt von INKN:
Hallo Frank

Set SWModel = SWApp.ActiveDoc
If Not SWModel Is Nothing Then
filename = SWModel.GetTitle()
End If

wenn filename ".sld" enthält ist es schon gespeichert

---

Hallo,
das funktioniert so nur dann, wenn die Windows-Explorer Optionen entsprechend sind.

Besser ist:

ModelDoc2::GetPathName

Der zurückgegebene String ist leer, wenn das Model noch nicht gespeichert ist.

Gruß,
d_b

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

---

Hallo

Die Lösung von Ingo hatte ich auch zuerst in erwägung gezogen aber da ist ja das mit den Optionen in dem Windows-Explorer. Aber die Lösung von d_b muss ich mir mal genauer anschauen.

Danke für die Antworten.

------------------
Gruss Frank

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

---

Hmmm..da stellt sich dann die weitere Frage:
Mit GetPathName kann man feststellen, ob das Dingens schon mal gespeichert wurde, aber wie kann man feststellen, ob es seit der letzten Speicherung geändert wurde?

ciao

------------------
Klaus Massler

www.al-ko.de
privat...
KLAMM? Was ist KLAMM?

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

---

Hallo Klaus,

es gibt mit ModelDoc.GetSaveFlag eine Funktion, mit der man das DirtyFlag abfragen kann, dass in den aller-aller-aller-meisten Fällen auch richtig gesetzt ist; wenn das aucf True steht, wurde noch nicht gespeichert, bei False ist es nicht notwendig zu speichern.

Hab das in einem Makro von mir drin (http://solidworks.cad.de/mm_13.htm), da kannst du sehen, wie es eingesetzt werden kann.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de
KLAMM? Was ist KLAMM?

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

---

Und bei neu erstellten Modellen steht das auch auf "true"? Dann ist das "ModelDoc2::GetPathName" für diesen Zweck ja hinfällig.

------------------
Klaus Massler

www.al-ko.de
privat...
KLAMM? Was ist KLAMM?

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

---

Hallo,

der sicherste Weg ist auf FileExist mit FilesystemObject zu prüfen...

Reference auf Scrrun.dll setzen

Dim fsoObject as FilesystemObject
set fsoObject = New FileSystemObejct

if fsoObject.FileExist(sGetPathName)= True Then
'Datei ist vorhanden
endif

------------------
Marco Kreutz
info@hitteam.de
http://www.hitteam.de

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

---

Zitat:

---

Original erstellt von Oberparleiter:
Hallo

Ist es möglich über die API herauszufinden ob ein Teil, Baugruppe oder eine Zeichnung schon gespeichert worden ist?

---

Im Sinne dieser Fragestellung ist die Lösung von d_b sicher die Beste.
Richtig ist auch, für den, der wissen möchte, ob die Datei "dreckig" ist, den Weg über ModelDoc2.GetSaveFlag zu gehen.

Nicht ganz kapiert habe ich, welche Aussage denn mit fsoObject.Exist(...) getroffen werden soll. Das kann meiner Meinung nach nur die Aussage sein: auf einem per FileSystemObject erreichbaren und zum Auflisten berechtigten Pfad existiert eine Datei mit dem angegebenen Namen (der nicht der der Zeichnung sein muss, oder wenn, dass man diesen per GetPathName ermittelt hat, womit wir wieder bei d_b wären).

Übrigens: Vorsicht bei Verwendung von Verwaltungssoftware, dann können die Pfade wieder ganz anders sein und der auflistende Zugriff ist auch nicht immer garantiert.

Gruß, Armin

------------------

Meine bescheidene Heimatseite.

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

---

Hallo,

so jetzt folgt der vollständige Code:
Dammit kann nun geprüft werden ob die Datei lokal gespeichert wurde und ob die Datei angefasst wurde (GetSaveFlag)

Dim swApp          As SldWorks.SldWorks
Dim fso            As FileSystemObject
Dim sFullname      As String
Set fso = New FileSystemObject

Set swApp = CreateObject("SldWorks.Application")

sFullname = swApp.ActiveDoc.GetPathName

If fso.FileExists(sFullname) = False Then
    MsgBox "Datei wurde noch nicht gespeichert..."
Else
    MsgBox "Datei existiert."
End If

If swApp.ActiveDoc.GetSaveFlag = False Then
    MsgBox "Datei wurde noch nicht angefasst..."
Else
    MsgBox "Datei wurde angefasst..."
End If

------------------
Marco Kreutz
info@hitteam.de
http://www.hitteam.de

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

---

Hallo

Wow jetzt bin ich fast sprachlos...... Danke.

------------------
Gruss Frank

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