Machsupport Forum

Mach Discussion => VB and the development of wizards => Topic started by: swarfboy on February 07, 2008, 11:27:08 AM

Title: Homing via VB
Post by: swarfboy on February 07, 2008, 11:27:08 AM

Can I control the "bounce off" distance after an axis is homed using VB?
Can I control the homing speed using VB, besides setting the % in the homing and limits dialog?

Currently I am using DoButton(22), DoButton(23), DoButton(24) to home X,Y and Z.

My tool probing at 20mm/min is much more accurate and repeatable then my homing at 400mm/min.
Its either the inductive switches I use for homing or the fact that I home at a higher speed than I probe.
I'd like to be able to home at high speed and then back of the switch and home again at a slow speed and see
if this method improves my problem. I assume there is some sort of latency when homing probing at higher speeds
,if not then I'll try some new switches which are mechanical like my tool probe.

Title: Re: Homing via VB
Post by: poppabear on February 07, 2008, 12:08:50 PM

Yes,

  You can put a custom VB driven homning routing in your home button in screen designer.

scott

Title: Re: Homing via VB
Post by: swarfboy on February 07, 2008, 12:53:56 PM

So I found the parameters for setting speed of homing how bout the bounce off after homing?

SetParam(XRefPer, 40)    ' X 40 % speed for homing
SetParam(YRefPer, 40)    ' Y 40 % speed for homing
SetParam(ZRefPer, 40)     ' Z 40 % speed for homing
SetParam(XHomingBounceOffDistance, 10)  ?
SetParam(YHomingBounceOffDistance, 10)  ?
SetParam(ZHomingBounceOffDistance, 10)  ?

Title: Re: Homing via VB
Post by: poppabear on February 07, 2008, 02:10:11 PM

'you can put this in your Macro pump it will only run right after your ref leds light ups, change the offset value to + or - and the amount:
' leave your first three lines in your ref button for setparam.

'macropump.m1s
Refcount = GetUserDRO(2000)
 
If GetOEMLED(807) and GetOEMLED(808) and GetOEMLED(809) and Refcount=0 Then
Code "X10 Y10 Z10"
SetUserDRO(2000,1)
End If

If GetOEMLed(800) Then
SetUserDRO(2000,0)
End If

'Scott