Option Explicit

Private Sub btnNoteLength_Click()
    Dim s As Shape
    Dim curveLength As Double
    Dim x As Double, y As Double
    Dim textShape As Shape
    
    ' Check if a shape is selected
    If ActiveSelection.Shapes.Count = 1 Then
        Set s = ActiveSelection.Shapes(1)
        
        ' Ensure it's a curve
        If s.Type = cdrCurveShape Then
            curveLength = s.Curve.Length
            
            ' Get position (midpoint of the curve's bounding box)
            x = s.BoundingBox.Left + (s.BoundingBox.Width / 2)
            y = s.BoundingBox.Top + (s.BoundingBox.Height / 2)
            
            ' Create a text label with the curve length
            Set textShape = ActiveLayer.CreateArtisticText(x, y, "Length: " & Round(curveLength, 3) & " mm")
            
            MsgBox "Curve length noted: " & Round(curveLength, 3) & " mm", vbInformation, "Success"
        Else
            MsgBox "Please select a curve.", vbExclamation, "Invalid Selection"
        End If
    Else
        MsgBox "Please select a single curve.", vbExclamation, "No Selection"
    End If
End Sub

Private Sub btnClose_Click()
    Unload Me
End Sub

Sub OpenCurveLengthForm()
    frmCurveLength.Show
End Sub

 Sub Start()
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    Dim dup1 As ShapeRange
    Set dup1 = OrigSelection.Duplicate(, -2.165354)
    dup1.Move 0#, -y
    dup1.OrderToFront
    Dim dup2 As ShapeRange
    Set dup2 = dup1.Duplicate(, -2.165354)
    dup2.Move 0#, -y
    dup2.OrderToFront
    Dim dup3 As ShapeRange
    Set dup3 = dup2.Duplicate(, -2.165354)
    dup3.Move 0#, -y
    dup3.OrderToFront
    Dim dup4 As ShapeRange
    Set dup4 = dup3.Duplicate(, -2.165354)
    dup4.Move 0#, -y
    dup4.OrderToFront
        
    ActiveDocument.AddToSelection dup1, dup2, dup3, dup4

    Set s1 = ActiveSelection.Group.Duplicate(3.543307)

    Set OrigSelection = ActiveSelectionRange
    ActiveLayer.Shapes(1).AddToSelection

    Set s1 = ActiveSelection.Group
End Sub