How to change the layer
Posted: 13 Jun 2014, 04:41
hello.
I'm trying to do that:
1.Changing the Layer of Entity
2.Rename Layer
Layer has the Entitiy.
Am I wrong?
use version is 9.1.
Thank you.
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;use version is 9.1.
Thank you.