How to join two files?

[DarkEternal]

But I dont know which cad editor they use but I make program for this file format.
Just I need to find points from these files.
Now I think that they can put colored points for finding.
For Example Can Ifind blue, green ext. points from file?

[support]

CAD Import VCL allows finding points in a drawing. But it works in the only case - these points should exist. You sent us some CGM (this is not AutoCAD file format) files which does not contain any point.

For Example Can I find blue, green ext. points from file?

Yes, you can. But file should contain these points at first.

Sergey.

[DarkEternal]

Yes, I know.
I will say them to put these points.
Can you send me example to find that colored points?

[support]

Here it is:

Code: Select all

procedure TForm1.btnFindPointByColorClick(Sender: TObject);
var
  I: Integer;
  vPoint: TsgDXFPoint;
begin  
  for I := 0 to TsgCADImage.Converter.Counts[csEntities] - 1 do
  begin
    if TsgCADImage.Converter.Sections[csEntities].Entities[I] is TsgDXFPoint then
    begin
      vPoint := TsgDXFPoint(TsgCADImage.Converter.Sections[csEntities].Entities[I]);
      if vPoint.Color = clRed then
        ShowMessage('Red point exists.');
    end;
  end;
end;

Sergey.

[DarkEternal]

They send me new colored file.
I try your code but can not find point.
When I zoom cgm file by Cad Import Vcl, it looks like something wrong.
They use Catia.

I send you cgm file and zooming pic. with email.

[support]

We have received it. We will answer you soon.

Sergey.

[support]

It is necessary to search TsgDXFArc objects with your file:

Code: Select all

procedure TForm1.btnGetCenterHatchClick(Sender: TObject);
var
  I: Integer;
  vArc: TsgDXFArc;
  vEnt: TsgDXFEntity;
begin
  for I := 0 to TsgCADImage.Converter.Counts[csEntities] - 1 do
  begin
  vEnt := TsgDXFEntity(TsgCADImage.Converter.Sections[csEntities].Entities[I]);
    if vEnt is TsgDXFArc then
    begin
      vArc := TsgDXFArc(TsgCADImage.Converter.Sections[csEntities].Entities[I]);
      if (vArc.Color = clBlue) or (vArc.Color = clGreen) then
        ShowMessage('Cross point exists.'); //vArc.Point - this point contains required coordinates     
    end;
  end;
end;

Sergey.