Message 1 of 20
Save preview to file
Not applicable
06-12-2005
12:34 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi all,
I try to save the thumbnail to a file, but it seems ThumbnailBitmap is alway's nothing. Does anyone know how to use this Autodesk.AutoCAD.DatabaseServices.Database.ThumbnailBitmap?
thanks,
Evert
----
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports System.Collections
Imports System.Text
Imports System.Drawing
Public Class PreviewBitMap
Public Sub test()
Dim bm As Bitmap
Dim db As Database
Try
'Get the current database
db = HostApplicationServices.WorkingDatabase
Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage("db loaded")
If db.ThumbnailBitmap Is Nothing Then
Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage("geen bitmap?")
Else
db.ThumbnailBitmap.Save("test.bmp")
End If
Catch ex As Exception
Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage("test:" + ex.Message)
Finally
If Not bm Is Nothing Then bm.Dispose()
End Try
End Sub
End Class
I try to save the thumbnail to a file, but it seems ThumbnailBitmap is alway's nothing. Does anyone know how to use this Autodesk.AutoCAD.DatabaseServices.Database.ThumbnailBitmap?
thanks,
Evert
----
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports System.Collections
Imports System.Text
Imports System.Drawing
Public Class PreviewBitMap
Public Sub test()
Dim bm As Bitmap
Dim db As Database
Try
'Get the current database
db = HostApplicationServices.WorkingDatabase
Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage("db loaded")
If db.ThumbnailBitmap Is Nothing Then
Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage("geen bitmap?")
Else
db.ThumbnailBitmap.Save("test.bmp")
End If
Catch ex As Exception
Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage("test:" + ex.Message)
Finally
If Not bm Is Nothing Then bm.Dispose()
End Try
End Sub
End Class