Custom Lisp Tracker

[fletch97]

OK fellow Lisp'rs, I have another challenge.

I came across this lisp routine years ago, not sure where it came from.....regardless, it helps track the usage of my custom lisp routines. I like to see how often all of my lisp routines are being used and who is using them. For the most part it works but could use some tweaking. This is where you guys come in.....

- Right now it's picking up express tool commands as well as individual's custom commands they have locally. I need a way to tell the lisp routine to exclude those. Is there a way I can tell the lisp to only record my commands? If not, how about excluding commands. With 250+ people recording to one location, the txt file can be hassle to go through.

- Acad version list the registry code rather than the version name. (i.e. 16.2s (LMS Tech)) Anyway to change that?

- Anyway to send this info to an excel doc or even word doc rather than a txt file? Formatting is a bit of a mess in the txt file.

Attached is the lisp file and below is a snip from the txt file it logs.....

(C:FILLET) dcastillo Friday, September 11, 2009 14:34:53 17.1s (LMS Tech)
(C:FILLET) jemiller Friday, September 11, 2009 14:35:29 16.2s (LMS Tech)
(C:FILLET) jemiller Friday, September 11, 2009 14:35:31 16.2s (LMS Tech)
(C:TE) mrodriguez Friday, September 11, 2009 14:36:35 17.1s (LMS Tech)

[alanjt]

If your routine names are the same as the filename (c:Yes = Yes.lsp) and you keep the ones you've written in a specific location, you could just have it check if (findfile (strcat "location" (substr 2 (car b)) ".lsp"))

[Opie]

Do you have a list of the commands you wish to log the usage of? If not, you will need to create a list, then filter the commands before writing to the log file.

[fletch97]

Alanjt - Most are the same lisp name/command name but not all.

Opie - Here are the commands I want the lisp to track......
From the command line - exp, lyr, probe, lyrup, spr

[alanjt]

Alanjt - Most are the same lisp name/command name but not all.

Opie - Here are the commands I want the lisp to track......
From the command line - exp, lyr, probe, lyrup, spr

(if (member CommandName (list "exp" "lyr" "probe" "lyrup" "spr"))
(do stuff

[fletch97]

Alanjt......that sounds easy enough but how to incorporate that into that attached count.lsp? I am assuming that (setq *LISPCOMMANDS* '()) needs to be taken out at this point since I am specifying?

[alanjt]

Alanjt......that sounds easy enough but how to incorporate that into that attached count.lsp? I am assuming that (setq *LISPCOMMANDS* '()) needs to be taken out at this point since I am specifying?

If it's a member, write string to file. If not, do nothing.

[fletch97]

Sorry Alanjt.....still confused? I tried a few options but nothing seemed to work, I must not understand what you are trying to say.

[Opie]

Unfortunately, the way the current routine is written, the log file is already written to by the time the *LISPCOMMANDS* variable is modified.

[fletch97]

So are you saying I need to completely rewrite this lisp?