- Input dialog XYZ
-
Registered
Input dialog XYZ
Macro Code Input dialog XYZ
My first copy paste macro for Direct input for reposition of XYZ
tab through the dialog, and input value, Execute dialog and axes move !
Feed rate ( cutting/position) has no function yet, is open to suggestions!
Sub Main ()
Dim MyList$(1)
MyList(0) = "Position"
MyList(1) = "Cutting"
Dim Xpos As Double
Dim Ypos As Double
Dim Zpos As Double
Begin Dialog DialogName1 60, 60, 400, 180, "Move Direct input Abs"
Text 10, 8, 50, 12, "Absolute XYZ:"
Text 13, 40, 28, 12, "X:"
Text 105, 40, 28, 12, "mm"
Text 150, 40, 28, 12, "Y:"
Text 230, 40, 28, 12, "mm"
Text 300, 40, 28, 12, "Z:"
Text 378, 40, 28, 12, "mm"
GroupBox 7, 20, 390, 36, "Input value"
TextBox 40, 40,60, 10, .Xpos
TextBox 165, 40,60, 10, .Ypos
TextBox 315, 40,60, 10, .Zpos
GroupBox 7, 60, 390, 36, "Feed rate"
DropListBox 80, 80, 80, 36, MyList$(), .DropList1$
Text 10, 80, 70, 12, "Cutting / Position :"
CancelButton 200, 110, 50, 18
PushButton 130, 110, 50, 18, "Execute"
End Dialog
Dim Dlg1 As DialogName1
Dlg1.Xpos = "0000"
Dlg1.Ypos = "0000"
Dlg1.Zpos = "0000"
Dlg1.DropList1 = 1
button = Dialog( Dlg1 )
If button = 0 Then Exit Sub
If PushButton = 1 Then Exit Sub
Code "G90"
Code "G00 X" & Dlg1.Xpos & "G00 Y" & Dlg1.Ypos & "G00 Z" & Dlg1.Zpos
End Sub
Similar Threads:
-
- Input dialog XYZ
Tags for this Thread
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules