' EntityMoveEditMode
' CamBam.CAD.EntityMoveEditMode

Dim abortedit As Boolean, edit_finished As Boolean

Sub main()

    abortedit = False
    edit_finished = False

    Move_Entity()

    app.log(abortedit)

End Sub

Sub Move_Entity()

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

    edmode.DefaultValue = vbNull
    edmode.Prompt = "Move entity"
    AddHandler edmode.OnReturnOK, AddressOf point_clicked
    AddHandler edmode.OnReturnCancel, AddressOf point_clicked_clr

    CamBamUI.MainUI.ActiveView.SetEditMode(edmode)  'run the edit mode
    CamBamUI.MainUI.ActiveView.RepaintEditMode()

    Do While edit_finished = False
        System.Windows.Forms.Application.DoEvents()
    Loop

End Sub

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

    edit_finished = True

End Sub

Sub point_clicked_clr(ByVal sender As Object, ByVal e As EventArgs)
    'cancel used
    abortedit = True
    edit_finished = True

End Sub