'print to immediate window
            Debug.Print "---EDGE #" & i
            Select Case swCurve.Identity
                Case 3001
                    Debug.Print "   Type: line"
                Case 3002
                    Debug.Print "   Type: circle"
                Case 3003
                    Debug.Print "   Type: ellipse"
                Case 3004
                    Debug.Print "   Type: intersection"
                Case 3005
                    Debug.Print "   Type: b-curve"
                Case 3006
                    Debug.Print "   Type: sp-curve"
                Case 3008
                    Debug.Print "   Type: constant parameter"
                Case 3009
                    Debug.Print "   Type: trimmed"
            End Select
            dblLength = Round(dblLength, 4)
            Debug.Print "   Length = " & dblLength * 1000 & "mm"





    'print total length
    Debug.Print "---Total length: " & dblTotalLength * 1000 & "mm"