Hello Guest it is November 15, 2019, 08:31:14 PM

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

1151
Hi,

The macro move the axis in Jog until an external switch is pressed ( like an automatic pallet finder ).

I need to move the axis in manual Jog with a VB macro ......... I don't understand why this function is available but don't work in my application .

What is wrong ?



have a look for G31/M31 for this, would be perfect for this.

Thomas


1152
Hi,

ok again, what are you trying to do with this macro.

i still think it is a homing/probing.

Thomas

sometimes an other way is the better way.

1153
Hi,

by the way your code looks like a kind of homing/probing function.

why don't you use G28 or G31 (or M31 from CSMIO homepage)
for this job.

this macro solution will be imprecise anyway.

Thomas

1154
Hi,

modified yiur code a little bit. Hopefuly i can test tonight on my CSMIO machine.

Thomas

Sub Main()

  SoftLimitsOff
 
  DoOEMButton(204) 

  Xaxis = 0
  Yaxis = 1
  Zaxis = 2
  Plus = 0
  Minus = 1
 
  SetOEMDRO(3,10)
 

  If GetCsmioIn(6) = False Then
    JogOn(Zaxis,Plus)
  End If
 
  Do
 
    If GetCsmioIn(6) = True Then
      Exit Do
    End If
   
  Loop
   
  JogOff(Zaxis) 
 
  Sleep(1000)

 
  If GetCsmioIn(6) = True Then
     JogOn(Zaxis,Minus)
  End If
 
  Do
 
    If GetCsmioIn(6) = False Then
       Exit Do
    End If
        
  Loop
   
  JogOff(Zaxis) 
 
  Sleep(2000)
   
 
  DoOEMButton(141)
 

  Sleep(2000)
 
 
  Code("G01 Z-10 F1000")
  Sleep(2000)

End Sub


1155
Hi,

let us see your macros.

Thomas

1156
Hi Emil,

any new info's ??

yust a question.

Thomas

1157
Brains Development / Re: compare immediate not working
« on: June 22, 2015, 03:36:39 PM »
Hi George,

7) If you are still struggling and needs to post for help hopefully Thomas or one of the other regular contributors will answer your call.

   I don't know where we would be without them.

Thanks Guys

George


Thank You

Thomas

1158
Brains Development / Re: compare immediate not working
« on: June 22, 2015, 02:52:05 AM »
Hi George,
back again.

in VB it would be easy, am i am sure that it will work
like this.

' tool position 1
If (IsActive(INPUT1) And IsActive(INPUT2) And IsActive(INPUT3) And Not IsActive(INPUT4)) Then
   SetCurrentTool( 1 )
End If

Thomas



1159
Brains Development / Re: compare immediate not working
« on: June 18, 2015, 04:38:10 PM »
Hi George,

i will be offline for a couple of day's.
if after this "day's" nobody got a brain
"solution" we will try to get this working
in VB.

Thomas

1160
Hi Fred,

sorry  i will be offline for a few days

Thomas