Machsupport Forum
Mach Discussion => VB and the development of wizards => Topic started by: haroutkhaloian on October 04, 2015, 03:46:19 AM
-
Hello
i need your help a little please .. i have a problem with my Mach3 Probe ... to start with i made my own probe and everything it worked fine the LED light was green when the torch touched the plate and the VBscript worked fine as well when i clicked on "ref all home" .. but heres the problem when i try to work on a file on Mach3 the probe doesnt work at all .. its like i didnt even activated it :( i tried to change the vbscript and many other things but nothing worked .... i need help if you could .. as soon as possible
thanks in advance.
-
Hi,
post your vbscript an we will see, but remember
the probing is only measuring the length of the
tool, nothing else.
Thomas
-
sorry i might have done something wrong ... but what i want is what in the following video:-
https://www.youtube.com/watch?v=ZwK58aWHsHQ
i want my plasma machine to work just like in the video shows ... if you have a map of how i should do that or a setting or wiring or a way of connecting or a VBscript anything that helps my plasma to work the same as the man's in the video ... please send it to me .. thanks.
(p.s. i did connect the limit switch with the Z axis)
-
Hi,
a simple example for metric would be:
Sub Main
cutheight = 20
cutpos = 0
ZProbePos = 0
Code "G31 Z-200 F150" 'do the probing
While IsMoving() 'wait for finish
Wend
'get the position where we hit the probe
ZProbePos = GetVar(2002)
cutpos = ZProbePos - cutheight
'go to cutting heigt
code "G1 Z" + cutpos + "F100"
'set new z-Pos
SetDRO(2,cutheight)
End Sub
not tested, just written down.
Thomas
-
im sorry but the vbscript you sent didnt work ...
-
what exactly did not work ?
did you do a ref all after the probe ?
-
only half of it worked and then it says "Error Line:17_mismatch" and yes i did click on ref all after the probe the same error appeared .... does this script that you sent me works with every time i start a program on mach3? like does it move every time or just once only when i click on ref all??
-
ok, here the corrected version:
Sub Main
cutheight = 20
cutpos = 0
ZProbePos = 0
Code "G31 Z-200 F150" 'do the probing
While IsMoving() 'wait for finish
Wend
'get the position where we hit the probe
ZProbePos = GetVar(2002)
cutpos = ZProbePos - cutheight
'go to cutting heigt
code "G1 Z" + CStr(cutpos) + "F100"
'set new z-Pos
SetDRO(2,cutheight)
End Sub
but the logic sequence would be to do a ref all first,
and the run the script, because the ref Z will "destroy"
your probe height.
Thomas