Hello Guest it is March 28, 2024, 08:53:54 AM

Author Topic: tool height probing  (Read 6676 times)

0 Members and 1 Guest are viewing this topic.

Offline dude1

*
  •  1,253 1,253
    • View Profile
tool height probing
« on: June 29, 2015, 07:03:06 PM »
can some one test the attached code I am not sure if it`s working properly it look`s to be working but keeps come up with no probe signal found.

I am run M4 with no license on a ESS

this is the code use from the zip not here
Code: [Select]
-----------------------------------------------------------------------------
-- Auto Tool Setting Macro
-----------------------------------------------------------------------------
--[[
 Requires the following instance registers to be defined
 TS_XPos-----------X position of probe (machine position)
 TS_YPos-----------Y position of probe (machine position)
 TS_Type-----------Offset type (1 or 2)
 TS_TouchPos-------Z position of touch off surface (machine position)
 TS_ProbeH---------Height of probe above touch off surface
 TS_DefaultL-------Default tool length guess
 TS_Retract--------Retract distance after probe touch
 Offset Type 1-----Length of tool from gauge line to tip
 Offset Type 2-----Distance from tip of tool to the touch position
]]
--The function GetRegister() must be defined for use by macros


 function m1005()
 local inst = mc.mcGetInstance()

function GetRegister(regname)
      local rc;
      local inst = mc.mcGetInstance();
      local hreg = mc.mcRegGetHandle(inst, string.format("iRegs0/%s", regname));
      return mc.mcRegGetValueString(hreg);
   end

 ------------- Define Vars -------------
 local ProbeSignal = mc.ISIG_DIGITIZE
 ------------- Get current state -------------
 local CurTool = mc.mcToolGetCurrent(inst)
 local CurHNum = mc.mcCntlGetPoundVar(inst, 2032)
 local CurFeed = mc.mcCntlGetPoundVar(inst, 2134)
 local CurZOffset = mc.mcCntlGetPoundVar(inst, 4102)
 local CurFeedMode = mc.mcCntlGetPoundVar(inst, 4001)
 local CurAbsMode = mc.mcCntlGetPoundVar(inst, 4003)
 ------------- Get touch off parameters -------------

 local XPos = GetRegister("TS_XPos", 1)
 local YPos = GetRegister("TS_YPos", 1)
 local OffsetType = GetRegister("TS_Type", 1)
 local TouchPos = GetRegister("TS_TouchPos", 1)
 local ProbeHeight = GetRegister("TS_ProbeH", 1)
 local RetractDistance = GetRegister("TS_Retract", 1)
 local ToolLengthGuess = GetRegister("TS_DefaultL", 1)
 ------------- Check Probe -------------
 local hsig = mc.mcSignalGetHandle(1,inst, ProbeSignal,mc.ISIG_INPUT11)
 local ProbeState = mc.mcSignalGetState(hsig)
 if (ProbeState == true) then
 mc.mcCntlSetLastError(inst, "ERROR: Probe signal is activated")
 do return end
 end

 ------------- Calculations for Gcode -------------
 local StartHeight = TouchPos + ProbeHeight + ToolLengthGuess + .5

 ------------- Generate GCode -------------
 AutoToolSetGCode = ""
 AutoToolSetGCode = AutoToolSetGCode .. "G00 G80 G40 G49 G90\n"
 AutoToolSetGCode = AutoToolSetGCode .. "G00 G53 Z0.0\n"
 AutoToolSetGCode = AutoToolSetGCode .. string.format("G00 G53 X%.4f Y%.4f\n", XPos, YPos)
 AutoToolSetGCode = AutoToolSetGCode .. string.format("G00 G53 Z%.4f\n", StartHeight)
 AutoToolSetGCode = AutoToolSetGCode .. "G91 G31 Z-2.0 F25.\n"

 mc.mcCntlGcodeExecuteWait(inst, AutoToolSetGCode)
 --Check probe contact
 ProbeState = mc.mcSignalGetState(hsig)
 if (ProbeState ~= 1) then
 mc.mcCntlSetLastError(inst, "ERROR: No contact with probe")
 mc.mcCntlGcodeExecuteWait(inst, "G0 G90 G53 Z0.0\n")
 do return end
 end

 AutoToolSetGCode = ""
 AutoToolSetGCode = AutoToolSetGCode .. string.format("G91 G00 Z%.4f\n", RetractDistance)
 AutoToolSetGCode = AutoToolSetGCode .. "G91 G31 Z-1.0 F10.\n"

 mc.mcCntlGcodeExecuteWait(inst, AutoToolSetGCode)
 --Check probe contact
 ProbeState = mc.mcSignalGetState(hsig)
 if (ProbeState ~= 1) then
 mc.mcCntlSetLastError(inst, "ERROR: No contact with probe")
 mc.mcCntlGcodeExecuteWait(inst, "G0 G90 G53 Z0.0\n")
 do return end
 end

 AutoToolSetGCode = ""
 AutoToolSetGCode = AutoToolSetGCode .. "G90 G00 G53 Z0.0\n"
 mc.mcCntlGcodeExecuteWait(inst, AutoToolSetGCode)
 ------------- Get touch position and set offset -------------
 local ZProbed = mc.mcCntlGetPoundVar(inst, 5063)
 local ZOffset = ZProbed - ProbeHeight + CurZOffset
 if (OffsetType == 1) then
 ZOffset = math.abs(TouchPos - ZOffset)
 end

 mc.mcToolSetData(inst, mc.MTOOL_MILL_HEIGHT, CurTool, ZOffset)
 mc.mcCntlSetLastError(inst, string.format("Auto tool setting complete, Offset = %.4f",
ZOffset))
 
 ------------- Set previous state -------------
 mc.mcCntlSetPoundVar(inst, 2134, CurFeed)
 mc.mcCntlSetPoundVar(inst, 4001, CurFeedMode)
 mc.mcCntlSetPoundVar(inst, 4003, CurAbsMode)

