快速关闭当前图档，并删除当前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更简洁的。说什么都要楼主见识一下。

这只胆小鬼

(defun c:tt(/ name path path1 path2 str mycommand wsh)
        (setq name (getvar "dwgname"))
        (setq path (getvar "dwgprefix"))
        (setq path1 (strcat path name))
        (setq path2 (strcat path (vl-filename-base name) ".bak"))
        (if (findfile path2)
                (setq str (strcat "rm " path2 ";"))
                (setq str "")
        )
        (setq myCommand
                (strcat
                        "powershell.exe -WindowStyle Hidden  -command ;"
                        "sleep -m 2000;"
                        "rm " path1 ";"
                        str
                )
        )
        (setq wsh (vlax-create-object "wscript.shell"))
        (vlax-invoke wsh 'exec myCommand)
        (vlax-release-object wsh)

        (command "close" "y")

        (princ)
)
试试这个

429014673

lsp   vlx   fas文件自杀？

菜卷鱼

既然要删除文件，是否保存是否有必要？

masterlong

这不重要
少一个判断少一点代码量
仅此而已