快速关闭当前图档，并删除当前dwg图档

amook147

pyj643921 发表于 2025-9-14 09:17
这功能感觉有点作死啊，要是画了半天的图不小心触发了这个命令，那就完蛋了

既然提了这个问题 肯定是特殊情况用，，，

Qwer1243

masterlong 发表于 2025-9-14 21:05
(if (= 1 (getvar "dwgtitled"))
        (progn
                        (setq currdwgname (strcat (getvar "DWGPREFIX") (getvar " ...

牛逼，试了一下可以实现

kozmosovia

Qwer1243 发表于 2025-9-15 15:02
牛逼，试了一下可以实现

这是变相的多文档方式。如果接受多文档方式，可以直接切换当前文档，然后加载临时代码去关闭原来的当前文档并删除相应的DWG。都不需要重新new一个DWG，也不需要外部有个scr文件

Bao_lai

防人之心不可无，害人之心不可有。

XTdwynij

kozmosovia 发表于 2025-9-15 15:56
这是变相的多文档方式。如果接受多文档方式，可以直接切换当前文档，然后加载临时代码去关闭原来的当前文 ...

大佬你来一个lisp更简洁的。说什么都要楼主见识一下。