delphi中使用CADVCL 10.0 Enterprise控件解析DXF文件生成图片保存到本地

幸思无声_东莞

已于 2023-09-26 16:48:31 修改

阅读量432

点赞数

分类专栏： Delphi 文章标签：数据分析

于 2023-09-26 16:46:05 首次发布

本文链接：https://blog.csdn.net/qq_45083002/article/details/133314882

版权

Delphi 专栏收录该内容

10 篇文章 2 订阅

订阅专栏

使用案例demos中GettingStarted案例
在这里插入图片描述

修改OnClick方法
更换代码

var
  vDrawing: TsgCADDXFImage;
  I: Integer;
  vEnt: TsgDXFEntity;
  vDXFImage:TsgCADImage;
  Bitmap: TBitmap;
  jpg: TJpegImage;
begin
  vDrawing := TsgCADDXFImage.Create;
  vDrawing.LoadFromFile('d:\Entities.dxf');
  for I := 0 to vDrawing.CurrentLayout.Count - 1 do
  begin
    vDXFImage := TsgCADImage.Create;
    vDXFImage.Converter.InitializeSections();
    vEnt := TsgDXFEntityClass(TsgDXFEntity(vDrawing.CurrentLayout.Entities[I]).ClassType).Create;
    vEnt.AssignEntity(TsgDXFEntity(vDrawing.CurrentLayout.Entities[I]));
    vDXFImage.Converter.OnCreate(vEnt);
    vDXFImage.Converter.Sections[csEntities].AddEntity(vEnt);
    vDXFImage.Converter.Loads(vEnt);
    vDXFImage.GetExtents;

    Bitmap := TBitmap.Create;
    Bitmap.Assign(vDXFImage);

    jpg := TJpegImage.Create;
    jpg.Assign(Bitmap);
    jpg.CompressionQuality := 100;
    jpg.Compress;
    jpg.SaveToFile('a:\a\'+ vDrawing.CurrentLayout.Entities[I].Name + '.jpg');
    jpg.Free;
    Bitmap.Free;
    vDXFImage.Free;
  end;
end;