Extract a list of all strings in a .dwg document

[palee1952]

I am using CAD Import VCL 8.0 (Delphi) and would like to be able to extract a list of all strings within an autocad document. I have had a look at the functions that are available but cannot see anything obvious.

Any help much appreciated.

Peter

[palee1952]

OOps, sorry wrong section.

[support]

Hello,

In order to extract all the text strings from an AutoCAD file, you should access TsgDXFText and TsgDXFMText entities as shown in the code snippet below:

Code: Select all

uses
  ...,
  CADImage, DXFConv, DWG, DXF;


procedure AccessDXFTexts(ACADImage: TsgCADImage);
var
  I: Integer;
  vEntity: TsgDXFEntity;
  vText: TsgDXFText;
  vMText: TsgDXFMText;
begin
  for I := 0 to ACADImage.Converter.Counts[csEntities] - 1 do
  begin
    vEntity := ACADImage.Converter.Entities[I];
    if vEntity.EntType = ceText then
      vText := vEntity as TsgDXFText;
    if vEntity.EntType = ceMText then
      vMText := vEntity as TsgDXFMText;
  end;
end;

Mikhail