怎样强行关闭文件？

waitingyou

一批文档已作改动，我不想保存，但一个个在保存对话框里选否又很麻烦，不知VBA里怎样用程序不保存就强行关闭CAD文档，谢谢

yulijin608

Sub CloseNotSave()
If Documents.Count = 0 Then
MsgBox "There are no open documents!"
Exit Sub
End If Dim DOC As AcadDocument
For Each DOC In Documents
DOC.Close False
Next End Sub

h_lon

拔掉电源！！：）

waitingyou

谢啦，二楼的方法管用

新鲜8

yulijin608 发表于 2005-4-8 14:31
Sub CloseNotSave()If Documents.Count = 0 Then                         MsgBox "There are no open documents!"                         Exit SubEn ...

CAD窗口是关闭了代码窗口怎么关闭呀


有代码吗