Lisp Help Please

[Welshman]

I am trying to devise a LISP routine that, when starting a new drawing the routine will look at the system variables "DWGNAME" and "LOGINNAME", collate the two resultant strings together and then write a blank file(zero bytes)with the name of the empty file being the joined "DWGNAME"+"LOGINNAME". The purpose of this is to monitor which drawings were opened, or created, when and by whom.

I will save this LISP routine to the ACADDOC.LSP on each PC.

Below is as far as I have got, but initially I am having two problems.

1. How do I create one STRING for the file name from the "DWGNAME" & "LOGINNAME" chars.

2. What is the best way to write a blank file to a specific directory. i was thinking of useing the old DOS command COPY CON "filename" ctrl Z.

My code so far:

(setvar "cmdecho" 0)
(setq fname ((getvar "dwgname&quot+(getvar "Loginname&quot))
(command "copy con" fname)

Please forgive my simplistic routine, still new into this LISP lark.

Any help would be gratefully received.

The WelshMan

 

[Welshman]

its ok guys I've sussed it:

(setq file (strcat "o:/plot/drawings/" (getvar"loginname&quot (getvar"dwgname&quot))

(setq a (open file "w&quot)

This now creates a new file of zero bytes with the filename made up from the user name and the drawing name every time someone goes into a drawings . These file names are stored in my network drive O:\plos\drawings

Its handy to keep an eye on what everyone is doing.

Regards - The Welshman

 

[pardal]

to do it better you shall close each file and strcat the date and time too


Pardal