[求助]如何自动加载样板文件

neutrino

想在程序运行时，自动加载某样板文件，用LISP语句该如何编写？

谢谢大家

caoyin

(defun Test (dwtfile / files)
  (setq files (vla-get-files (vla-get-preferences (vla-get-application (vlax-get-acad-object)))))
  (if (setq dwtfile (findfile dwtfile))
    (vla-put-QNewTemplateFile files dwtfile)
  )
)

nonsmall

相关系统变量

startup

caoxinheng

这段代码放在哪个文件里面啊