Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Guest
Dim X,Y as Double
Open "C:\Mach3\myFile.txt" For Output As #1
X = GetDRO(0)
Y = GetDRO(1)
Print #1, X
Print #1, Y
Close #1
Dim Answer
Dim newPosX, newPosY As Double
Open "C:\Mach3\myFile.txt" For Input As #2 'Open the file for reading
Line Input #2, newPosX 'Read the first line of the file
Line Input #2, newPosY 'Read the second line of the file
Answer = MsgBox ("Is it OK to move the X axis to: " & newPos & "?", 1)
If Answer = 1 Then 'You pressed OK
Code "G0 X"& newPosX & " Y" & newPosY 'Make the move
End If
Close #2
'M400 for digtizing
'get the filename for digfile from user
Sub Main()
If NOT Isloading() then
Dim FNum, FName ' Declare variables.
'get Filename from user
Begin Dialog TextBoxSample 16,30,180,96,"enter digfilename"
OKButton 132,20,40,14
Text 8,8,132,8,"filename without extension:"
TextBox 8,20,100,12,.TextBox1
Text 8,44,132,8,"file will be in c:\Mach3\GCode"
End Dialog
Dim Dlg1 As TextBoxSample
Dialog Dlg1
SetUserLabel(255, Dlg1.TextBox1)
'open the to file errase all existing data
FNum = FreeFile ' Determine next file number.
FName = "C:\Mach3\GCode\" + GetUserLabel(255) + ".nc"
Open FName For Output As FNum ' Open file.
Close ' Close all files.
SetUserDro(1166,1)
End If
End Sub
'M401 for digtizing
'write the values into digfile
Sub Main()
Dim FNum, FName ' Declare variables.
'wait for axis standstill
WaitForMove
'open the file for output data data
FNum = FreeFile ' Determine next file number.
FName = "C:\Mach3\GCode\" + GetUserLabel(255) + ".nc"
Open FName For Append As FNum ' Open file.
Print #FNum, nFmt(GetDro(0),4) & "," & nFmt(GetDro(1),4) & "," & nFmt(GetDro(2),4)
Close ' Close all files.
End Sub
'global Sub's
Sub WaitForMove ()
While IsMoving()
Sleep(5)
Wend
End Sub