GetSelectedPoints example

Example for GetSelectedPoints method

Private Sub CAvax1_OnMouseMove(ByVal Sender As Object, ByVal e As Avax.cAvax.MouseMoveEventArgs) Handles CAvax1.OnMouseMove
    Dim x1() As Single
    Dim y1() As Single
    Dim z1() As Single
    Dim lMax As Integer
    lMax = CAvax1.GetSelectedPoints(x1, y1, z1)
    If lMax = 2 Then
        Call CAvax1.Draw_Line(x1(1), y1(1), x1(2), y1(2), 5, 2, 1)
    End If
End Sub

Private Sub CAvax1_SelectedPoints(ByVal Sender As Object, ByVal e As Avax.cAvax.SelectedPointsEventArgs) Handles CAvax1.SelectedPoints
    Select Case e.SelectId
    Case "Create triangle"
        If e.lPointNumber = 3 Then
            Call CAvax1.Add_Shape(e.x1, e.y1, e.z1, Nothing, 1, 3, 2, 0, "", 0, 0, -1, -1, -1, -1, Avax.AvaxPolylineType.Polyline_pt)
        End If
    End Select
End Sub

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Dim sSelectId As String
    Dim lPointsToSelect As Integer
    Dim ExistX() As Single
    Dim ExistY() As Single
    Dim ExistZ() As Single
    Dim fBoxOn As Boolean
    Dim fNoSnapAndOrtho As Boolean
    Dim Answer As Boolean
    Label1.Text = "Select points to make a triangle..."
    CAvax1.StartAvax()
    lPointsToSelect = 3
    ReDim ExistX(1)
    ReDim ExistY(1)
    ReDim ExistZ(1)
    ExistX(1) = 3
    ExistY(1) = 3
    sSelectId = "Create triangle"
    Answer = CAvax1.SelectPoints(sSelectId, lPointsToSelect, ExistX, ExistY, ExistZ, fBoxOn, fNoSnapAndOrtho)
End Sub

Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    CAvax1.EndAvax()
End Sub