Brian,

?

I tried out the mcFileHoldAquire() in the m6 file it did stop there and I was able to jog the axis’s.

But after jogging I hit cycle start button it seemed to get stuck on the next statement that is a ?mcCntlGcodeExecute()? Its didn’t lock up the system but hitting cycle start doesn’t seen to matter just never would exit the m6 script, if I hit cycle stop it would stop and exit the m6 script..

I also tried adding a mc.mcFileHoldRelease() but had no effect..

?

Thanks Gary

?

?

?

Sent from for Windows

?

From: Brian Barker
Sent: Friday, January 27, 2023 8:36 AM
To: [email protected]
Subject: Re: [MachCNC] wxlua frame

?

Hi Gary,

What you will need to do is put this code in the screen (where graphics are done). In your M6 set a register to a value that will trigger the dialog in the screen. You will need a spinlock checking to see when your dialog is done (set some other register stating that the Macro needs to continue) . We do have some other tools to hold a macro (mcFileHoldAquire) but it's a bit more advanced (This is the tool that allows the manual tool change to work) and what is also doing the the work for the mcCntlWaitOnCycleStart command. Try that out and tell me how it works for you. If you would like a hand doing it I am more than happy to assist you with the programming. I think this would be a cool router feature :)

?

thanks
Brian

?

______________________________

?

Brian Barker

Engineering / Development

ArtSoft | Newfangled Solutions

Livermore Falls, Maine (USA)

Webpage: 

On 1/26/2023 7:00 PM, Gary wrote:

----------------------------------------------------------
-- frame with 4 buttons inside a Coroutine module script
-- Runs from a button script
----------------------------------------------------------
inst = mc.mcGetInstance()
local path = mc.mcCntlGetMachDir(inst)
package.path = path .."\\Modules\\?.lua;"

??? --mach4ProbeMenu module
package.loaded.mach4ProbeMenu = nil
pb = require "mach4ProbeMenu"
?? ?
pb.M6Menu()



----------------------------------------------------------
-- frame with 4 buttons inside a Coroutine modual script
-- this goes into the modules folder
----------------------------------------------------------
------------------------------------------------------------------------------------
-- Module to be called with button script
-- So far i have not been able to get to run correct being called from a g code file
------------------------------------------------------------------------------------
local M6Control = {}

function M6Control.M6Menu()

local function button1Event(event)
??? coroutine.wrap(function()
??????? -- code for button 1 event
??? end)()
end

local function button2Event(event)
??? coroutine.wrap(function()
??????? -- code for button 2 event
??? end)()
end

local function button3Event(event)
??? coroutine.wrap(function()
??????? -- code for button 3 event
??? end)()
end

local function button4Event(event, frame)
??? coroutine.wrap(function()
??? Abort()
??? frame:Destroy()
??????? -- code for button 4 event
??? end)()
end

local function main()
??? -- Create a new frame
??? local frame = wx.wxFrame(wx.NULL, wx.wxID_ANY, "My Frame",
??????????????????????????? wx.wxDefaultPosition, wx.wxSize(340, 400))

??? -- Create Text above each button
??? local text1 = wx.wxStaticText(frame, wx.wxID_ANY, "Manual Button:\nTool must be in the Tool Table and offset set Swap tool out then Press Manual",
??????????????????????????????? wx.wxPoint(20, 10), wx.wxSize(150, 100))
??? local text2 = wx.wxStaticText(frame, wx.wxID_ANY, "Manual Touch:\nSwap tool out then Jog Z down to part surface use a feeler gauge, then Press Manual Touch",
??????????????????????????????? wx.wxPoint(20, 70), wx.wxSize(150, 100))
??? local text3 = wx.wxStaticText(frame, wx.wxID_ANY, "Manual Probe:\nSwap tool out then put your touch off plate on top of part, Z will move down to above part surface and probe part, After Pressing Manual Touch",
??????????????????????????????? wx.wxPoint(20, 150), wx.wxSize(150, 100))
??? local text4 = wx.wxStaticText(frame, wx.wxID_ANY, "Abort:\nPress abort only if you cannot do a tool swap it will exit and also will disable the machine stop all code from running",
??????????????????????????????? wx.wxPoint(20, 250), wx.wxSize(150, 100))

??? -- Create buttons
??? local button1 = wx.wxButton(frame, wx.wxID_ANY, "Manual",
??????????????????????????????? wx.wxPoint(200, 20), wx.wxSize(100, 30))
??? local button2 = wx.wxButton(frame, wx.wxID_ANY, "Manual Touch",
??????????????????????????????? wx.wxPoint(200, 90), wx.wxSize(100, 30))
??? local button3 = wx.wxButton(frame, wx.wxID_ANY, "Manual Probe",
??????????????????????????????? wx.wxPoint(200, 180), wx.wxSize(100, 30))
??? local button4 = wx.wxButton(frame, wx.wxID_ANY, "Abort",
??????????????????????????????? wx.wxPoint(200, 270), wx.wxSize(100, 30))

??? -- Connect button events
??? button1:Connect(wx.wxEVT_COMMAND_BUTTON_CLICKED, button1Event)
??? button2:Connect(wx.wxEVT_COMMAND_BUTTON_CLICKED, button2Event)
??? button3:Connect(wx.wxEVT_COMMAND_BUTTON_CLICKED, button3Event)
??? button4:Connect(wx.wxEVT_COMMAND_BUTTON_CLICKED, function(event) button4Event(event, frame) end)

-- Show the frame
frame:Show(true)
end

local co = coroutine.wrap(main)
co() -- start the coroutine

function Abort()
--frame:Destroy()
wx.wxMessageBox("Abort")
end
wx.wxGetApp():MainLoop()
end

--M6Control.M6Menu()

return M6Control

here is an example of the code i have been trying, i wanted to call the frame when doing a tool change, based on checking some registers that may be set..
and only call the frame if need be...

Thanks gary

?