CADSoftTools

Code: Select all

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

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


<b>procedure</b> TForm1.btnOpenCADClick(Sender: TObject);
<b>begin</b>
  sgImage1.LoadFromFile(<font color="blue">'c:\Test.dxf'</font id="blue">);
  <b>if</b> sgImage1.Picture.Graphic <b>is</b> TsgDXFImage <b>then
  begin</b>
    FImg := TsgDXFImage(sgImage1.Picture.Graphic);
    sgImage1.Align := alClient;
  <b>end
  else</b>
    FImg := <b>nil</b>;
<b>end</b>;

<b>procedure</b> TForm1.btnAddBMPClick(Sender: TObject);
<b>var</b>
  Ent: TsgDXFEntity;

  <b>function</b> GetBitMap: TsgDXFEntity;
  <b>var</b>
    vBitMap: TBitmap;
    vImageEnt: TsgDXFImageEnt <b>absolute</b> Result;
  <b>begin</b>
    Result := <b>nil</b>;

    vBitMap := TBitmap.Create;
    <b>try</b>
      vBitMap.LoadFromFile(<font color="blue">'c:\Test.bmp'</font id="blue">);
    <b>except</b>
      vBitMap.Free;
      Exit;
    <b>end</b>;
    vImageEnt := TsgDXFImageEnt.Create;
    vImageEnt.Point := MakeFPoint(<font color="blue">0</font id="blue">,<font color="blue">0</font id="blue">,<font color="blue">0</font id="blue">);
    vImageEnt.Point1 := MakeFPoint(vBitMap.Width, <font color="blue">0</font id="blue">, <font color="blue">0</font id="blue">);
    vImageEnt.Point2 := MakeFPoint(<font color="blue">0</font id="blue">, vBitMap.Height, <font color="blue">0</font id="blue">);
    vImageEnt.Point3 := MakeFPoint(<font color="blue">0.5</font id="blue">,<font color="blue">0.5</font id="blue">,<font color="blue">0.5</font id="blue">);
    vImageEnt.SetImage(vBitMap);
    vBitMap.Free;
  <b>end</b>;

<b>begin
  if</b> FImg = <b>nil then</b>
    Exit;

  Ent := GetBitMap;
  <b>if</b> Ent <> <b>nil then
  begin</b>
    FImg.Converter.Sections[csEntities].AddEntity(Ent);
    <b>if</b> Assigned(FImg.Converter.OnCreate) <b>then</b>
      FImg.Converter.OnCreate(Ent);
    FImg.Converter.Loads(Ent);
    FImg.GetExtents;
    FImg.RefreshCurrentLayout;
    sgImage1.Width := FImg.Width;
    sgImage1.Height := FImg.Height;
    sgImage1.Align := alClient;
    sgImage1.Invalidate;
  <b>end</b>;
<b>end</b>;

<b>end</b>.

Code: Select all

  vImageEnt.Point3 := MakeFPoint(<font color="blue">100</font id="blue">,<font color="blue">100</font id="blue">,<font color="blue">1</font id="blue">);

Code: Select all

  vImageEnt.Point1 := MakeFPoint(<font color="blue">2.5</font id="blue">, <font color="blue">0</font id="blue">, <font color="blue">0</font id="blue">);//width
  vImageEnt.Point2 := MakeFPoint(<font color="blue">0</font id="blue">, <font color="blue">2.5</font id="blue">, <font color="blue">0</font id="blue">);//heigth
  vImageEnt.Point3 := MakeFPoint(<font color="blue">100</font id="blue">,<font color="blue">100</font id="blue">,<font color="blue">1</font id="blue">);//scale

Code: Select all

  vImageEnt.Point1 := MakeFPoint(vImageDef.Picture.Width,<font color="blue">0</font id="blue">,<font color="blue">0</font id="blue">);//width
  vImageEnt.Point2 := MakeFPoint(<font color="blue">0</font id="blue">, vImageDef.Picture.Height,<font color="blue">0</font id="blue">);//heigth
  vImageEnt.Point3 := MakeFPoint(<font color="blue">1</font id="blue">,<font color="blue">1</font id="blue">,<font color="blue">1</font id="blue">);//scale