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

Dea25

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

估计就是要这样的效果

gzcsun

qazxswk 发表于 2025-9-14 02:16
即然是不能识别的字符，在命名文件名的时候，应该是不允许你输入的呀。如果要去除空格之类的符号，可以用 ...

有时有些字符可以命名，但这些程序不能识别会出错。

masterlong

scr应该是可以的

masterlong

(if (= 1 (getvar "dwgtitled"))
        (progn
                        (setq currdwgname (strcat (getvar "DWGPREFIX") (getvar "dwgname")))
                        (vl-propagate 'currdwgname)
                        (setq delself_scr (open "c:/delself删除自身.scr" "w"))
                        (write-line "qsave close new ." delself_scr)
                        (write-line "(vl-file-delete  currdwgname)" delself_scr)
                        (close delself_scr)
                       
                        (command "delay" 500)
                        (command "script" "c:/delself删除自身.scr")
        )
)

wudechao

估计是想编写病毒程序，发现盗用，立即惩罚使用者，删除并毁灭该文件。

闻人南131

可以曲线救国一下，关闭文档前，先打开图纸所在文件夹，并且选中该dwg，这样只需要手动按下delete就可以了，也不怕误删了，程序删的文件都没办法撤回

自贡黄明儒

start4444 发表于 2025-9-13 22:26
当你关闭当前图档的时候lisp已经死了，别指望他再做什么删除文档的动作

如果lisp调用了startapp,lisp死了，好像startapp没有死。仅探讨一下，不是抬杠哈

kozmosovia

闻人南131 发表于 2025-9-15 08:41
可以曲线救国一下，关闭文档前，先打开图纸所在文件夹，并且选中该dwg，这样只需要手动按下delete就可以了 ...

这种曲线救国是很挫的方式，而且完全没用。DWG被打开时，是不能被删除的。

比较可行的方案是：另存当前图形到临时目录，然后删除DWG或目录再退出CAD，这样。不能删除的DWG就到临时目录去了。将来只需要隔一段时间清空一下临时目录。甚至可以内定一个统一的文件名用于保存在临时目录中，这样，无论调用多少次，临时目录永远只会有一个多余的DWG。（保存前需要先判断是否存在已有的多余的DWG并删除后再保存）

Qwer1243

我感觉可以换个思路，先把打开的文件解除cad占用，删除cad文件然后再关闭cad文档

小男人漏水

为啥不是先删除CAD内容后保存关闭呢？保存地址存txt,调用DOS调用TXT路径，延迟删除就可以了。