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

[求助]如何自动加载样板文件
www.dimcax.com
[求助]如何自动加载样板文件
想在程序运行时，自动加载某样板文件，用lisp语句该如何编写？
谢谢大家
d
(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)
)
)
d
相关系统变量
startup
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.