CADSoftTools

Code: Select all

<b>procedure</b> TForm1.SaveToDXF(AFileName: <b>string</b>);
<b>var</b>
  E: TsgDXFExport;
  vMet: TMetafile;
  vGr: TGraphic;
  vOffX, vOffY, vUSize: TsgFloat;
<b>begin</b>
  vGr := sgPaintBox.Picture.Graphic;
  E := TsgDXFExport.Create;
  <b>try</b>
    E.IsParseWhite := True;// False
    <b>if not</b> ((vGr <b>is</b> TsgDXFImage) <b>or</b> (vGr <b>is</b> TMetafile)) <b>then
    begin</b>
      ShowMessage('Raster drawings can not be saved to DXF format');
      Exit;
    <b>end
    else
    begin
      if not</b> (vGr <b>is</b> TsgDXFImage) <b>then
      begin</b>
        E.Use01MM := False;
        E.Canvas.StretchDraw(Rect(0, 0, vGr.Width, vGr.Height), vGr);
        E.EndDraw;
      <b>end
      else
      begin</b>
        vMet := TsgDXFImage(vGr).ExportToMetafile(vOffX, vOffY, vUSize);
        DXFExport.OffsetX := vOffX;
        DXFExport.OffsetY := vOffY;
        E.UnitSize := vUSize;
        E.LoadFromMetafile(vMet);
        vMet.Free;
      <b>end</b>;
    <b>end</b>;
    E.SaveToFile(AFileName);
  <b>finally</b>
    E.Free;
  <b>end</b>;
<b>end</b>;