extract the full name of the current file

[Angelo2449]

Hello everyone,
I would like to be able to extract, through lisp, the full name of the file currently open in autocad. to be able to dispose of it at will.
for example to make a copy of it.
Thank you.

 

[Angelo2449]

I reply to myself having found the solution:

 (defunc c:filecurrent copy(/)

(setq currentfile (strcat (getvar "dwgprefix") (getvar "dwgname"))
(vl-file-copy currentfile "c:/autocadsupport/varies/filecopy.dwg" t)

);

ciao