请教 在当前窗口同时保存多个CAD图纸的方法

开心无惧

请教大家
想在图纸Drawing5中，如何在输入命令后可以同时保存Drawing1~5 这5个CAD图纸

vitalgg

1. (defun c:save-and-close-all (/ docs)
   
2.   (setq docs nil)
   
3.   (vlax-for doc *DOCS*
   
4.     (if (/= "" (vla-get-fullname doc))
   
5.       (setq docs (cons (vla-get-fullname doc) docs))))
   
6.   (vlax-for doc *DOCS*
   
7.     (if
   
8.       (and
   
9.         (/= "" (vla-get-fullname doc))
   
10.         (/= (vla-get-fullname *DOC*) (vla-get-fullname doc)))
    
11.       (vla-close doc :vlax-true)))
    
12.   (if (and (/= "" (vla-get-fullname *DOC*)))
    
13.     (progn
    
14.       (vla-save *DOC*)
    
15.       (vla-sendcommand *DOC* "close ")))
    
16.   (princ))

(defun c:save-and-close-all (/ docs) <br />   (setq docs nil)<br />   (vlax-for doc *DOCS* <br />     (if (/= "" (vla-get-fullname doc)) <br />       (setq docs (cons (vla-get-fullname doc) docs))))<br />   (vlax-for doc *DOCS* <br />     (if <br />       (and <br />         (/= "" (vla-get-fullname doc))<br />         (/= (vla-get-fullname *DOC*) (vla-get-fullname doc)))<br />       (vla-close doc :vlax-true)))<br />   (if (and (/= "" (vla-get-fullname *DOC*))) <br />     (progn <br />       (vla-save *DOC*)<br />       (vla-sendcommand *DOC* "close ")))<br />   (princ))

源自 @lisp会话管理 ：
https://gitee.com/atlisp/package ... sion/at-session.lsp

https://mp.weixin.qq.com/s?__biz ... 49394&lang=zh_CN#rd

你有种再说一遍

kozmosovia 发表于 2024-11-21 20:33
lsp是跟随doc的，切换到别的doc，这个doc里面load的lsp功能在别的doc中就废了。所以不能支持切换后继续执行 ...

选择但是不确定,手工切换就好了,然后遍历docs发送命令,就会弹图形忙.
我第一次遇见这个bug的时候觉得:应该修一下

你有种再说一遍

https://gitee.com/inspirefunction/CadLabelBar/tree/dev
多文档功能都写那么多年了,
C#处理这样情况贼简单,跨文档功能的docs能够来回切换.
并且我已经写好了啊...没必要讲怎么做了...
Lisp就不知道怎么处理了,而且各种跨线程问题需要处理.

kozmosovia

lisp不需要跨线程，直接vlax-for docx就行，不过要确保每个doc都是空闲状态，否则不能保存

你有种再说一遍

kozmosovia 发表于 2024-11-21 20:01
lisp不需要跨线程，直接vlax-for docx就行，不过要确保每个doc都是空闲状态，否则不能保存

for可以...但是要激活过去才可以send save cmd,
不妨写个demo给他?

kozmosovia

每个DWG的doc都有save或者saveas方法，不需要去激活执行cmd

你有种再说一遍

kozmosovia 发表于 2024-11-21 20:15
每个DWG的doc都有save或者saveas方法，不需要去激活执行cmd

不太行吧,我记得会给你来个图形忙.

kozmosovia

你有种再说一遍 发表于 2024-11-21 20:22
不太行吧,我记得会给你来个图形忙.

不会的。

1. (vlax-for doc (vla-get-documents (vlax-get-acad-object))
   
2.   (vla-save doc)
   
3. )

复制代码

你有种再说一遍

kozmosovia 发表于 2024-11-21 20:27
不会的。

你试试另一个doc用鼠标选择但是不确定,然后切换回来这边doc,接着发送你这个命令

kozmosovia

lsp是跟随doc的，切换到别的doc，这个doc里面load的lsp功能在别的doc中就废了。所以不能支持切换后继续执行，一切换就死掉了。

kozmosovia

现在这样的遍历相当于把其他DWG当成可见的ObjectDBX文件操作。