lsp是跟随doc的，切换到别的doc，这个doc里面load的lsp功能在别的doc中就废了。所以不能支持切换后继续执行 ...
选择但是不确定,手工切换就好了,然后遍历docs发送命令,就会弹图形忙.
我第一次遇见这个bug的时候觉得:应该修一下 本帖最后由 vitalgg 于 2024-11-22 09:52 编辑
(defun c:save-and-close-all (/ docs)
(setq docs nil)
(vlax-for doc *DOCS*
(if (/= "" (vla-get-fullname doc))
(setq docs (cons (vla-get-fullname doc) docs))))
(vlax-for doc *DOCS*
(if
(and
(/= "" (vla-get-fullname doc))
(/= (vla-get-fullname *DOC*) (vla-get-fullname doc)))
(vla-close doc :vlax-true)))
(if (and (/= "" (vla-get-fullname *DOC*)))
(progn
(vla-save *DOC*)
(vla-sendcommand *DOC* "close ")))
(princ))
源自 @lisp会话管理 ：
https://gitee.com/atlisp/package ... sion/at-session.lsp
https://mp.weixin.qq.com/s?__biz ... 49394&lang=zh_CN#rd
https://www.bilibili.com/video/BV1opUdYLEx5/?vd_source=f238933ef363feb9bc3ceff41b386f5c
cad自带命令saveall vitalgg 发表于 2024-11-22 09:19
源自 @lisp会话管理 ：
https://gitee.com/atlisp/package ... sion/at-session.lsp
卧槽，你这个视频的自动播放，我还以为是我电脑中毒了。。。。。。
页:
1
[2]