DXFExportVCL : how to change layers

[Mariusz]

Hi,

I make DXF file using metafiles in that way:

vDXF := TsgDXFExport.Create;
try
vDXF.LoadFromMetafile(Image1.Picture.Metafile); //this metalife lies one defaulr layer 0

vLayer := TsgExpDXFLayer.Create('LayerName1');
vLayer.Color:=ColorToDXF(clRed);
vDXF.CurrentLayer := vLayer;
vDXF.LoadFromMetafile(Image2.Picture.Metafile);

vDXF.LoadFromMetafile(Image3.Picture.Metafile); //it should also lie on layer '0'

.... and so on


Usually one metafile on one layer, but in some cases two or more metafiles lie on the same layer.

How, in that case, can I set Current Layer as default layer '0' or any of previous created?


Thanks in advance.
Mariusz

[support]

Hello.

vDXF.LoadFromMetafile(Image3.Picture.Metafile); //it should also lie on layer '0'

it shouldn't, because you set layer with name "LayerName1" as current layer

Layer := TsgExpDXFLayer.Create('LayerName1');
vDXF.CurrentLayer := vLayer;

now entities will be drawn to "LayerName1" layer. You can change current layer to any created before by SetLayerByString method.
Also please note: use Clear before calling LoadFromMetafile procedure.

Alexander.