Sub DuplicateRight()
    ' Recorded 5/1/2025
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    ' Duplicate first selection
    Dim dup1 As ShapeRange
    Set dup1 = OrigSelection.Duplicate
    ' Stretch the duplicate horizontally and vertically ActiveDocument.ReferencePoint = cdrMiddleRight
    dup1.Stretch -1#, 1#  ' Mirror horizontally
    ' Send duplicate to front
    dup1.OrderToFront
    ' Apply vertical stretch at the top middle ActiveDocument.ReferencePoint = cdrTopMiddle
    dup1.Stretch 1#, -1#  ' Mirror vertically
    ' Duplicate again
    Dim dup2 As ShapeRange
    Set dup2 = dup1.Duplicate
    ' Stretch the second duplicate horizontally
   ActiveDocument.ReferencePoint = cdrMiddleRight
    dup2.Stretch -1#, 1#  ' Mirror horizontally

    ' Send second duplicate to front
    dup2.OrderToFront

    ' Apply vertical stretch at the bottom middle
    ActiveDocument.ReferencePoint = cdrBottomMiddle
    dup2.Stretch 1#, -1#  ' Mirror vertically
End Sub

// Remove duplicate overlapping strokes between touching shapes

if (app.documents.length > 0) {
    var doc = app.activeDocument;

    if (doc.selection.length > 1) {
        var sel = doc.selection;

        // Create a group for the selected objects
        var group = doc.groupItems.add();
        for (var i = sel.length - 1; i >= 0; i--) {
            sel[i].move(group, ElementPlacement.PLACEATBEGINNING);
        }

        // Duplicate group for outline operation
        var dup = group.duplicate();
        dup.selected = true;

        // Apply Pathfinder Outline
        app.executeMenuCommand('group');
        app.executeMenuCommand('Live Pathfinder Outline');
        app.executeMenuCommand('expandStyle');
        app.executeMenuCommand('ungroup');

        alert("Outline complete! Remove or hide the original objects if needed.");
    } else {
        alert("Please select at least two touching vector shapes.");
    }
} else {
    alert("No document open.");
}