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

怎样强行关闭文件？

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

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

Sub CloseNotSave()<BR>If Documents.Count = 0 Then<BR>                       MsgBox "There are no open documents!"<BR>                       Exit Sub<BR>End If


Dim DOC As AcadDocument<BR>For Each DOC In Documents<BR>                       DOC.Close False<BR>Next


End Sub

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

拔掉电源！！：）

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

谢啦，二楼的方法管用

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

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

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


有代码吗
页: [1]
查看完整版本: 怎样强行关闭文件？