' Measure edit mode
' CamBam.CAD.MeasureEditMode

Sub main()

    Dim edmode As New MeasureEditMode(CamBamUI.MainUI.ActiveView)

    edmode.DefaultValue = vbNull

    'add the handler to catch the mouse events
    AddHandler edmode.OnReturnOK, AddressOf point_clicked
    AddHandler edmode.OnReturnCancel, AddressOf point_clicked_clr

    CamBamUI.MainUI.ActiveView.SetEditMode(edmode)
    CamBamUI.MainUI.ActiveView.RepaintEditMode()

End Sub

Sub point_clicked(ByVal sender As Object, ByVal e As EventArgs)

    Dim mPoint As Point3F()

    mPoint = sender.returnvalue

    MsgBox("X1: " & mPoint(0).x & "    Y1: " & mPoint(0).y)
    MsgBox("X2: " & mPoint(1).x & "    Y2: " & mPoint(1).y)

End Sub

Sub point_clicked_clr(ByVal sender As Object, ByVal e As EventArgs)
    'edit mode canceled
    msgbox("abort")

End Sub