end
if (mc.mcInEditor() == 1) then
 m1005()
end
Re: tool height probing
« Reply #1 on: June 30, 2015, 12:32:01 AM »
Does your hardware support G31?

Offline dude1

*
  •  1,253 1,253
    • View Profile
Re: tool height probing
« Reply #2 on: June 30, 2015, 01:48:46 AM »
I can run the G31 Macro B with no problems
Re: tool height probing
« Reply #3 on: June 30, 2015, 02:49:06 AM »
Do you have all your registers set up? ie. TS_XPOS defined in the Register plug-in?

Offline dude1

*
  •  1,253 1,253
    • View Profile
Re: tool height probing
« Reply #4 on: June 30, 2015, 03:14:47 AM »
yer the code runs but keep getting no probe contact even if I trigger the probe it works but says no probe contact and yes the probe does work I tested with M3 first it`s all good in M3 it may be that I have no  license.

only the Mach boys can answer this one unless someone with a license test`s it if it happens to work for them that`s what I need if they have same problem it will be the input code is wrong I have it set to input 11 as its on input 11 I may need to change it to ISIG_PROBE  as it maped to probe not input 11.
Re: tool height probing
« Reply #5 on: June 30, 2015, 04:17:22 AM »
Could be Dan. G31 commands and execution may just be mapped to the Probe input....vs. Input XX. Good looking out. I bet you're right! By the way, how old is my New Zealand friend? I'm 37...16 yrs in military service (federal acquisitions and contracting). But, I think I know what I actually want to do now after retirement...

Offline dude1

*
  •  1,253 1,253
    • View Profile
Re: tool height probing
« Reply #6 on: June 30, 2015, 04:43:44 AM »
the same I think you have a knack for it if you mean being a cnc machine operator or working in the cnc field you seem to be picking up this Lua ********* fast what Cad do you use
Re: tool height probing
« Reply #7 on: June 30, 2015, 12:10:16 PM »
I have Solidworks and HSM Express. I'm just learning. I won't let myself start on Solidworks until I understand Mach 4, gCode, macros, etc. I am forcing myself to start from the ground up so I am able to read gCode and understand the machine language. I just got Peter Smid's book on FANUC custom scripts (I believe it was ya-nvr-no's recommendation in one of the threads). I'm just having too much fun! There is so much to learn.

Offline dude1

*
  •  1,253 1,253
    • View Profile
Re: tool height probing
« Reply #8 on: June 30, 2015, 07:46:16 PM »
sounds good

Offline dude1

*
  •  1,253 1,253
    • View Profile
Re: tool height probing
« Reply #9 on: June 30, 2015, 07:47:26 PM »
well I tryed ISIG_PROBE did not help MACH boy`s please help