<CommandMethod("TESTCODE", "TESTCODE", "TESTCODE", CommandFlags.Session)> _
Public Sub TESTCODE()
Dim sFileName As String = "C:\Autodesk\test\test.dwg"
Using db As New Database(False, True)
db.ReadDwgFile(sFileName, IO.FileShare.ReadWrite, False, "")
Dim workDb As Database = HostApplicationServices.WorkingDatabase
If HostApplicationServices.WorkingDatabase <> db Then
HostApplicationServices.WorkingDatabase = db
End If
'-----------------------------------------
'Write Code to do something here
'-----------------------------------------
If HostApplicationServices.WorkingDatabase <> workDb Then
HostApplicationServices.WorkingDatabase = workDb
End If
Try
'Warning: An Error occurred during save.
'We recommend that you run RECOVER on the drawing.
db.SaveAs(sFileName, DwgVersion.Current)
Catch e As Autodesk.AutoCAD.Runtime.Exception '(no error to catch)
db.CloseInput(True)
Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage(e.Message)
End Try
db.Dispose()
End Using
End Sub