CADSoftTools

Code: Select all

<b>uses</b>
  ... SGImage, DXFImage, DXFConv, sgConsts, DXFExport;

<b>type</b>
  TForm1 = <b>class</b>(TForm)
    ...
    btnSaveByMetafile: TButton;
    sgImage1: TsgImage;    
    OpenDialog1: TOpenDialog;
    procedure btnSaveByMetafileClick(Sender: TObject);    
  <b>private</b>
    <i><font color="blue">{ Private declarations }</font id="blue"></i>
    FImg: TsgDXFImage;

...

<b>procedure</b> TForm1.btnSaveByMetafileClick(Sender: TObject);
<b>var</b>
  vPoly: TsgDXFPolyline;
  vVertex: TsgDXFVertex;
  vMet: TMetafile;
  E: TsgDXFExport;
  vGr: TGraphic;
  vOffX, vOffY, vUSize: TsgFloat;
<b>begin
  if not</b> OpenDialog1.Execute <b>then</b>
    Exit;
  sgImage1.LoadFromFile(OpenDialog1.FileName);
  <b>if</b> sgImage1.Picture.Graphic <b>is</b> TsgDXFImage <b>then
  begin</b>
    sgImage1.Align := alClient;
    FImg := TsgDXFImage(sgImage1.Picture.Graphic);
  <b>end
  else
  begin</b>
    FImg := <b>nil</b>;
    Exit;
  <b>end</b>;

  vPoly := TsgDXFPolyline.Create;

  vVertex := TsgDXFVertex.Create;
  vVertex.Point := MakeFPoint(<font color="blue">0</font id="blue">,<font color="blue">0</font id="blue">,<font color="blue">0</font id="blue">);
  vPoly.AddEntity(vVertex);

  vVertex := TsgDXFVertex.Create;
  vVertex.Point := MakeFPoint(<font color="blue">1000</font id="blue">,<font color="blue">0</font id="blue">,<font color="blue">0</font id="blue">);
  vPoly.AddEntity(vVertex);

  vVertex := TsgDXFVertex.Create;
  vVertex.Point := MakeFPoint(<font color="blue">1000</font id="blue">,<font color="blue">1000</font id="blue">,<font color="blue">0</font id="blue">);
  vPoly.AddEntity(vVertex);

  vVertex := TsgDXFVertex.Create;
  vVertex.Point := MakeFPoint(<font color="blue">0</font id="blue">,<font color="blue">1000</font id="blue">,<font color="blue">0</font id="blue">);
  vPoly.AddEntity(vVertex);
  vPoly.Closed := True;

  FImg.Converter.Layouts[<font color="blue">0</font id="blue">].AddEntity(vPoly);
  <b>if</b> Assigned(FImg.Converter.OnCreate) <b>then</b>
    FImg.Converter.OnCreate(vPoly);
  FImg.Converter.Loads(vPoly);

  FImg.GetExtents;
  sgImage1.Refresh;

  vGr := sgImage1.Picture.Graphic;
  E := TsgDXFExport.Create;
  <b>try</b>
    E.IsParseWhite := True;
    <b>if not</b> ((vGr <b>is</b> TsgDXFImage) <b>or</b> (vGr <b>is</b> TMetafile)) <b>then
    begin</b>
      ShowMessage(<font color="blue">'Raster drawings can not be saved to DXF format'</font id="blue">);
      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(<font color="blue">'c:\SaveByMetafile.dxf'</font id="blue">);
  <b>finally</b>
    E.Free;
  <b>end</b>;
<b>end</b>;

Code: Select all

<b>uses</b>
  ... SGImage, DXFImage, DXFConv, sgConsts, CADtoDXF;

<b>type</b>
  TForm1 = <b>class</b>(TForm)
    ...    
    sgImage1: TsgImage;
    btnSaveDirectly: TButton;
    OpenDialog1: TOpenDialog;    
    <b>procedure</b> btnSaveDirectlyClick(Sender: TObject);
  <b>private</b>
    <i><font color="blue">{ Private declarations }</font id="blue"></i>
    FImg: TsgDXFImage;

...

<b>procedure</b> TForm1.btnSaveDirectlyClick(Sender: TObject);
<b>const</b>
  cnstLayerName: <b>string</b> = <font color="blue">'new_Layer'</font id="blue">;
  cnstLTypeName: <b>string</b> = <font color="blue">'new_LType'</font id="blue">;
