Messages

1801

General Mach Discussion / Re: Probing - what would i need?

« on: April 05, 2018, 01:41:51 PM »

ok had some time, made a english Version (well bad bavarian english).


if you come to teh TouchInner() TouchOuter() and
specially to the TouchTwisted() give me a shout,
i think they Need explantion, because they are complex.

Thomas

1802

General Mach Discussion / Re: Probing - what would i need?

« on: April 05, 2018, 10:56:37 AM »

here is my X/Y probing libary, sorry it's in german

to use it copy the file to c:\mach3\macros\your Profile Name


to do a left lower Corner probe the code in the button would be:

Code: [Select]

Sub Main()
'probe left lower corner
Call TouchLU
End Sub

#Expand <\..\..\macros\your Profile name\ProbeFunktionen>  ##

i love this #Expand functionality, because you edit your button only one time,
and you can do all the changes on code easily in the libary file without changing Screen and so on.

1803

General Mach Discussion / Re: Probing - what would i need?

« on: April 05, 2018, 10:28:42 AM »

i think it doesnt matter.

in a "Standard" machine the G43HX handles the tool length differeces internaly.

in your case the M6End handles it with the knee, so at the end not difference.

1804

Mach4 General Discussion / Re: Lua file operations

« on: April 05, 2018, 10:01:50 AM »

without any knowledge of lua, i would say


File:write("test","\r\n")

1805

VB and the development of wizards / Re: VB / LUA evaluation- no license key

« on: April 05, 2018, 08:03:16 AM »

Mach3 will run VB in demo.

post your code, and we will see.

1806

VB and the development of wizards / Re: ATC Geneva wheel for mill

« on: April 05, 2018, 08:00:41 AM »

happy to hear that it is working now.

1807

VB and the development of wizards / Re: ATC Geneva wheel for mill

« on: April 05, 2018, 06:44:09 AM »

no your CWPos and CCWPos are not global:


wrong:

Sub Main()
'Global variables declaration

Dim CCWPos as Integer
Dim CWPos as Integer
...

right:

'Global variables declaration

Global CCWPos as Integer
Global CWPos as Integer

Sub Main()
...

1808

VB and the development of wizards / Re: ATC Geneva wheel for mill

« on: April 05, 2018, 06:31:14 AM »

thats why i asked to use the


MSGBox "CW Rotation: " &CWPos

and

MSGBox "CCW Rotation: " &CCWPos

to see that the calculation of steps is right

1809

VB and the development of wizards / Re: ATC Geneva wheel for mill

« on: April 05, 2018, 06:16:34 AM »

the modify

For x=0 To CWPos -1

For y=0 To CCWPos -1

1810

VB and the development of wizards / Re: ATC Geneva wheel for mill

« on: April 05, 2018, 05:52:18 AM »

no you should put this part of code into

main menu -> Operator -> VB Script Editor window

an test the code wirh the green >|| button,
without running any M6 T someting in MDI

Code: [Select]

Function CW()'Rotation CW
   Dim x As Integer
   Dim CTPos As Integer 'Carrousel Tool Position Relative to OldTool Position
   CTPos=0

CWPos = 2

   ActivateSignal(OUTPUT9)'Turns the AC Motor On cw
   Sleep(50)

   For x=0 To CWPos
      While IsActive(INPUT4)'Wait for INPUT4 is off
        Sleep(10)
      Wend
      While Not IsActive(INPUT4)'Wait for INPUT4 is on
        Sleep(10)
      Wend
   Next x
   CTPos=x
   DeactivateSignal(OUTPUT9)

it is only a prticular test of this part of code