Hello Guest it is April 13, 2021, 05:45:50 AM

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - TPS

2011
VB and the development of wizards / Re: macro for homing
« on: February 19, 2015, 02:31:11 AM »
Hi riporeno,

why was wondering if it was possible to set the speed with a macro.

Get/SetParam()

"VelocitiesX" = X MaxVel from motor tuning page (SetParam as units/second. Mach will multiply X60 for display in motor tuning as units/minute.)
"VelocitiesY"= Y MaxVel from motor tuning page (SetParam as units/second. Mach will multiply X60 for display in motor tuning as units/minute.)
"VelocitiesZ" = Z MaxVel from motor tuning page (SetParam as units/second. Mach will multiply X60 for display in motor tuning as units/minute.)

is that what you are looking for ?

Thomas


2012
VB and the development of wizards / Re: macro for homing
« on: February 18, 2015, 02:41:46 AM »
Hi riporeno,
hi TPS
sorry but I do not understand what you mean
  I have two different input
before zeroing I enable a relay that signal out of limits.
arrival on the micro that indicates the first input.
I go back up to find zero index encoder. on the second input.
thank you
regads

i mean to wire both signals ,home switch and index signal, via
a relay to one input, witch is the reference input. then you
can use in both times the reference function, and not reacting
to an input in the macro.

VB macros are only updated 1/10s so it is very hard to see this index
signal. homing function is updated in a higher priority.

Thomas


2013
VB and the development of wizards / Re: macro for homing
« on: February 18, 2015, 02:37:24 AM »
Hi,
Having got to the home position how are the machine coordinates zeroed?
I found   dooembutton(105)  but that does them all.  How can one zero X and Y leaving Z unchanged?

DoButton( 8 ) -> Zero X
DoButton(9) -> Zero Y
DoButton(10) -> Zero Z

DoButton(22) -> Ref. X
DoButton(23) -> Ref. Y
DoButton(24) -> Ref. Z


Regards Thomas

2014
VB and the development of wizards / Re: macro for homing
« on: February 17, 2015, 02:46:23 AM »
Hi reporemo,

is your home switch and your index wired to seperate inputs ?

just an idea:
wire both signals via a relay to the same input
relay off -> normal home switch
relay on -> index

-then do a reference with higher speed to normal switch
-switch relay
-lower reference speed
-do an other reference with slow speed to index



Thomas

2015
VB and the development of wizards / Re: macro for homing
« on: February 16, 2015, 07:13:59 AM »
Hi riporeno

how can I disable
the signal of the axis limits with the macro language.?

not sure why you want to do this, because if limit's and
reference switch are configured for the the same pin,
it's doing reference first.
regarding to your macro, why dont you do a refernce with
high speed (on normal switch), the do a other one with
1/10 of the origin speed ?


also you can change the feed value set maximum motor tuning in?
(with macro language)

just use G1 F*********instead of G0.

Thomas



2016
VB and the development of wizards / Re: macro for homing
« on: February 12, 2015, 06:34:43 AM »
Hi riporeno,

here my proposal:
Code: [Select]
Sub Main ()
  
'Dichiaro le due velocità di spostamento    
   FeedHoming = 20      'Search speed switches Home
  
'Imposed on the parameter of the speed of Homing for X, Y, Z
   SetParam ("ZRefPer", FeedHoming)
   SetParam ("YRefPer", FeedHoming)
   SetParam ("XRefPer", FeedHoming)

'Call the subprogram for the Home Z

'Z I lift fast for a distance definitely superior to its stroke
  
      Code "G0 Z999999"  'TPS G0 does allways full speed no feedrate needed
      While IsMoving() 'wait for input during move
          If IsActive(INPUT1) Then
            'Without approaching fast, wait half a second and I start homing
            DoOEMButton(1003)
            Sleep 500
            DoButton(24)
           While GetOemLed(809) = true 'TPS wait for Z-Ref finished had a lot trouble using IsMoving()
           Sleep(200)
         Wend
      Wend

'ripeto per gli assi Y e X

      Code "G0 Y-999999" 'TPS G0 does allways full speed no feedrate needed
      While IsMoving() 'wait for input during move
          If IsActive(INPUT2) Then
            DoOEMButton(1003)
            Sleep 500
            DoButton(23)
           While GetOemLed(808) = true 'TPS wait for Z-Ref finished had a lot trouble using IsMoving()
           Sleep(200)
         Wend
      Wend

      Code "G0 X-999999" 'TPS G0 does allways full speed no feedrate needed
      While IsMoving() 'wait for input during move
          If IsActive(INPUT3) Then
            DoOEMButton(1003)
            Sleep 500
            DoButton(22)
           While GetOemLed(807) = true 'TPS wait for Z-Ref finished had a lot trouble using IsMoving()
           Sleep(200)
         Wend
        
      Wend

      Code "(Homing eseguito)"
  
End Sub

without GOTO's and some remarks.

Regards Thomas

PS: code is not tested

here http://www.machsupport.com/forum/index.php/topic,27912.0.html
you can read about my homing problems.

2017
Mach Screens / Re: tooltiptext
« on: February 09, 2015, 03:04:07 AM »
hi andmar2005,

a tooltiptext is only showing up, if you are with the mouse
over the element.

Thomas

2018
VB and the development of wizards / Re: macro for homing
« on: February 09, 2015, 03:02:16 AM »
Hi,
ok than let's try an other road:

   Message ("ref. Z-axis")
   DoOemButton(1024) 'Ref Z
   Sleep(500)
   While GetOemLed(809) = true 'wait normal reference to be finished
       Sleep(200)
   Wend
                Message ("ref. Z-axis to index mark")
                'here you can do your reference onto the index signal

Regards Thomas

2019
VB and the development of wizards / Re: macro for homing
« on: February 07, 2015, 03:15:35 AM »
hello,

have a look for oembutton(150).

Thomas

2020
Hello,

i think the line

code "M1002"

is the problem a macrocall in a macro gave allways problems to me.

oder vielleicht können wir auch auf deutsch weiter machen, da einige Kommentare auf Deutsch sind.

Gruß/Regards Tom