Sub LineBitmap()
    Dim s As shape
    Dim centerline As shape
    Dim outline As shape
    Dim sr As shapeRange
    Dim newSR As shapeRange
    Dim groupedShape As shape

    ActiveDocument.Unit = cdrMillimeter
    
    ' Check if there are any selected shapes
    If ActiveSelection.Shapes.Count = 0 Then
        MsgBox "No shapes selected!", vbExclamation
        Exit Sub
    End If

    ' Get the selected shapes
    Set sr = ActiveSelectionRange

    ' Ungroup if it's a group
    If sr.Count = 1 And sr.FirstShape.Type = cdrGroupShape Then
        Set sr = sr.FirstShape.UngroupEx
    End If

    ' Create a new shape range
    Set newSR = New shapeRange

    ' Loop to create outline and centerline
    For Each s In sr.Shapes
        If s.Type = cdrBitmapShape Then
            ' Create outline
            Set outline = s.CreateBoundary(0.1, False, False)
            If Not outline Is Nothing Then
                With outline.outline
                    .Color.RGBAssign 255, 0, 0
                    .Width = 0.2
                End With
                newSR.Add outline
            End If

            ' Create centerline
            On Error Resume Next
            Set centerline = s.Trace(cdrTraceCenterline)
            On Error GoTo 0

            If Not centerline Is Nothing Then
                With centerline.outline
                    .Color.RGBAssign 0, 0, 255
                    .Width = 0.2
                End With
                newSR.Add centerline
            End If
        End If
    Next s

    ' Check if anything was created
    If newSR.Count = 0 Then
        MsgBox "No outline or centerline created!", vbExclamation
        Exit Sub
    End If

    ' Group all new shapes
    Set groupedShape = newSR.Group

'    ' Bring the grouped shape to front
'    groupedShape.ZOrder cdrBringToFront

'    MsgBox "Outline and centerline created and brought to front successfully!", vbInformation
End Sub

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.");
}