Copy/Paste shapes

Hello,
Ellipses are in layer CUT
In ellipses shapes are in layer Layer 1
All shapes are on Page 7
How to copy all shapes from Page 7 to other page, assume Page 8
preserving layer position of shapes - Ellipses in layer CUT,
In ellipses in layer Layer 1?
Greetings!

Parents

No Data

Reply

CorelCS 5 months ago

[CgsAddInMacro]
public void DuplicateOverPage()
{
    try
    {
        string[] layersNames = { "Cut", "Text" };
        Page page = corelApp.ActiveDocument.ActivePage;
        corelApp.ActiveDocument.BeginCommandGroup("Duplicate");
        Page newPage = corelApp.ActiveDocument.InsertPages(1, false, 1);
        for (int i = 0; i < layersNames.Length; i++)
        {
            ShapeRange toMove = page.AllLayers[layersNames[i]].Shapes.All();
            toMove.Duplicate();
            Layer lCut = newPage.CreateLayer(layersNames[i]);
            toMove.MoveToLayer(lCut);
        }
        
        corelApp.ActiveDocument.EndCommandGroup();
    }
    catch(Exception e)
    {
        MessageBox.Show(e.Message);
    }
}

Children

No Data