Scribd Logo
Upload

Welcome to Scribd!

  • 79 views

    Fixed Tool Zero

    Uploaded by

    Kularathna Senesh
    This document sets variables to store machine state values like the current tool, feed rate, and coordinate system settings. It then moves to a user-defined tool change position and prompts the user to insert the new tool. The document offers automatic or manual tool length measurement, then restores the original machine state values before completing the tool change process.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd

    Fixed Tool Zero

    Uploaded by

    Kularathna Senesh
    79 views4 pages
    This document sets variables to store machine state values like the current tool, feed rate, and coordinate system settings. It then moves to a user-defined tool change position and prompts the user to insert the new tool. The document offers automatic or manual tool length measurement, then restores the original machine state values before completing the tool change process.

    Original Description:

    Mach3 Fixed Tool Zero VB Script

    Original Title

    fixed tool zero

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document sets variables to store machine state values like the current tool, feed rate, and coordinate system settings. It then moves to a user-defined tool change position and prompts the user to insert the new tool. The document offers automatic or manual tool length measurement, then restores the original machine state values before completing the tool change process.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    79 views4 pages

    Fixed Tool Zero

    Uploaded by

    Kularathna Senesh
    This document sets variables to store machine state values like the current tool, feed rate, and coordinate system settings. It then moves to a user-defined tool change position and prompts the user to insert the new tool. The document offers automatic or manual tool length measurement, then restores the original machine state values before completing the tool change process.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    of 4

    ' Set variables to store some current, selected and user defined values

    tool = GetSelectedTool()            'Value for Tool DRO at completion of tool change


    CurrentFeedMode = GetOemDRO(819)          'Get current G0/G1 state
    CurrentUnitsMM = GetOemLED(802)            'Get Current MM Units state
    CurrentAbsCMode = GetOemLED(48)          'Get current G90/G91 state
    CurrentFeedRate = GetOemDRO(818)          'Get the current Feed Rate
    ToolChangeX = GetUserDRO(1200)            'Get user defined tool change location
    ToolChangeY = GetUserDRO(1201)
    ToolChangeZ = GetUserDRO(1202)            'NOTE: Z will be used for Auto Tool Zero start
    height
    GageH = GetOEMDRO( 1001 )            'Gage Block Height
    ProbeD = 20                  'Depth to probe for touch plate

    ' Move to user defined tool change location

    If CurrentUnitsMM = FALSE Then            'Ensure measurement mode is in MM for macro


       Code "G21"
    End If
    If IsSafeZ() Then               'If SafeZ is defined,
       safeZ = GetSafeZ()            'use it for positioning commands
    Else
       safeZ = 0               'Otherwise, moves are made at MC Z0
    End If
    Code" G53 G0 Z" & safeZ               'Position spindle for tool change
    Code"G53 G0 X" & ToolChangeX & "Y" & ToolChangeY
    While IsMoving()
       Sleep(10)
    Wend
    PText = "Tool #" & tool & " requested.  (See Setup Sheet for details.)" _
       & Chr(10) & "Insert requested tool and press OK to continue."
    MachMsg(PText,"Tool Change Request",0)
    SetCurrentTool( tool )               'Set the Tool DRO to the new tool number

    ' Auto tool zero

    AutoZeroPrompt = "Place probe for Auto Tool Zero and press OK" _
       & Chr(10) & "Or press CANCEL to zero tool manually"
    AutoZero = MachMsg(AutoZeroPrompt,"Auto Tool Zero",1)
    If AutoZero = 1 Then               'AutoZero = 1, User pressed OK
       Code "G53 G0 Z" & ToolChangeZ         'ToolChangeZ is MC for starting location of probing
       While IsMoving()
          Sleep (10)
       Wend
       ZCurrent = GetOemDro(802)         'Current Z DRO
       ZNew = ZCurrent - ProbeD         'Probe depth end height
       Code "G90F100"               'slow feed rate to 100 MM/MIN
       Code "G31 Z" &ZNew            'Start the probe move
       While IsMoving()
          Sleep(10)
       Wend
       If GetOEMLed(825) = True Then         'Probing successful
          ProbeTouch = GetVar(2002)      'Exact height touch plate was contacted
          Code "G1 Z" & ProbeTouch      'Go there (corrects for potential over-run)
          While IsMoving()
             Sleep(10)
          Wend
          Call SetDro(2,GageH)         'Set Z DRO to adjusted value
          FinalMove = GageH + 10
          Code  "G0 Z" &FinalMove         'Raise probe off of touch plate
          While IsMoving()
             Sleep(10)
          Wend
          Message("Press Cycle Start to continue...")
       Else                  'Probe did not contact touch plate
          Message("Zero not achieved - Check probe and try again manually")
       End If
    Else                     'User selected Cancel on Auto Tool Zero prompt
       Message("Zero tool manually and press Cycle Start to continue...")
    End If

    'RESTORE MACHINE STATE VALUES

    'Feed Rate

    Code "F" &CurrentFeedRate            'restore starting feed rate

    'G0/G1 State

    If CurrentFeedMode = "80" Then            'Machine still in initial state at start of macro


       Code "G0"               'so set move mode to G0
    Else
       Code "G" & CurrentFeedMode         'Otherwise set move mode to previous value
    End If

    'G20/G21 State

    If CurrentUnitsMM Then               'Units was previously set to mm


       Code "G21"
    Else                     'Units was previously set to inches
       Code "G20"
    End If

    'G90/G91 State

    If CurrentAbsCMode Then               'System was using absolute coordinates


       Code "G90"
    Else                     'System was using incremental coordinates
       Code "G91"
    End If      

    Next is the slightly modified M6End.m1s file:

    'The (modified) default script here moves the tool back To m6start If Any movement has
    occured during the tool change..

    x = GetToolChangeStart( 0 )
    y = GetToolChangeStart( 1 )
    z = GetToolChangeStart( 2 )
    a = GetToolChangeStart( 3 )
    b = GetToolChangeStart( 4 )
    c = GetToolChangeStart( 5 )
    If(IsSafeZ() = 1) Then
       SafeZ = GetSafeZ()
       Code "G53 G0 Z" & SafeZ
    Else
       Code "G53 G0 Z0"
    End If
    Code "G0 A" & a' & "B" & b & "C" & c
    Code "G0 X" & x & "Y" & y
    Code "G0 Z" & z  

    You might also like