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

你有种再说一遍

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

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

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

foolishzy

cad自带命令saveall

lzspain

vitalgg 发表于 2024-11-22 09:19
源自 @lisp会话管理 ：
https://gitee.com/atlisp/package ... sion/at-session.lsp

卧槽，你这个视频的自动播放，我还以为是我电脑中毒了。。。。。。