Read line data

  Getting Started >

Read line data

Previous pageReturn to chapter overviewNext page

uses DXF, DXFConv, sgConsts;

 

...

 

implementation

 

procedure TForm1.ReadLineDataClick(Sender: TObject);
var
  vDrawing: TsgCADDXFImage; // reading class for DXF format

  I: Integer;
  // "DXF" in the name of Line class is for compatibility
  // use this class for lines in all CAD formats
  vLine: TsgDXFLine;
begin
  vDrawing := TsgCADDXFImage.Create; //TsgDXFImage - class for DXF file reading

                                     //Please use a correspond class to read a drawing of other format.

                                     //For example TsgDWGImage for DWG format, TsgCGMImage for CGM, etc.
  vDrawing.LoadFromFile('Entities.dxf');
// searching entities on the current layout of the drawing
  for I := 0 to vDrawing.CurrentLayout.Count - 1 do
  begin
    if vDrawing.CurrentLayout.Entities[I].EntType = ceLine then
    begin
      vLine := TsgDXFLine(vDrawing.CurrentLayout.Entities[I]);
      ShowMessage('Line is found. Handle = ' +  IntToStr(vLine.Handle) +
        '; X: ' + FloatToStr(vLine.Point.X) + '; Y: ' +  FloatToStr(vLine.Point.Y) +
        '; X1: ' + FloatToStr(vLine.Point1.X) +  '; Y1: ' +  FloatToStr(vLine.Point1.Y));
      break;
    end;
  end;
  vDrawing.Free;
end;

Go to CAD VCL Enterprise