如何实现对打开的文档操作

cq_qg68

一直用docbar，很好用，但是想编程实现对cad当前打开的所有文档进行下列操作：
1、保存全部，不关闭。
2、关闭全部，对有修改的或新建的未保存的文件关闭时提示保存。
3、保存，关闭全部。
4、关闭全部，不保存
5、退出，保存全部
6、退出，不保存
7、关闭并保存除当前文档外所有打开的图形
8、关闭不保存除当前文档外所有打开的图形

1、7、8比较好实现，但其他几项还有不太好实现。
前不久在论坛里面看到这么一段代码(不好意思，今天搜索没有找到原贴了)
(defun c:XZ_CloSaveAll ()
  (vlax-for Item (vla-get-Documents (vlax-get-acad-object))        ;所有文档集合
    (if (= (vla-get-Active Item) :vlax-False)                        ;判断是否为当前文件，false表示非当前文件
      (vla-close Item :vlax-true)                                ;非当前文件，保存后关闭
      (vla-SendCommand Item "_.close\n")     
    )
  )
)
可以保持并关闭所有打开的文件，但是美中不足的是对于当前文档最后总是会弹出提示是否保存的对话框。我是想执行命令后，所有的文档保存并关闭，不要提示对话框。

因为上面代码有点美中不足，我自己稍微做了修改：
(defun c:XZ_CloseAlll ()
  (vlax-for Item (vla-get-Documents (vlax-get-acad-object))        ;所有文档集合
    (if (/= (vla-get-FullName Item) "")
        (vla-close Item :vlax-true (vla-get-FullName Item))
        (princ "\n文件尚未保存")
      )                                                ;保存所有
  )
)

但还是有问题，对于当前文档会提示“ 错误: Automation 错误。 图形忙。”这可能就是论坛上面的代码为何要判断是否是当前文档。

有没有办法解决这个问题？
另外，对于5、6采用什么办法，就是如何能关闭cad程序退出。

Lisphk

退出，就发送 quit 命令呗

Lisphk

可以保持并关闭所有打开的文件，但是美中不足的是对于当前文档最后总是会弹出提示是否保存的对话框。我是想执行命令后，所有的文档保存并关闭，不要提示对话框。

先保存图形，然后关闭还有提示你保存的对话框吗？

newer

利用系统变量 dbmod ,判断是否需要保存图形及关闭图形是否需要给Y参数等等。也可以把这个变量人为置为0，“欺骗”CAD认为图形不需要保存 等等。。

cq_qg68

先保存图形，然后关闭还有提示你保存的对话框吗？

保存后不会有提示。但是对于2、4、8三种情况，是不保存。
谢谢版主及代码http://bbs.xdcad.net/thread-706235-1-1.html
可以实现不保存关闭。
恕我愚钝，对于第2种情况，我不知道怎么实现。就是关闭的时候对于需要保存的文档，要弹出提示对话框，由用户选择是否保存。选择后再对下一个文档执行关闭操作。