---

Hallo zusammen,
wie bekomm ich denn raus wann die momentan aktive Zeichnung gespeichert wurde ?

(vl-file-systime
  (vla-get-fullname
    (vla-get-activedocument (vlax-get-acad-object))
  )
)

geht nicht weil die Datei ja gerade geöffnet ist. 

------------------
Gruß
Andreas

http://kraus-cad.de

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

---

Hi,

mir fallen zwei Alternativen ein:
a. Dein Code könnte vielleicht funktionieren, wenn du die Datei schreibgeschützt in Acad öffnest und
b. Das FileSystemObject kann eine Eigenschaft DateLastModified auslesen. Die gibt zwar IMHO das julianische Datum zurück, aber dafür gibt's ja Funktionen in der Julian.lsp

Gruß
CADchup

------------------
CADmaro.de

[Diese Nachricht wurde von CADchup am 20. Jan. 2011 editiert.]

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

---

hallo andreas,

ein ansatz waere vielleicht:

(setq fso  (vlax-create-object "Scripting.FilesystemObject"))
(setq fo (vlax-invoke-method fso 'GetFile "c:\\name.txt))

(vlax-get-property fo 'DateCreated)
(vlax-get-property fo 'DateLastAccessed)
(vlax-get-property fo 'DateLastModified)

wie du dann aber mit diesen werten umgehst -> keine ahnung

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

gibt's dafür nicht die sysvar tdupdate?
[EDIT]
also einfach so:
(getvar "tdupdate")
oder für eine lesbare Ausgabe:
(menucmd "M=$(edtime, $(getvar,tdupdate),DDDD\",\" DD MO YYYY - HH:MM:SS)")
[/EDIT]

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

      http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 20. Jan. 2011 editiert.]

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

---

Danke ich glaub da geht was.

Das FileScriptingObject hab ich mir auch schon angeschaut aber da bekomm ich mit:

(vlax-dump-object fso t)

; IFileSystem3: FileSystemObject
; Eigenschaftswerte:
;  Drives (RO) = #<VLA-OBJECT IDriveCollection 0cec4740>
; Unterstützte Methoden:
;  BuildPath (2)
;  CopyFile (3)
;  CopyFolder (3)
;  CreateFolder (1)
;  CreateTextFile (3)
;  DeleteFile (2)
;  DeleteFolder (2)
;  DriveExists (1)
;  FileExists (1)
;  FolderExists (1)
;  GetAbsolutePathName (1)
;  GetBaseName (1)
;  GetDrive (1)
;  GetDriveName (1)
;  GetExtensionName (1)
;  GetFile (1)
;  GetFileName (1)
;  GetFileVersion (1)
;  GetFolder (1)
;  GetParentFolderName (1)
;  GetSpecialFolder (1)
;  GetStandardStream (2)
;  GetTempName ()
;  MoveFile (2)
;  MoveFolder (2)
;  OpenTextFile (4)

Wie kommt man denn zu der Info mit DateLastModified ?
Und das wichtigste was sagt mir die zurückgegebene Zahl 40563.7 ?
Wenn ich das z.B. mit (getvar "date") = 2.45558e+006 vergleiche sieht das auf den ersten Blick ganz anders aus.

------------------
Gruß
Andreas

http://kraus-cad.de

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

---

es gibt doch die methode GetFile beim FileSystemObject.
wenn du also
(setq fo (vlax-invoke-method fso 'GetFile "c:\\name.txt))
anwendest, bekommst du

; IFile: File Interface
; Eigenschaftswerte:
;  Attributes = 32
;  DateCreated (RO) = 40487.4
;  DateLastAccessed (RO) = 40563.6
;  DateLastModified (RO) = 40553.6
;  Drive (RO) = #<VLA-OBJECT IDrive 0d320678>
;  Name = "Zeichnung3.dwg"
;  ParentFolder (RO) = #<VLA-OBJECT IFolder 0d320a10>
;  Path (RO) = "c:\\name.txt"
;  ShortName (RO) = "name.txt"
;  ShortPath (RO) = "c:\\name.txt"
;  Size (RO) = 640864
;  Type (RO) = "AutoCAD-Zeichnung"
; Unterstützte Methoden:
;  Copy (2)
;  Delete (1)
;  Move (1)
;  OpenAsTextStream (2)

im vb gibts dafuer die funktion FormatDateTime. ich weiss aber nicht, was die macht.

aber eigentlich sollte doch das von henning genau das sein, was du haben wolltest.

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

Hallo Andreas,

Zitat:

---

Original erstellt von Andreas Kraus:
Hallo zusammen,
wie bekomm ich denn raus wann die momentan aktive Zeichnung gespeichert wurde ?

---

bei der Zeichnung kontrollieren ich so, ob sie gespeichert ist:
(setq idbmod (getvar "dbmod"))
(if (>= idbmod 1) ; nicht gespeichert
  (progn
    ; mach etwas
  ) ; progn
) ; if

Viele Grüße
Bernd

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

---

Jaaaa, (getvar "tdupdate")
ich hatte wohl gestern meinen blinden Tag 

------------------
Gruß
Andreas

http://kraus-cad.de

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