(DEFUN c:xiupdate () (IF princprfx NIL (SETQ princprfx "[DEBUG] ") ) ;_ end of IF (IF debug_princs (PROGN (PRINC (STRCAT "\n" princprfx " Begin executing (c:xiupdate). ")) (PRINC)) ) ;_ end of IF (IF (AND (>= (ATOF (GETVAR "acadver")) 17) (SETQ field-dwgstamp-ss (SSGET "X" '((0 . "INSERT") (2 . "field-dwgstamp")))) ) (IF (OR (NOT xiupdate-time) (AND (> (-(GETVAR "cdate")0.000010)(CAR xiupdate-time)) (WCMATCH (CADR xiupdate-time)(STRCASE (GETVAR "dwgname"))) ) (NOT (WCMATCH (CADR xiupdate-time)(STRCASE (GETVAR "dwgname")))) ) (PROGN (IF (OR xilists (vl-vlx-loaded-p "xilists")) nil (LOAD "xilists.lsp" "\n\tFile XILISTS.LSP not loaded! ") ) ;_ end of if (IF (OR xilists (vl-vlx-loaded-p "xilists")) (PROGN (XIlists nil nil) (IF thisdwgxrefs NIL (SETQ thisdwgxrefs "No Xrefs")) (IF thisdwgimages NIL (SETQ thisdwgimages "No Images")) (COND ((AND thisdwgxrefs thisdwgimages) (IF (WCMATCH thisdwgimages "IMAGE*") NIL (IF (WCMATCH thisdwgimages "*`,*") (SETQ thisdwgimages (STRCAT "IMAGES: " thisdwgimages)) (SETQ thisdwgimages (STRCAT "IMAGE: " thisdwgimages)) ) ) (COMMAND "updatefield" field-dwgstamp-ss "") (PRINC "\n\tXref and Image lists have been updated. ") ) (thisdwgxrefs (COMMAND "updatefield" field-dwgstamp-ss "") (PRINC "\n\tXref list has been updated. Image list not determined. ") ) ;;; (thisdwgimages ;;; (IF (WCMATCH thisdwgimages "IMAGE*") ;;; NIL ;;; (IF (WCMATCH thisdwgimages "*`,*") ;;; (SETQ thisdwgimages (STRCAT "IMAGES: " thisdwgimages)) ;;; (SETQ thisdwgimages (STRCAT "IMAGE: " thisdwgimages)) ;;; ) ;;; ) ;;; (COMMAND "updatefield" field-dwgstamp-ss "") ;;; (PRINC "\n\tImage list has been updated. Xref list not determined. ") ;;; ) (T (PRINC "\n\tXref and Image lists have not been updated! ")) ) ;_ end of COND ) ;_ end of PROGN (PRINC "\n\tFile XILISTS.LSP was not loaded!\n\tXref and Image lists have not been updated! ") ) ;_ end of IF (SETQ xiupdate-time (LIST (GETVAR "cdate")(STRCASE(GETVAR "dwgname")))) (PRINC) ) ;_ end of PROGN ) ;_ end of IF (IF (< (ATOF (GETVAR "acadver")) 17) (PROGN (PRINC (STRCAT "\nc:xiupdate is for use with AutoCAD 2007 or greater. ")) (PRINC)) ) ) ;_ end of IF (IF debug_princs (PROGN (PRINC (STRCAT "\n" princprfx " End executing (c:xiupdate). ")) (PRINC)) ;_ end of PROGN ) ;_ end of IF (PRINC) ) ;_ end of DEFUN ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 0 nil nil nil T T) ;*** DO NOT add text below the comment! ***|;