GetLineStartPoint example

Example for GetLineStartPoint method

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Call CAvax1.StartAvax()
    CAvax1.Command = Avax.AvaxCommand.Line_c
End Sub

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

Private Sub CAvax1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CAvax1.Click
    Dim x As Single
    Dim y As Single
    Dim z As Single
    Dim Answer As Boolean
    Dim lineon As Short
    CAvax1.GetAvaxStatus(False, False, False, False, False, False, False, lineon, False, False, False, False, False, False, False, False)
    If lineon <> 0 Then
        Answer = CAvax1.GetLineStartPoint(x, y, z)
        If Answer = True Then MsgBox("x=" & x & Environment.NewLine & "y=" & y)
    End If
End Sub