Option Explicit
Sub WireCutLengthStartPoint
	If Not ActiveDocument.ToolpathsAreValid Then
		ActiveDocument.SimToolpath
	End If

	Dim oper As FMWireEDMOperation
	For Each oper In ActiveDocument.Operations
		Dim s As String
		s = oper.FeatureName & " (" & oper.OperationName & ")"

		Dim l As Double
		Dim u As Double
		oper.GetCutLengths l, u
		s = s & vbNewLine & "Upper Cut Length: " & Str(u)
		s = s & vbNewLine & "Lower Cut Length: " & Str(l)

		Dim X As Variant
		Dim Y As Variant
		oper.GetStartPoints X, Y
		Dim i As Integer
		For i = 0 To UBound(X)
			s = s & vbNewLine & "Start Point: " & Str(X(i)) & ", " & Str(Y(i))
		Next

		MsgBox s
	Next
End Sub