<b>var</b>
  vPoly: TsgDXFPolyline;
  vVertex: TsgDXFVertex;
  vCADFile: TsgDXFImage;
  vLType: TsgDXFLineType;
  vExp: TsgCADtoDXF;
<b>begin</b>
  vCADFile := TsgDXFImage.Create;
  <b>try</b>
    vCADFile.Converter.InitializeSections;
    <i><font color="blue">{ Adding the new linetype to image-converter }</font id="blue"></i>
    vLType := TsgDXFLineType.Create;
    vLType.Name := cnstLTypeName;
    vLType.Lines.AddTick(<font color="blue">25</font id="blue">);      <font color="blue"><i>// length of the "solid" part of a line </i> </font id="blue">
    vLType.Lines.AddTick(<font color="blue">-12.5</font id="blue">);    <font color="blue"><i>// length of the "empty" part of a line </i></font id="blue">
    vCADFile.Converter.Sections[csLTypes].AddEntity(vLType);

    <i><font color="blue">{ Adding the polyline entity }</font id="blue"></i>
    vPoly := TsgDXFPolyline.Create;

    vVertex := TsgDXFVertex.Create;
    vVertex.Point := MakeFPoint(<font color="blue">0</font id="blue">,<font color="blue">0</font id="blue">,<font color="blue">0</font id="blue">);
    vPoly.AddEntity(vVertex);

    vVertex := TsgDXFVertex.Create;
    vVertex.Point := MakeFPoint(<font color="blue">1000</font id="blue">,<font color="blue">0</font id="blue">,<font color="blue">0</font id="blue">);
    vPoly.AddEntity(vVertex);

    vVertex := TsgDXFVertex.Create;
    vVertex.Point := MakeFPoint(<font color="blue">1000</font id="blue">,<font color="blue">1000</font id="blue">,<font color="blue">0</font id="blue">);
    vPoly.AddEntity(vVertex);

    vVertex := TsgDXFVertex.Create;
    vVertex.Point := MakeFPoint(<font color="blue">0</font id="blue">,<font color="blue">1000</font id="blue">,<font color="blue">0</font id="blue">);
    vPoly.AddEntity(vVertex);
    vPoly.Closed := True;
    vPoly.SetColor(clBlue);                                      <font color="blue"><i>// color </i></font id="blue">
    vPoly.Layer := vCADFile.Converter.LayerByName(cnstLayerName);<font color="blue"><i>// Layer will be created automatically </i></font id="blue">
    vPoly.SetLType(vCADFile.Converter.LTypeByName(cnstLTypeName));
    <b>if</b> Assigned(vCADFile.Converter.OnCreate) <b>then</b>
      vCADFile.Converter.OnCreate(vPoly);
    vCADFile.Converter.Loads(vPoly);
    vCADFile.Converter.Sections[csEntities].AddEntity(vPoly);

    <i><font color="blue">{ Apply new drawing extents }</font id="blue"></i>
    vCADFile.GetExtents;

    <font color="blue"><i>{ Copying new drawing to the sgPaintBox } </i></font id="blue">
    sgImage1.Picture.Graphic := vCADFile;
    sgImage1.Align := alClient;
    FImg := TsgDXFImage(sgImage1.Picture.Graphic);
    sgImage1.Width := Round(vCADFile.AbsWidth);
    sgImage1.Height := Round(vCADFile.AbsHeight);
    sgImage1.Invalidate;
    vExp := TsgCADtoDXF.Create(TsgDXFImage(sgImage1.Picture.Graphic));
    vExp.Version := acR2000;
    vExp.SaveToFile(<font color="blue">'c:\SaveDirectly.dxf'</font id="blue">);
    vExp.Free;
  <b>finally</b>
    vCADFile.Free;
  <b>end</b>;
<b>end</b>;

Code: Select all

{ Adding the polyline entity }
    vPoly := TsgDXFPolyline.Create;

    vVertex := TsgDXFVertex.Create;
    vVertex.Point := MakeFPoint(0,0,0);
    vPoly.AddEntity(vVertex);

    vVertex := TsgDXFVertex.Create;
    vVertex.Point := MakeFPoint(1000,0,0);
    vPoly.AddEntity(vVertex);

    vVertex := TsgDXFVertex.Create;
    vVertex.Point := MakeFPoint(1000,1000,0);
    vPoly.AddEntity(vVertex);

    vVertex := TsgDXFVertex.Create;
    vVertex.Point := MakeFPoint(0,1000,0);
    vPoly.AddEntity(vVertex);
    vPoly.Closed := True;