automaticaly open and save DWT to template searchpath

[The_Caddie]

Hi

I left my big book of codes and lisps at home, In it I have a lisp routine to open a dwt file and save it automatically in the current drawing template search path.

Could anyone help with this routine (its popped up as a priority job, otherwise I would of waited till tomorrow)

[pbejse]

Heres a simple one

(defun c:_DWTToPath (/ DwtFile)
(vl-load-com)
(setq DwtFile (getfiled "Select Template File" "" "DWT" 0))
(vl-file-copy DwtFile (strcat (GetEnv "TemplatePath") "\\"
                        (vl-filename-base DwtFile) ".dwt"))
(princ)
      )

It will not open the template, it will make a copy of the DWT file to template folder

Try it