---

moin,

ich erstelle mittels eines reactors eine sicherungskopie der gerade bearbeiteten zeichnung auf meinem rechner.
nach einer gewissen zeit sollen diese sicherungsdateien wieder gelöscht werden.
wie kann ich das enstehungsdatum ermitteln ?

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

MfG
Frank

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

---

(vl-file-systime "filename")
kanndassein?

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo Frank,

schau mal dort http://www.industrie24.com/bbs/read.php?f=5&i=7395&t=7392
Da geht es zwar um Laufwerke, zeigt aber wie man aus VLisp auf das ActiveX Dateisystem zugreifen kann.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

danke für das feedback,

aber da ich ja nunmal faul und bequem bin suche ich noch eine funktion, die mir das alter einer datei in tagen angibt. ist euch so etwas schon mal untergekommen ?

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

MfG
Frank

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

---

weiß nicht, müsste mal suchen.
da ich auch langsam faul und bequem werde, fällt die antwort so kurz aus

Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

nach heftiger suche damals ist mir sowas untergekommen, hab's aber leider wieder verlegt - sorry :-(

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

:-)

ok, dann muss ich wohl meine faulheit überwinden und mich selbst daran machen ! vielleicht kriege ich es ja hin.

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

MfG
Frank

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

---

Hier mal ein kleiner Denkanstoß:

(VL-LOAD-COM)

;;; Ermittelt das aktuelle Datum.
;;; Rückgabe ist eine Liste im Format (Jahr Monat Tag) des aktuellen Datums
;;; zurückgibt.
(defun wec_GetDate(/ currYear CurrMonth CurrDay)
  (SETQ currYear (SUBSTR (RTOS (GETVAR "CDATE") 2 0) 1 4))
  (SETQ currMonth (SUBSTR (RTOS (GETVAR "CDATE") 2 0) 5 2))
  (SETQ currDay (SUBSTR (RTOS (GETVAR "CDATE") 2 0) 7 2))

  (LIST
    (ATOI currYear)
    (ATOI currMonth)
    (ATOI CurrDay)
    )
  );;; End Defun

(SETQ filedate (VL-FILE-SYSTIME "E:\\test.dwg"))
(SETQ currDate (WEC_GETDATE))

(SETQ filedate (LIST
(CAR filedate)
(CADR filedate)
(CADDR filedate)
)
      )

(SETQ fileAge (MAPCAR '- currDate filedate))

(PRINC fileAge)

Ich schließe mich dem Faulsein an und überlasse das Berechnen des Alters in Tagen jemand anderem 

Ciao,
WolfgangE

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

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

---

moin,

also ich habe mir mal ein paar gedanken gemacht ! das ist ja alles gar nicht so kompliziert :

tage von der geburt jesu bis zum datum der zeichnung bzw. bis heute =
  jahr * 365 + summe d. tage (monate - 1) + tage des aktuellen monates

mathematisch bestimmt nicht korrekt ausgedrücktn !
alter = tage bis z. heutigen datum - tage bis z. speicherdatum

ich habe die funktion auch schon fertig, aber noch nicht für die öffentlichkeit angepasst. wen es interessiert...

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

MfG
Frank

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

---

.. für die erste Rechnung reicht deine Näherung, aber :
Für die Berechnung von Datumsdifferenzen gibt es das sogenannte Julianische Datum. Auch ACAD verwendet dies u.a. in der Sysvar "DATE" und in den "DWGPROPS" (GC 40 / 41 /42 )
... dies nur als Zusatzinfo für die ganz genauen.( und weil ich mich grade mit beschäftigt habe <grins> )

Nähere Infos zur Berechnung des Julianischen Datums findes du unter http://www.ortelius.de/kalender/calc_de.php  .
oder als Fertigfunktion in der julian.lsp der E-Tools!

Gruß Thomas

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

[Diese Nachricht wurde von CADmium am 22. Jan. 2004 editiert.]

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