How to change the layer

[hayami]

hello.

I'm trying to do that:
1.Changing the Layer of Entity
2.Rename Layer

Layer has the Entitiy.

Code: Select all

procedure ChangeLayer(AEntity: TsgDXFEntity; AToLayerName: String);
var
    wLayer: TsgDXFLayer;
begin
	wLayer := FCadImage.Converter.LayerByName(AToLayerName);
	AEntity.Layer := wLayer;
	FCadImage.Converter.Loads(AEntity);
	FCadImage.GetExtents;
end;

Code: Select all

procedure RenameLayer(AOldName; ANewName: String);
var
    wLayer: TsgDXFLayer;
begin
	wLayer := FCadImage.Converter.LayerByName(AOldName);
	wLayer.Name := ANewName;
	FCadImage.Converter.Loads(wLayer);
	FCadImage.GetExtents;
end;

Am I wrong?

use version is 9.1.

Thank you.

[support]

Hello,

Your code is correct.


Mikhail.