我们有一个Lisp程序：
- (defun C:saveall()
- (vlax-for doc (vla-get-Documents (vlax-get-acad-object))
- (if (and (= :vlax-false (vla-get-saved doc) (vla-get-readonly doc)))
- (progn (write-line (strcat "\nSaving: " (vla-get-name doc))) (vla-save doc)))))
但我想补充以下程序，用于所有打开的图纸：
1、允许吹扫。
2.从模板添加布局，路径：C:\template\1。dwg，布局模板名称为：waku。
3、保存。
4、关闭。
谢谢你们的关注，原谅我用英语表达的能力。
谨致问候 | 
置顶卡
