Add entities to specific layers

[Klemens]

Hi support,

how do I can add entities like a polyline to a specific layer named as "Demo"?

Thanks a lot.

Kind regards

Klemens

[support]

Hello!

Please try the following code:

Code: Select all

var  
  vPoly: TsgDXFPolyline;
  vVertex: TsgDXFVertex;
  ...
begin
...
  vPoly := TsgDXFPolyline.Create;
  vPoly.Closed := True;

  vVertex := TsgDXFVertex.Create;
  vPoly.AddEntity(vVertex);
  vVertex.Point := MakeFPoint(0,0,0);

  vVertex := TsgDXFVertex.Create;
  vPoly.AddEntity(vVertex);
  vVertex.Point := MakeFPoint(0,100,0);

  vVertex := TsgDXFVertex.Create;
  vPoly.AddEntity(vVertex);
  vVertex.Point := MakeFPoint(200,100,0);

  vVertex := TsgDXFVertex.Create;
  vPoly.AddEntity(vVertex);
  vVertex.Point := MakeFPoint(200,0,0);

  vPoly.Layer := vImg.Converter.LayerByName('Demo');

  TsgDXFImage.Converter.Sections[csEntities].AddEntity(vPoly);
  if Assigned(TsgDXFImage.Converter.OnCreate) then
    TsgDXFImage.Converter.OnCreate(vPoly);
  TsgDXFImage.Converter.Loads(vPoly);
  TsgDXFImage.GetExtents;

Sergey.