How to Iterate All Entities inside a block?

[FieldConsult]

How to Iterate All Entities inside a block and get witch type are every one for explode later?

[FieldConsult]

This forum is dead!!!!

[support]

Hello,

The following procedure iterates through all entities inside a block specified by its name and reads the entity type (TsgCADEntities):

Code: Select all

uses
   ..., CADImage, DXFConv, sgConsts;


procedure AccessDXFBlockByName(ACADImage: TsgCADImage; ABlockName: string);
var
  I: Integer;
  vBlock: TsgDXFBlock;
  vEntity: TsgDXFEntity;
  vDXFLine: TsgDXFLine;
  vDXFCircle: TsgDXFCircle;
begin
  vBlock := ACADImage.Converter.BlockByName(ABlockName);
  if Assigned(vBlock) then
    for I := 0 to vBlock.Count - 1 do
    begin
      vEntity := vBlock.Entities[I];
      case vEntity.EntType of
        ceLine:
          vDXFLine := vEntity as TsgDXFLine;
        ceCircle:
          vDXFCircle := vEntity as TsgDXFCircle;
      end;
    end;
end;

Mikhail

[FieldConsult]

Thanks!!