CADSoftTools

Code: Select all

procedure TfmDXFExporter.btnEmfs2DXFClick(Sender: TObject);
var
  vDXF: TsgDXFExport;
  vLayer: TsgExpDXFLayer;
  I: Integer;
begin
  OpenPictureDialog.Options := OpenPictureDialog.Options + [ofAllowMultiSelect];
  if not OpenPictureDialog.Execute then Exit;
  vDXF := TsgDXFExport.Create;
  try
    SetDXFParams(vDXF);
    for I := 0 to OpenPictureDialog.Files.Count - 1 do
    begin
      vLayer := TsgExpDXFLayer.Create(ChangeFileExt(ExtractFileName(OpenPictureDialog.Files.Strings[I]), ''));//, IntToStr(I));
      vDXF.CurrentLayer := vLayer;
      vDXF.LoadFromFile(OpenPictureDialog.Files.Strings[I]);
    end;
    vDXF.SaveToFile(ExtractFilePath(OpenPictureDialog.FileName)+'WMFs-LAYERS.dxf');
  finally
    vDXF.Free;
  end;
end;

Code: Select all

procedure TfmDXFExporter.btnPaintToClick(Sender: TObject);
var
  E: TsgDXFExport;
begin
  if not SaveDialog.Execute then Exit;
  E := TsgDXFExport.Create;
  DXFExport.OffsetY := Height; // Set OffsetY = height of the drawing
  // also you can use OffseX - OffsetY and OffsetX are for with metafiles only
  try
    PaintTo(E.Canvas.Handle, 0, 0);
    E.EndDraw;
    E.SaveToFile(SaveDialog.FileName);
  finally
    E.Free;
  end;
end;

Code: Select all

function TsgDXFExport.GetCanvas: TCanvas;
begin
  if FCanvas[CurrentLayer] = nil then
  begin
    FTmp[CurrentLayer] := TMetafile.Create;
    FCanvas[CurrentLayer] := TMetafileCanvas.Create(FTmp[CurrentLayer], 0);
  end;
  Result := FCanvas[CurrentLayer];
end;