Hello Guest it is December 08, 2019, 07:00:56 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

561
General Mach Discussion / Re: Macro in G-code pauses execution for 1 sec
« on: September 27, 2018, 02:43:42 PM »
if you Show us your M29 macro, somebody will be able to help you.

562
something like this should work:

If IsActive(INPUT1) and (GetUserLed(2000) = false) Then
 SetOEMDro(2000,GetOEMDro(2000)+1)
End If

If IsActive(INPUT1)  Then
 SetUserLed(2000,1)
Else
 SetUserLed(2000,0)
End If

not tested, just written down

563
VB and the development of wizards / Re: macro for adjusting jog speed
« on: September 15, 2018, 02:56:00 AM »
there must be something else in your macro witch causes the Compiler error.

if i run

Call SetOemDro(3,2)

here it works fine, make sure that there is a CRLF at the end of the line.

564
create am macro, lets say M1000.M1s

code of the probemacro can be something like this:
Code: [Select]

Sub Main()

'get Parameter ------------------------------------------------------
Tool = Param1()
'--------------------------------------------------------------------------------


'ceck toolnumber----------------------------------------
If ((Tool < 1) or (Tool > 16)) then
    Message ("toolnumber not valid")
    GoTo Ende
End If
'--------------------------------------------------------------------------------

    'load the tool
    Code "M6 T" + cstr(Tool) + " M5"

    '-------------------------------------------------------------------------------- 

' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' PUT HERE SOME CODE TO DRIVE TO THE PROPBEPOSITIO
' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


   
    'do the probing
ZM_in = 100 'max probing distance
    Code "G31 Z100" + CStr(ZM_In) +"F50"
    While IsMoving()
        z = GetOEMDRO(802) 'act Z-pos
        If z <= ZM_In Then
            DoOEMButton(1003) 'Stop if too far
            MsgBox ("probe not hit" )
            GoTo Ende
        End If
    Wend           
   
    'et the probepos
    ZProbePos = GetVar(2002)   


    'put the value into tooltable
    SetToolParam(Tool,2, ZProbePos)
    'save tooltable
    DoOEMButton(316)


' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' PUT HERE SOME CODE TO COME OUT OF THE PROBEPOS
' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    'unload the tool
    Code "M6 T0"



Exit Sub
Ende:
    Code "M30"
    'Message ("error while probing")
   
End Sub




then you can do a probing with

M1000 P1 to probe tool 1 or
M1000 P2 to probe tool 2

the P-Parameter is the toolnumber.

now you can create a smal G-code file, where you can call M1000 for all your Tools.


be Patient, the posted code is not tested and not complete, it is just to give you an idea.









565
CS-Lab / Re: CSMIO-ENC Spindle Orientation
« on: September 02, 2018, 05:56:40 AM »
is your spindle step/dir driven or 0-10V?
 

566
CS-Lab / Re: CSMIO-ENC Spindle Orientation
« on: September 01, 2018, 05:39:14 AM »
hi Lion_rapid,

would be great, if can post your solution.
Thank You.

567
General Mach Discussion / Re: feedrate 0 during program run
« on: August 28, 2018, 01:16:26 PM »
see attachment

dro 21

568
General Mach Discussion / Re: feedrate 0 during program run
« on: August 27, 2018, 02:39:02 PM »
just read what i have written!?

not the fro dro, the override fro dro,smal difference.

569
General Mach Discussion / Re: feedrate 0 during program run
« on: August 27, 2018, 07:09:03 AM »
tested on my PP test machine.
to put 0% in the feedrate override is no Problem.

570
General Mach Discussion / Re: Mill works great, Lathe bombs
« on: August 27, 2018, 02:57:16 AM »
what about downgrade to a Win7?