Ein Lisp-Programm protokolliert und dokumentiert die Vorgänge.
Die folgende Funktion schreibt die Ausführung eines Befehls in die Datei c:\protocol.lis (kann auch auf eine andere geändert werden...)
(DEFUN protocol (arg / file datei datum prefix)
(SETQ pre (GETVAR "dwgprefix"))
(SETQ dwg (GETVAR "dwgname"))
(SETQ dwg (SUBSTR dwg 1 (- (STRLEN dwg) 4)))
(SETQ datei (STRCAT pre dwg))
(SETQ datum (+ (GETVAR "cdate") 0.0000005))
(SETQ heute (lastdate))
(SETQ file (OPEN "c:/protocol.lis" "a"))
(princ (STRCAT (IF heute "\n" "\n\n") (substr (rtos datum 2 4) 1 4) "."
(substr (rtos datum 2 4) 5 2) "."
(substr (rtos datum 2 4) 7 2) "\t"
(substr (rtos datum 2 4) 10 2) "."
(substr (rtos datum 2 4) 12 2)
"\t" arg
"\t" datei)
file
)
(close file)
(PRINC)
)
Die folgende Definition ersetzt Autocad-Befehle und gibt vor, was protocol zu schreiben hat. Im Prinzip eingnen sich viele Autocad-Befehle (in meinem Fall Dateioperationen) zur Protokollierung.
Die Funktion protocol kann auch in eigenen Lisp´s zum Einsatz kommen.
(defun C:qsave()
(protocol "SAVE ")
(initdia)
(COMMAND "._qsave")
(PRINC)
)
Wenn jeder im Team seine Protokolle am Server speichert (mit eigenen Dateinamen - z.b. michelangelo.lis) dann ist das dokumentiert.
p.s.: Ich kenne dein Grundproblem kein freier Abend, kein Wochenende...
------------------
Gruß aus Wien
Bernhard
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP