Get a list of used AutoLISP commands

[Nikon]

Good day to everyone.
Is it possible to display a list of AutoLISP commands before closing and saving the dwg file?
For example, in notepad or text in dwg.
 

[GLAVCVS]

I assume you're referring to commands defined in Lisp code.

One way to do this is to call ATOMS-FAMILY, save its contents in a variable, call ATOMS-FAMILY again when the drawing is about to be closed, compare the difference, and filter out symbols that don't begin with "c:"

 

But why do you need to do this?

 

[Lee Mac]

Perhaps this old program?

https://lee-mac.com/lisplog.html

[Nikon]

1 hour ago, Lee Mac said:

Perhaps this old program?

https://lee-mac.com/lisplog.html

LISPLogV1-0.lsp is a very convenient program. Thanks @Lee Mac.
Is it possible to get a list of lisp commands in the drawing? That is, when saving a drawing, a request appears: 
"Save a list of lisp commands?" and the text with the commands is inserted into the drawing?

[Nikon]

3 hours ago, GLAVCVS said:

But why do you need to do this?

I often have to go back to old drawings. I have over 300 lisp programs. 
I would like the drawing to have a list of programs used to continue working, 
but over time it is not always possible to remember the name of the desired program.

[GLAVCVS]

This could be one way to do it:

 

(defun fota (/ arch cad cmd)
  (defun pregunta (a b) (if (= (car b) "CLOSE") (if (= (vlax-invoke-method (vlax-create-object "wscript.shell") 'popup "Print commands on screen?" 0 "Nikon's doubts" 4) 6) (c:cmdsCargados))))
  (foreach sim (atoms-family 0) 
    (if (wcmatch (setq cmd (strcase (vl-princ-to-string sim) T)) "c:*")
      (setq *afI* (cons sim *afI*))
    )
  )
  (setq *r* (vlr-command-reactor nil '((:vlr-commandwillStart . pregunta))))
)

(defun c:cmdsCargados (/ cad cadCmds arch linea)
  (foreach sim (atoms-family 0)
    (if	(not (member sim *afI*))
      (if (wcmatch (setq cad (strcase (vl-princ-to-string sim) T)) "c:*")
	(setq cadCmds (strcat (if cadCmds (strcat cadCmds "\n") "\\C1Commands loaded during last sesion:\\C256\n") (substr cad 3)))
      )
    )
  )
  (if cadCmds (vla-AddMText (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) (vlax-3d-point (getpoint "\nInsertion point...")) 100 cadCmds))
  (princ)
)
(fota)

 

[GLAVCVS]

4 minutes ago, GLAVCVS said:

This could be one way to do it:

 

(defun fota (/ arch cad cmd)
  (defun pregunta (a b) (if (= (car b) "CLOSE") (if (= (vlax-invoke-method (vlax-create-object "wscript.shell") 'popup "Print commands on screen?" 0 "Nikon's doubts" 4) 6) (c:cmdsCargados))))
  (foreach sim (atoms-family 0) 
    (if (wcmatch (setq cmd (strcase (vl-princ-to-string sim) T)) "c:*")
      (setq *afI* (cons sim *afI*))
    )
  )
  (setq *r* (vlr-command-reactor nil '((:vlr-commandwillStart . pregunta))))
)

(defun c:cmdsCargados (/ cad cadCmds arch linea)
  (foreach sim (atoms-family 0)
    (if	(not (member sim *afI*))
      (if (wcmatch (setq cad (strcase (vl-princ-to-string sim) T)) "c:*")
	(setq cadCmds (strcat (if cadCmds (strcat cadCmds "\n") "\\C1Commands loaded during last sesion:\\C256\n") (substr cad 3)))
      )
    )
  )
  (if cadCmds (vla-AddMText (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) (vlax-3d-point (getpoint "\nInsertion point...")) 100 cadCmds))
  (princ)
)
(fota)

 

 

How to make it work?
Locate your acad**doc.lsp file and copy the code at the end of the original code, but before any code you may have added yourself.

 

Try it.

[GLAVCVS]

Once you've done this, after opening any drawing, the code will be loaded, and when you close the drawing, it should prompt you for a location point for an MTEXT with the loaded commands.

 

The only question I have is whether it's better to save this code in acad####Doc.lsp or acad####.lsp.