CADSoftTools

Code: Select all

procedure TForm_FaceAvant.SaveToDXF;
var
  AFileName         : string;

  vMC               : TMetafileCanvas;
  vM                : TMetafile;
  Nom_wmf           : string;

  vExport: TsgCADExport;
begin
  Try
    SaveDialogDXF.Filter := TXt_filtre_dwg+'|'+TXt_filtre_dxf+'|'+TXt_filtre_wmf;
    if not SaveDialogDXF.Execute then Exit;

    if (pos('.dxf', SaveDialogDXF.FileName) = 0) and (pos('.wmf', SaveDialogDXF.FileName) = 0) and (pos('.dwg', SaveDialogDXF.FileName) = 0)then
    begin
      case SaveDialogDXF.FilterIndex of
        1: AFileName := SaveDialogDXF.FileName + '.dwg';
        2: AFileName := SaveDialogDXF.FileName + '.dxf';
        3: AFileName := SaveDialogDXF.FileName + '.wmf';
      end;
    end
    else AFileName := SaveDialogDXF.FileName;

    if FileExists(AFileName) then
    begin
      if Application.MessageBox(PChar(TXT_DXFDejaExistant), PChar(RSAttention), MB_OKCANCEL) = IDCANCEL then exit;
       DeleteFile(AFileName);
    end;

    if pos('.dxf', AFileName) > 0 then
    begin
      vExport := TsgCADtoDXF.Create(TsgCADImage(sgPaintBox.Picture.Graphic)); //direct export
      try
        vExport.SaveToFile(AFileName);
      Except
        vExport.Free
      end;
      vExport.Free;
    end else
    if pos('.dwg', AFileName) > 0 then
    begin
      vExport := TsgCADtoDWG.Create(TsgCADImage(sgPaintBox.Picture.Graphic)); //direct export
      try
        vExport.SaveToFile(AFileName);
      Except
        vExport.Free
      end;
      vExport.Free
    end else
    begin
      vM := TMetafile.Create;
      try
        vM.Width := FsgPaintBox.Width;
        vM.Height := FsgPaintBox.Height;
        vMC := TMetafileCanvas.Create(vM, 0);
        try
          vMC.StretchDraw(FsgPaintBox.ClientRect, FsgPaintBox.Picture.Graphic);
        Except
          vMC.Free;
        end;
          vMC.Free;
        vM.SaveToFile(AFilename);
      Except
        vM.Free;
      end;
      vM.Free;
    end;
  Finally
  End;

end;

Code: Select all

uses
  ..., SysUtils, CADImage, CADtoDWG, CADtoDXF;

...

implementation

{$R *.dfm}

...

procedure SaveToDWG(ACADImage: TsgCADImage; AFileName: string);
var
  vCADtoDWG: TsgCADtoDWG;
begin
  if not Assigned(ACADImage) then Exit;
  vCADtoDWG := TsgCADtoDWG.Create(ACADImage);
  try
    vCADtoDWG.SaveToFile(AFileName);
  finally
    vCADtoDWG.Free;
  end;
end;

procedure SaveToDXF(ACADImage: TsgCADImage; AFileName: string);
var
  vCADtoDXF: TsgCADtoDXF;
begin
  if not Assigned(ACADImage) then Exit;
  vCADtoDXF := TsgCADtoDXF.Create(ACADImage);
  try
    vCADtoDXF.SaveToFile(AFileName);
  finally
    vCADtoDXF.Free;
  end;
end;

procedure TForm_FaceAvant.SaveToCADByFileFormat(AFileName: string);
var
  vFileExt: string;
begin
  vFileExt := AnsiLowerCase(ExtractFileExt(AFileName));
  if (vFileExt = '.dxf') then
    SaveToDXF(TsgCADImage(sgPaintBox.Picture.Graphic), AFileName);
  if (vFileExt = '.dwg') then
    SaveToDWG(TsgCADImage(sgPaintBox.Picture.Graphic), AFileName);
end;