How to export DXF to PNG?
Posted: 23 Jan 2020, 19:33
I have DXFs that I want to convert to PNG. What's the best option to achieve this?
You should use the following approach:
- Create a new TBitmap instance and draw CAD image graphics on the TBitmap.Canvas.
Code: Select all
function DrawToBitmap(AGraphic: TGraphic): TBitmap; begin Result := TBitmap.Create; Result.Width := AGraphic.Width; Result.Height := AGraphic.Height; Result.Canvas.StretchDraw(Rect(0, 0, AGraphic.Width, AGraphic.Height), AGraphic); end; - Create a new TPNGImage instance and copy the contents of the created TBitmap using a TPNGImage.Assign method.
Code: Select all
var vBitmap: TBitmap; vPNGImage: TPNGImage; ... vBitmap := DrawToBitmap(CADImage); vPNGImage := TPNGImage.Create; vPNGImage.Assign(vBitmap); - Save the PNG graphics to a file.
Code: Select all
var sFileName: string; ... vPNGImage.SaveToFile(sFileName);