失眠怪兽 发表于 2024-7-6 19:49:56

已有 5 人购买  本主题需向作者支付 1 个明经币 才能浏览 购买主题

努.力 发表于 2024-7-7 20:47:19

Gu_xl 2013-9-10 http://bbs.mjtd.com/thread-107528-1-1.html


闭其他窗口 https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/closeall-command-w-no-save/m-p/2662606

qazxswk 发表于 2024-7-6 22:49:43

我来个相反的功能
(defun c:11(/ docs cdoc);;不保存并关闭所有文档窗口
(setq docs (vla-get-documents (vlax-get-acad-object)))
(setq cdoc (vla-get-ActiveDocument (vlax-get-acad-object)))
(vlax-for doc docs(if (not (equal cdoc doc))(vla-close doc :vlax-false)))
(if (=(getvar "blockeditor") 1)
(progn(vl-cmdf "bclose" "D")
       (vl-cmdf "quit" "y"))
       (vl-cmdf "quit" "y"))
(princ))

tranque 发表于 2024-7-6 21:04:50

之前用过的一个工具箱可以实现这个功能。。。。。
但是我没这方面的需求

tigcat 发表于 2024-7-6 21:39:44

挺好的,支持楼主.

lxx2003 发表于 2024-7-6 21:57:29

看看是什么东西

aws 发表于 2024-7-7 09:25:58

qazxswk 发表于 2024-7-6 22:49
我来个相反的功能
(defun c:11(/ docs cdoc);;不保存并关闭所有文档窗口
(setq docs (vla-get-document ...

关闭全部窗口其实可以直接右上角关掉cad就行了，有没有办法实现，只保留当前文档，而关闭其他窗口呢？

Bao_lai 发表于 2024-7-7 09:54:27

aws 发表于 2024-7-7 09:25
关闭全部窗口其实可以直接右上角关掉cad就行了，有没有办法实现，只保留当前文档，而关闭其他窗口呢？

获得所有文档名称，不是当前的，关闭。

aws 发表于 2024-7-7 10:33:31

Bao_lai 发表于 2024-7-7 09:54
获得所有文档名称，不是当前的，关闭。

对于文件处理这块，我不太熟悉，能不能稍微提点一下，用哪些函数呢

Bao_lai 发表于 2024-7-7 10:37:08

aws 发表于 2024-7-7 10:33
对于文件处理这块，我不太熟悉，能不能稍微提点一下，用哪些函数呢

看5楼，基本上都有。

qazxswk 发表于 2024-7-7 11:22:20

aws 发表于 2024-7-7 09:25
关闭全部窗口其实可以直接右上角关掉cad就行了，有没有办法实现，只保留当前文档，而关闭其他窗口呢？

右上角关闭，会弹出保存文件的提示。
页: [1] 2
查看完整版本: 自动保存关闭窗口所有图纸