Community
Public Function abortFunc() As Boolean
End Function
Public Sub Asdkcmd1()
Dim myDwg As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
Dim myDB As Database = myDwg.Database
Dim bm As System.Drawing.Bitmap = myDB.ThumbnailBitmap
Dim img As System.Drawing.Image = bm.GetThumbnailImage(bm.Width, bm.Height, New System.Drawing.Image.GetThumbnailImageAbort (AddressOf abortFunc), IntPtr.Zero)
Dim dlg As ThumbnailDialog = New ThumbnailDialog()
dlg.PictureBoxMain.Image = img
dlg.ShowDialog()
End Sub
Can't find what you're looking for? Ask the community or share your knowledge.