SelectedPoints example

Example for SelectedPoints event

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
    Command1.Text = "Create triangle"
    cAvax1.StartAvax()
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

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
    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
    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