anchor.diff:    )
     (defun c:2()
       ; Set current date to revision box
  +    (LM:vl-setattributevalue (vlax-ename->vla-object (car (entsel "\nSelect revision\nbox to set current date: "))) "DATE" (PrintSupersedDate))
  +  )
  +  (defun c:22()
  +    ; Set current date to revision box with long format
       (LM:vl-setattributevalue (vlax-ename->vla-object (car (entsel "\nSelect revision\nbox to set current date: "))) "DATE" (PrintSupersedDate))
     )
     (defun c:3 ( / doNotEscapeVariable ent_name input currentRevisionLetter )
  
positive.code:     "TITLE BLOCK CHEATSHEET\n
      Revision box date:
          1\tRemove date
          2\tSet current date\n
      Revision letter:
          3\tup/down\n
      Not Issued Yet note:
  
negative.code:   (setq d (rtos (getvar "CDATE") 2 6))
    (strcat (substr d 7 2) "." (substr d 5 2) "." (substr d 3 2))
  )
  (defun DT:Date ( mode / d )
    ; Returns a string with the date formated as requested:
    ; mode=1 - DD.MM.YY
    ; mode=2 - DD.MM.YYYY
    (if mode
      (if (= 'int (type mode))
        (cond
          ( (= 1 mode)
            (setq d (rtos (getvar "CDATE") 2 6))
            (strcat (substr d 7 2) "." (substr d 5 2) "." (substr d 3 2))
          );END subcond
          ( (= 2 mode)
            (setq d (rtos (getvar "CDATE") 2 6))
            (strcat (substr d 7 2) "." (substr d 5 2) "." (substr d 1 4))
          );END subcond
        );END cond
        (progn (princ "\nERROR @ DT:Date > mode is not an integer\n") nil)
      );END if
      (progn (princ "\nERROR @ DT:Date > mode = nil\n") nil)
    );END if
  
    ; v0.0 - 2017.03.28 - First issue
    ; Author: David Torralba
    ; Last revision: 2017.03.28
  )
  (defun ReloadXref (file)
    (command "-xref" "R" file)
  )
  