不使用autocad如何得到预览dwg？

#nowarn "9"
//Copyright 2009 K.E. Blackie
//This work is based in part from a VBA macro
//initially developed by members of www.vbdesign.net
//it may be used freely and may be modified to suit
//your needs as long as credit is given where it is due
open System.IO
open System.Runtime.InteropServices
[]
type BITMAPINFOHEADER =
    val biSize: int32
    val biWidth: int32
    val biHeight: int32
    val biPlanes: int16
    val biBitCount: int16
    val biCompression: int32
    val biSizeImage: int32
    val biXPelsperMeter: int32
    val biYPelsPerMeter: int32
    val biClrUsed: int32
    val biClrImportant: int32
[]
type IMGREC =
    val bytType: byte
    val lngStart: int32
    val lngLen: int32
[]
type RGBQUAD =
    val rgbBlue: byte
    val rgbGreen: byte
    val rgbRed: byte
    val rgbReserved: byte
let byteToType(reader: BinaryReader) =
    let bytes = reader.ReadBytes(Marshal.SizeOf(typeof))
    let handle = GCHandle.Alloc(bytes, GCHandleType.Pinned);
    let theStructure = Marshal.PtrToStructure(handle.AddrOfPinnedObject(), typeof) :?> 'T
    handle.Free()
    theStructure
let getThumbnail strFile boolRetainBackColor boolSaveToFile strSaveName =
    
    let mutable bmp =
        new System.Drawing.Bitmap(
            1, 1, System.Drawing.Imaging.PixelFormat.Format8bppIndexed )
    if File.Exists strFile then
        let fs = File.OpenRead strFile
        try
            use br = new BinaryReader(fs)
            fs.Seek(13L, SeekOrigin.Begin) |> ignore
            let lngImgLoc = br.ReadInt32()
            fs.Seek(int64 lngImgLoc + 17L, SeekOrigin.Begin) |> ignore
            let lngCurLoc = lngImgLoc + 17
            fs.Seek(int64 lngCurLoc + 3L, SeekOrigin.Begin) |> ignore
            let bytCnt = br.ReadByte()
            if bytCnt > 1uy then
                let intCnt = ref 0
                while !intCnt  ignore
                        let udtHeader = byteToType[B] br
                        if udtHeader.biBitCount = 8s then
                            let udtColors =
                                [|  for count = 0 to 255 do
                                        yield byteToType br |]
                            fs.Seek(int64 udtRec.lngStart, SeekOrigin.Begin) |> ignore
                            let bytBMPBuff = br.ReadBytes udtRec.lngLen
                            bmp  System.Drawing.ColorTranslator.ToOle
                                    let lngColor =
                                        if boolRetainBackColor then lngColor
                                        elif lngColor = System.Drawing.ColorTranslator.ToOle System.Drawing.Color.Black then
                                            System.Drawing.ColorTranslator.ToOle System.Drawing.Color.White
                                        elif lngColor = System.Drawing.ColorTranslator.ToOle System.Drawing.Color.White then
                                            System.Drawing.ColorTranslator.ToOle System.Drawing.Color.Black
                                        else lngColor
                                    bmp.SetPixel(udtHeader.biWidth - x,  y, System.Drawing.ColorTranslator.FromOle lngColor)
                                    decr lngCnt
                            intCnt := int bytCnt
        finally
            fs.Close()
    
    if boolSaveToFile then
        if System.String.IsNullOrEmpty strSaveName then
            let fName =
                System.String.Concat(
                    Path.GetTempPath(),
                    Path.GetFileNameWithoutExtension(Path.GetRandomFileName()),
                    ".bmp" )
            bmp.Save fName
        else
            bmp.Save strSaveName
    bmp