Reminder Popup

[cvanriper]

Several years ago, I had a LISP running on all my drafters computers to remind them to archive drawings if needed (before revisions are made and original files are overwritten). This was on a full version (2017, I think), not LT. It worked great, but we upgraded to 2021 and the lisp never migrated over and it was forgotten. The lisp required a block that was inserted into the template to work; The block was nothing more than a simple point, nothing noticeable. I would like to use this again and set up a new one to remind me to SAVE. I lost a lot of work yesterday because I clicked NO when it asked me if I wanted to save while I was closing a drawing and I "get in the zone" and sometimes forget to save periodically; ROOKIE MISTAKE! Please save the lectures. I have attached the LISP file and the block. The problem I am having is I cannot remember how to get it to work. I am using AutoCAD LT 2026 now.

[CodeDing]

@cvanriper ,

You don't need a block to accomplish something like that. Just add a dictionary to the DWG. Here, use these functions:

(defun ArchiveReminder-Set ( / )
  (dictadd
    (namedobjdict)
    "ARCHIVE_REMINDER"
    (entmakex
      '((0 . "DICTIONARY") (100 . "AcDbDictionary"))
    )
  )
)

(defun ArchiveReminder-Check ( / )
  (if (dictsearch (namedobjdict) "ARCHIVE_REMINDER")
    (alert "Reminder: Before editing this drawing,\nplease archive first if req'd")
  )
)

(defun ArchiveReminder-Remove ( / d)
  (if (setq d (dictsearch (namedobjdict) "ARCHIVE_REMINDER"))
    (entdel (cdr (assoc -1 d)))
  )
)

Best,

~DD

[BlackBox_]

I don't use LT, does it support SAVETIME for automatic/incremental saves? 

If LT supports the UNDEFINE Command, in lieu of your block/dictionary reminder, you might consider using LISP (defun) to define a custom SAVE or QSAVE Command when LT first launches, that prompts you to archive first (yes/no) then does the SAVE(s) for you. 

HTH

[Kent1Cooper]

Does LT work with an acaddoc.lsp file?  [I'll let you research that in Help.]  That would be my suggestion for getting it to work -- it can run that AutoLisp routine [whether you use the Block or the Dictionary approach] upon opening every drawing.

[CodeDing]

---

@Kent1Cooper wrote:

Does LT work with an acaddoc.lsp file?

---

Yes, just named different:

https://help.autodesk.com/view/ACDLT/2026/ENU/?guid=GUID-FDB4038D-1620-4A56-8824-D37729D42520 

~DD

[Kent1Cooper]

---

@CodeDing wrote:
Yes, just named different:

---

So, @cvanriper, if you're using Acad LT but not for Mac, you should be able to just save your code directly into a file called acadltdoc.lsp [it doesn't even need to be in a separate file, or have a routine name], located in some place where everyone's AutoCAD knows to look for it, and that will be run every time anyone creates a new drawing or opens an existing one.  IF you already have such a file, you can just add that code into it.  Or keep it as the specific file you have, and put

(load "Archive Reminder")

into acadltdoc.lsp to have it run every time.