---

Hallo,

ich habe ein grosses Problem: Ich soll für einen ganzen Auftrag (ca. 100 Pläne) in jedem Plan im Schriftkopf einen Block einfügen mit Inhalt Xrefname, -pfad und -datum. Name und Pfad krieg ich über Lisp hin, aber wie krieg ich das Datum? Kann mir einer helfen?

Danke

Marco

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

---

Hallo Marco,

welches Datum meinst du?
Das aktuelle Datum oder das Datum der Datei (file_systime)?

Hier ein Beispiel für beides :
(defun dtm ( / akt_datum file_systime file_datum)
  (setq akt_datum (menucmd "M=$(edtime,$(getvar,date),DD.MO.YY)"))
  (princ (strcat "\n Aktuelles Datum = " akt_datum))
;
  (vl-load-com)
  (setq file_systime (vl-file-systime "C:/Programme/Autodesk/MDT6/acad.exe")
file_datum (strcat (txt-2-stellig (nth 3 file_systime)) "." ; Tag
  (txt-2-stellig (nth 1 file_systime)) "." ; Monat
  (txt-2-stellig (nth 0 file_systime)))) ; Jahr
  (princ (strcat "\n File Datum = " file_datum))
  (princ)
)
; --------------------------------------
(defun txt-2-stellig (Zahl / tmp)
  (setq tmp (strcat "0" (itoa Zahl)))
  (substr tmp (1- (strlen tmp)))
)
; --------------------------------------

Helmut

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

---

Danke, mit dem Befehl "vl-file-systime" kann ich mir das Datum holen. Dazu muss ich nur meine Pfadverknüpfung mit einbinden.

Marco

[Diese Nachricht wurde von Marco Müller am 04. November 2003 editiert.]

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