[求助]：lisp可以实现这个功能吗？

fl202

大家好，当我们在cad中打开多个文件进行浏览后，再将软件关闭，不保存，可以用lisp实现一次关闭，不用提示保存吗？打开的图纸如果多的话，而自己又知道不需要保存修改的情况下，关闭每个图纸cad都会提醒你是否保存，非常烦人。
我写了一个：
(command   "exit"  " N")
问题来了，如果是打开一个文件，正常退出，如果是打开多个，还是要一个一个的提醒。
就是有没有办法来检测当前cad打开了多少个文件？有多少个窗口？因为如果你：
(command   "exit"  " N"   " N"     " N"      " N" )
多了，也是不行的，cad会把那个N当成新建命令，它会问你新建文件？ 然后再提示保存退出。
求高手帮忙。

Underway

Try this one

;;; I believe Frank Whaley posted this originally.
(defun ax:CloseAll ( / item cur)
    (vlax-for item (vla-get-documents (vlax-get-acad-object))
      (if (= (vla-get-active item) :vlax-false)
        (vla-close item :vlax-false)
        (setq cur item)
      )
    )
    ;; (vla-sendcommand cur "_.CLOSE ")
    ;; (command "._VBASTMT" "ThisDrawing.Close True")
    (command "._VBASTMT" "ThisDrawing.Close False")
)

fl202

感谢2楼的回复，用你的程序确实把图纸文件全部关闭了，未提示保存，但没有退出cad。



可不可以用纯粹的lisp实现？我用两个软件，一个是cad，另一个常用的是浩辰cad。

浩辰cad不支持vla-类的函数。。。