开云体育

----------------------------------------------------------
-- 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