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