我正在编写一个例程来清理来自外部来源的图纸。每隔一段时间，我就会遇到一个不稳定的图形，并抛出AutoCAD“检测到程序错误。建议您保存您的工作并重新启动程序。”有什么方法可以防止VBA中出现这种情况，或者有什么方法可以在VBA中关闭它？这是我写的一段代码。
- Sub dwgclean()
- Set objFSO = New FileSystemObject
- Set objFolder = objFSO.GetFolder(Me.txtFolderSource.Text)
- For Each objFile In objFolder.Files
- If objFile.Type = "AutoCAD Drawing" Then
- WholeFile = Me.txtFolderSource.Text & "" & objFile.Name
- AutoCAD.AcadApplication.Documents.Open WholeFile
- ThisDrawing.PurgeAll
- ThisDrawing.PurgeAll
- ThisDrawing.PurgeAll
- ThisDrawing.PurgeAll
- ThisDrawing.SendCommand ("-purge r *" & vbCr & "n" & vbCr)
- ThisDrawing.AuditInfo True
- "THIS IS WHERE I NEED THE DIALOGUE CLOSE!"
- RemoveLayerFilters
- DeletePageSetups
- DeleteScaleList
- ThisDrawing.AuditInfo True
- ThisDrawing.SaveAs Me.txtFolderdestination.Text & "" & objFile.Name
- ThisDrawing.Close
- End If
- Next
- deletebackup
- End Sub
我已经在没有帮助的情况下尝试了“nomutt”、“expert”和“filedia”系统变量。如果你需要一个绘图示例，请告诉我，我会通过电子邮件发送。近10Mb。。。如果我能以某种方式模仿scriptpro关闭对话的能力，那么什么才是理想的呢。
| 
置顶卡
