Messages

2351

General Mach Discussion / Re: Help Please

« on: April 09, 2015, 02:44:23 AM »

Hi,

to keep the spindle and dust collector on remove:

N720M09

and in config -> general config -> program End, M30 deselect turn spindle off
(hope it is in the english version there)

Thomas

2352

General Mach Discussion / Re: new guy with problems

« on: April 06, 2015, 05:13:26 AM »

Hi,

one simple thing to test for loose spindle is:
-chouse slow jog speed
-hold the spindle with one hand
-jog with the other had backward and foreward and try to block the spindle
there you can feel if there is any loose part.

an other test is to do G1 moves in the MDI, allways the same distance forward
and backward, mark your startpoint and endpoint and check that it goes allways to the same
points.

 Thomas

2353

VB and the development of wizards / Re: "Z-Correction" problem after Tool-Probing

« on: April 03, 2015, 07:31:11 AM »

Hi,

this macros worked here.

M6Start

Code: [Select]

 
'Save coolant
SetUSERLED(1200, 1)
If GetOEMLED(12) Then
DoOEMButton(114)
SetUSERLED(1200, 0)
End If


SetOEMDRO(1216,GetOEMDRO(83))  'Save x
SetOEMDRO(1217,GetOEMDRO(84))  'save y

'Code "M1001"
message "Fahre Save-Z"
Code "G0G53 Z" & GetOEMDRO(54)
While IsMoving()
Wend
message "Fahre zur Ref-Switch Pos."
code "g0 g53 x" & GetOEMDRO(33) & "g0 g53 y" & GetOEMDRO(34)
While IsMoving()
Wend



tool = GetSelectedTool()
SetCurrentTool( tool )


M6End:

Code: [Select]

'code "M1002"

 DeActivateSignal(Output14)
 DeActivateSignal(Output16)
 DeActivateSignal(Output17)

If GetOEMDRO (24) <>0 Then

        message "Fahre zur Tool Probe"
code "g0 g53 x" & GetOEMDRO(1218) & "g0 g53 y" & GetOEMDRO(1219) 'Go to probe Position
While IsMoving()
Wend

'Probing process
   message "Z-Vorpos"
     code "g0 g53 z" & -GetOEMDRO(1220)
While IsMoving()
Wend
        message "Z-Probe schnell"
code "g31 z-1000 f700"  
While IsMoving()
Wend
' code "M1002"
' code "M1010"
        message "Z-Probe Rückzug"
code "g53 g0 z" & GetOEMDRO(85)+3
While IsMoving()
Wend
        message "Z-Probe langsam"
code "g31 z-1000 f50"
While IsMoving()
Wend
' code "M1002"





Axis_Pos = GetOEMDRO(85)
Tool_Offset = Axis_Pos
Call setOEMDRO(42, Tool_Offset)

        message "Z Save Pos."
        Code "G0G53 Z" & GetOEMDRO(54) 'safe-Z
While IsMoving()
Wend
        message "X/Y zurück"
        Code "G0G53 X" & GetOEMDRO(1216) & "G0G53 Y" & GetOEMDRO(1217)
While IsMoving()
Wend


'Restart coolant
If GetUSERLED(1200)<>1 Then
If GetOEMLED(12) Then
Else
DoOEMButton(114)
End If
SetUSERLED(1200, 1)


End If



Else
MsgBox "Keine Werkzeug-Nummer gewählt",0
End If  


    



Thomas

2354

VB and the development of wizards / Re: "Z-Correction" problem after Tool-Probing

« on: April 02, 2015, 08:53:59 AM »

ich kann den deutschen Text schon lesen, kein Problem.

ok let's carry on in english to keep al the others in the race.

maybe one of the ethernet SS guy's can test this code, because as said
it is running here fine.

Thomas

2355

VB and the development of wizards / Re: "Z-Correction" problem after Tool-Probing

« on: April 02, 2015, 08:22:41 AM »

found it,

The only restriction is that you are advised not to call another script from within a script


from:

http://www.machsupport.com/Mach3Wiki/index.php?title=Mach_specific_Subroutines/Functions_grouped_by_purpose

Thomas

2356

VB and the development of wizards / Re: "Z-Correction" problem after Tool-Probing

« on: April 02, 2015, 08:18:06 AM »

Hello Max,

i have seen you do macro calls inside the macro.
i had also unexpected courious things when i did this.
somewhere is written not to call macros in a macro.

yust a idea.

Thomas

Was macht der deutsche Text bei der Msgbox ?

2357

VB and the development of wizards / Re: "Z-Correction" problem after Tool-Probing

« on: April 02, 2015, 07:13:09 AM »

Hello Max,

i tested this:

      Call setOEMDRO(42, 100)

      Call setOEMDRO(1216, 40)
         Call setOEMDRO(1217, 60)

      
           Code "g0 g53 Z" & GetOEMDRO(54)
      While IsMoving()
      Wend
      Code "g0 g53 Y" & GetOEMDRO(1217) &"g0 g53 X" & GetOEMDRO(1216) 
      While IsMoving()
      Wend

on my testmachine (parallel port)

an it worked well.
so for the moment i am out off ideas.

Thomas

2358

VB and the development of wizards / Re: "Z-Correction" problem after Tool-Probing

« on: April 02, 2015, 05:06:14 AM »

Hello Max,

can you post the complete M6End Macro.
maybe it something before this snippet.

Thomas

2359

VB and the development of wizards / Re: "Z-Correction" problem after Tool-Probing

« on: April 02, 2015, 03:38:40 AM »

Hi,

tested your code snipped here on my Parallel Port test machine.
worked fine.

what controller are you using ?

Thomas

2360

VB and the development of wizards / Re: "Z-Correction" problem after Tool-Probing

« on: April 02, 2015, 02:59:06 AM »

Hi,

have you already tryed this:

Code "G0 G53 X" & GetOEMDRO(1216) &" Y" & GetOEMDRO(1217) 

While IsMoving()
Wend