Input dialog XYZ


Results 1 to 1 of 1

Thread: Input dialog XYZ

  1. #1
    Registered
    Join Date
    Nov 2011
    Location
    Norway
    Posts
    4
    Downloads
    0
    Uploads
    0

    Default Input dialog XYZ

    Macro Code Input dialog XYZ

    Input dialog XYZ-input-dialog-abs-moment-jpg

    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:
    Attached Thumbnails Attached Thumbnails Input dialog XYZ-input-dialog-abs-moment-jpg  


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
  •  


About CNCzone.com

    We are the largest and most active discussion forum for manufacturing industry. The site is 100% free to join and use, so join today!

Follow us on


Our Brands

Input dialog XYZ

Input dialog XYZ