;;; ;;; ;;; Author: ;;; Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: 1991-2001 ;;; Edited: 4-21-2010 ;;; ;;;Writes activity lines to :\ACAD\DWG_EDIT.LOG ;;; ;;;Requires: DOSLIB incorporated by permission from Robert McNeel & Associates ;;; http://www.en.na.mcneel.com/doslib.htm ;;; (DEFUN dlog (/ tnam datm dwgp logf dwgn ostr curdt opl1 opl2 slen) (IF debug_pads ;indents debug text upon entering this function (IF (>= (STRLEN debug_pads) 15) (SETQ debug_pads (SUBSTR debug_pads 1 15)) (SETQ debug_pads (STRCAT debug_pads "\t")) ) (SETQ debug_pads "\t") ) ;_ end of IF (IF debug_dlog (PROGN (PRINC (STRCAT "\n" debug_pads "DLOG: Begin execution of function. ")) (PRINC) ) ;_ end of PROGN ) ;_ end of IF (IF check_for_doslib NIL (LOAD "check_for_doslib" "\nFile CHECK_FOR_DOSLIB.LSP not loaded! ") ) ;_ end of IF (IF (AND DOS_SYSDIR DOS_SPLITPATH) NIL (check_for_doslib) ) ;_ end of IF (IF dos_sysdir (PROGN (SETQ dos_root_drive (CAR (dos_splitpath (dos_sysdir)))) (DOS_DRIVE dos_root_drive) (DOS_CHDIR "\\") (DOS_MKDIR (STRCAT dos_root_drive "\\ACAD\\")) (SETQ tnam (IF onam onam (IF (AND DOS_USERNAME (DOS_USERNAME)) (DOS_USERNAME) "Unknown" ) ;_ end of if ) ;_ end of if ) ;_ end of setq (SETQ dmach (IF DOS_COMPUTER (STRCAT " on " (DOS_COMPUTER)) "" ) ;_ end of if ) ;_ end of setq (SETQ datm (RTOS (GETVAR "cdate") 2 6)) (SETQ dwgp (GETVAR "dwgprefix") logf (OPEN (STRCAT dos_root_drive "acad/dwg_edit.log") "a") dwgn (GETVAR "dwgname") ) ;_ end of SETQ (COND ((AND dos_root_drive (NOT logf)) (ALERT (STRCAT "Failed to open " dos_root_drive "acad/dwg_edit.log")) ) ((NOT logf) (ALERT (STRCAT "Failed to open /acad/dwg_edit.log! is NIL!")) ) ) ;_ end of COND (IF (AND prev_filespec (WCMATCH (STRCASE prev_filespec) (STRCASE (STRCAT dwgp dwgn)))) NIL (SETQ onam NIL) ) ;_ end of IF (SETQ ostr (IF (OR lsadler-report cooper-report) (STRCAT " QSAVE-DBMOD=" (ITOA (GETVAR "DBMOD")) (IF (< (GETVAR "DBMOD") 10) "." "" ) ;_ end of IF "........: " ) ;_ end of STRCAT (IF onam "" (IF (AND fstr (WCMATCH fstr " Activated.............: ")) fstr " Opened for editing....: " ) ;_ end of IF ) ;_ end of if ) ;_ end of IF curdt (STRCAT (SUBSTR datm 5 2) "-" (SUBSTR datm 7 2) "-" (SUBSTR datm 1 4) " " (SUBSTR datm 10 2) ":" (SUBSTR datm 12 2) ":" (SUBSTR datm 14 2) ) ;_ end of strcat ) ;_ end of SETQ (IF lsadler-report (SETQ lsadler-report NIL) ) ;_ end of IF (IF (= (SUBSTR dwgp 1 3) (SUBSTR dwgn 1 3)) (SETQ slen (+ (- (STRLEN dwgn) (- (STRLEN dwgn) (STRLEN dwgp))) 1) ) ;_ end of setq (SETQ slen 1) ) ;if (IF (AND fstr (/= fstr "")) nil (IF (EQ ostr "") (SETQ fstr " Activity not specified: ") (IF (WCMATCH ostr " QSAVE-DBMOD*") (SETQ fstr ostr) (SETQ fstr "") ) ;_ end of IF ) ;_ end of if ) ;_ end of if (SETQ opl1 (STRCAT dwgp (SUBSTR dwgn slen) (IF (WCMATCH (STRCASE dwgn) "*.DWG") "" ".DWG" ) ;_ end of strcat dmach " " (GETVAR "acadver") " by: " tnam ) ;_ end of strcat ) ;_ end of setq (IF (OR (EQ ostr fstr) (EQ ostr " Opened for editing....: ") ) ;_ end of OR (SETQ opl2 (STRCAT ostr curdt)) (SETQ opl2 (STRCAT fstr curdt)) ) ;_ end of if (IF (OR onam multi-onam) nil (PROGN (WRITE-LINE "" logf) (WRITE-LINE opl1 logf) ) ;_ end of progn ) ;_ end of if (WRITE-LINE opl2 logf) (SETQ onam tnam multi-onam NIL ) ;_ end of SETQ (IF logf (CLOSE logf) ) ;_ end of IF (IF (OR (NOT log_it_dwgname) (AND (NOT (WCMATCH (STRCASE log_it_dwgname) (STRCASE (GETVAR "dwgname")))) (NOT actstr) ) ;_ end of AND ) ;_ end of OR (PROGN (IF log_it NIL (LOAD "log_it" "\nFile LOG_IT.LSP not loaded! ") ) ;_ end of IF (IF log_it (PROGN (SETQ actstr "OPENED") (log_it) ;This func may be cause of crashes during startup ) ;_ end of PROGN ) ;_ end of IF ) ;_ end of PROGN ) ;_ end of IF (SETQ prev_filespec (STRCAT dwgp dwgn)) (PRINC) ) ;_ end of progn ;;; (ALERT "DOS_SYSDIR undefined! Drawing activity is not logged!") ) ;_ end of if (IF do_writelast NIL (LOAD "proj" "\nFile PROJ.LSP not loaded! ") ) ;_ end of IF (IF do_writelast (do_writelast) ) ;_ end of IF (IF debug_dlog (PROGN (PRINC (STRCAT "\n" debug_pads "DLOG: End execution of function. ")) (PRINC) ) ;_ end of PROGN ) ;_ end of IF (IF debug_pads ;unindents debug text upon leaving this function (SETQ debug_pads (SUBSTR debug_pads 2)) ) ;_ end of IF (PRINC) ) ;_ end of defun ;;;**************************************************************************** ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 0 0 0 nil T nil T) ;*** DO NOT add text below the comment! ***|;