Request for custom lisp routine rename txt

[Hans_Knol]

I'm hoping to get some help to come up with a custom  lisp routine that changes the name of an exported report. The reports are exported using AutoCAD Electrical and must get the name of the active drawing, it's not possible to give them the right names directly. The location of the report is always the same, "C:\Data\AppData\Export\" the name of the report what is exported before renaming will be "Wirelist1.txt" 

[CodeDing · Accepted solution]

@Hans_Knol ,

Pretty straight forward. Is this what you're looking to accomplish?

(defun c:FIRE ( / dName tmp)
;FIle REname
(vl-load-com)
(setq dName (substr (getvar 'DWGNAME) 1 (- (strlen (getvar 'DWGNAME)) 4)))
(if (vl-file-rename "C:/Data/AppData/Export/Wirelist1.txt" (strcat "C:/Data/AppData/Export/" dName ".txt"))
  (progn (setq tmp "\nFile successfully renamed.") (prompt tmp) (alert tmp))
  (progn (setq tmp "\nFile rename was unsuccessful...") (prompt tmp) (alert tmp))
);if
(princ)
);defun

Best,

~DD