怎样强行关闭文件？

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窗口是关闭了代码窗口怎么关闭呀
有代码吗

怎样强行关闭文件？

发表回复

精选推荐