社区 › VB › 怎样强行关闭文件？

waitingyou 发表于 2005-4-8 14:10:00

怎样强行关闭文件？

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

yulijin608 发表于 2005-4-8 14:31:00

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 发表于 2005-4-8 14:31:00

拔掉电源！！：）

waitingyou 发表于 2005-4-8 15:17:00

谢啦，二楼的方法管用

新鲜8 发表于 2017-10-20 08:31:00

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

查看完整版本: 怎样强行关闭文件？