CADSoftTools

Code: Select all

var
	wCadImg: TsgCADdxfImage;
	wEntity: TsgDXFEntity;
	wLayer: TsgDXFLayer absolute wEntity;
	wGroup: TsgDXFGroup;
	i: Integer;
~~~~~~~~~~~~

		wGroup := wCadImg.Converter.Sections[csLayers];
		for i := 0 to wGroup.Count - 1 do begin
			wEntity := wGroup.Entities[i];
			if (wLayer.Name = 'target layer') then begin
				Break;
			end;
		end;
		wCadImg.Converter.RemoveEntity(wLayer, True);

~~~~~~~~~~~~

Code: Select all

var
  Img: TsgCADImage;

...

procedure DeleteLayer(AName: string);
var
  vLayer: TsgDXFLayer;
  vEntity: TsgDXFEntity;
  I, Count: Integer;
begin
  vLayer := TsgDXFLayer(Img.Converter.Sections[csLayers].FindEntByName(AName));
  if Assigned(vLayer) then
  begin
    Count := Img.Converter.Sections[csEntities].Count;
    I := 0;
    while I < Count do
    begin
      vEntity := Img.Converter.Sections[csEntities].Entities[i];
      if vEntity.Layer = vLayer then
      begin
        Img.Converter.RemoveEntity(vEntity, True);
        Count := Img.Converter.Counts[csEntities];
      end
      else
        Inc(I);
    end;
    if Img.Converter.Sections[csLayers].RemoveEntity(vLayer) then
      vLayer.Free;
  end;
end;