How to add and delete a block in cadimportvcl ?

[liaoqc]

please give a sample,thanks!

[support]

Hello,

How to add and to delete a block:

Code: Select all

<b>var</b>
  vBlock: TsgDXFBlock;
  vLine: TsgDXFLine;
  vImg: TsgDXFImage;
<b>begin</b>
  vImg := TsgDXFImage(sgPaintBox.Picture.Graphic);
  <b>if</b> vImg = <b>nil then</b> Exit;
// Create Entity By Block
  vLine := TsgDXFLine.Create;
  vLine.SetColor(clRed);
  vLine.Point := MakeFPoint(0,0,0);
  vLine.Point1 := MakeFPoint(100,100,0);
  <b>if</b> Assigned(vImg.Converter.OnCreate) <b>then</b>
    vImg.Converter.OnCreate(vLine);
  vImg.Converter.Loads(vLine);
// Create Block
  vBlock := TsgDXFBlock.Create;
  vBlock.Name := 'Demo Block';
  vBlock.SetColor(clBlue);
  vBlock.Offset := MakeFPoint(50, 50, 0);
  vBlock.AddEntity(vLine);
  <b>if</b> Assigned(vImg.Converter.OnCreate) <b>then</b>
    vImg.Converter.OnCreate(vBlock);
  vImg.Converter.Loads(vBlock);
  vImg.Converter.Sections[csBlocks].AddEntity(vBlock);
// Delete Block
  vImg.Converter.DeleteBlock(vBlock, True);
<b>end</b>;

Sergey.

please post questions to the forum or write to support@cadsofttools.com