hi ..
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.EditorInput
Public Class DocumentTest
<CommandMethod("CD")> _
Public Sub Main()
Dim dm As DocumentCollection = Application.DocumentManager
Dim ActiveDoc As Document = dm.MdiActiveDocument
For Each doc As Document In dm
If doc <> ActiveDoc Then
DocumentExtension.CloseAndDiscard(doc)
Else
DocumentExtension.CloseAndSave(doc, "C:\DocumentTest.dwg") ' ERROR
End If
Next
End Sub
End Class
please help me~~
Hi,
have you searched/found >>>this thread<<< 😉
HTH, - alfred -
Hi,
The DocumentExtension class provides extension methods.
You can have a look to these threads to know a little more about this:
http://msdn.microsoft.com/en-us/library/bb383977%28v=vs.100%29.aspx
Thanks for your reply.
I just want to know that “DocumentExtension.CloseAndSave(doc, “C:\DocumentTest.dwg”) is correct code.
And if correct, why the error has occurred?