Hello Guest it is April 19, 2024, 06:01:35 PM

Author Topic: Homing via VB  (Read 3892 times)

0 Members and 1 Guest are viewing this topic.

Homing via VB
« 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.

Offline poppabear

*
  • *
  •  2,235 2,235
  • Briceville, TN, USA
    • View Profile
Re: Homing via VB
« Reply #1 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
fun times
Re: Homing via VB
« Reply #2 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)  ?




« Last Edit: February 07, 2008, 01:00:25 PM by swarfboy »

Offline poppabear

*
  • *
  •  2,235 2,235
  • Briceville, TN, USA
    • View Profile
Re: Homing via VB
« Reply #3 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
fun times