Messages

201

General Mach Discussion / Re: (Mach3) Can't figure out issue with G31 Command (Probing)

« on: July 17, 2022, 05:02:51 AM »

https://www.machsupport.com/forum/index.php?topic=35226.0

202

General Mach Discussion / Re: (Mach3) Can't figure out issue with G31 Command (Probing)

« on: July 12, 2022, 02:32:44 AM »

you can use your own scripts to create the file.

for example create a file M400.m1s in your macro folder to get the filename, M401 is called only at the
beginning of your G-Code.

code for M400.m1s:

Code: [Select]

'M400 for digtizing
'get the filename for digfile from user

Sub Main()
 If NOT Isloading() then
Dim  FNum, FName ' Declare variables.
'get Filename from user

Begin Dialog TextBoxSample 16,30,180,96,"enter digfilename"
OKButton 132,20,40,14
Text 8,8,132,8,"filename without extension:"
TextBox 8,20,100,12,.TextBox1
Text 8,44,132,8,"file will be in c:\Mach3\GCode"
End Dialog
Dim Dlg1 As TextBoxSample


Dialog Dlg1
SetUserLabel(255, Dlg1.TextBox1)

'open the to file errase all existing data
FNum = FreeFile ' Determine next file number.
FName = "C:\Mach3\GCode\" + GetUserLabel(255) + ".nc"
Open FName For Output As FNum ' Open file.
Close ' Close all files.
SetUserDro(1166,1)
   End If
End Sub

now create a file M401.m1s in your macro folder witch is called afte each G31 to save the values.

code for M401.m1s

Code: [Select]

'M401 for digtizing
'write the values into digfile

Sub Main()
Dim  FNum, FName ' Declare variables.

'wait for axis standstill
WaitForMove

'open the file for output data data
FNum = FreeFile ' Determine next file number.
FName = "C:\Mach3\GCode\" + GetUserLabel(255) + ".nc"
Open FName For Append As FNum ' Open file.
Print #FNum, nFmt(GetDro(0),4) & "," & nFmt(GetDro(1),4) & "," & nFmt(GetDro(2),4) 
Close ' Close all files.

End Sub

'global Sub's
Sub WaitForMove ()
While IsMoving()
Sleep(5)
Wend
End Sub

code is not tested, just written down

203

VB and the development of wizards / Re: scan problem

« on: July 09, 2022, 10:02:44 AM »

use:

Code: [Select]

Print #1, nFmt(X,4) & "," & nFmt(Y,4) & "," & nFmt(Z,4)
insteed:

Code: [Select]

Write #1, Format(X,"###0.000") , Format(Y,"###0.000") , Format(Z,"###0.000")


204

VB and the development of wizards / Re: scan problem

« on: July 09, 2022, 02:42:18 AM »

try to replace:

Code: [Select]

Write #1, X , Y, Z

by:

Code: [Select]

Write #1, Format(X,"###0.000") , Format(Y,"###0.000") , Format(Z,"###0.000")


205

General Mach Discussion / Re: (Mach3) Can't figure out issue with G31 Command (Probing)

« on: July 03, 2022, 01:04:13 PM »

your controller may support G31 what is enough for a "simple" probing, but am pretty sure
it is not supporting the update of the var's 2000-2002.

206

General Mach Discussion / Re: call a Macro with Input external

« on: July 03, 2022, 01:01:39 PM »

do a forum search for: SetTriggerMacro
and you will find the answer.

207

German / Re: Mach4 und PoKeys57CNC Spindel Start führt zum Absturtz der Software

« on: June 25, 2022, 10:34:39 AM »

ich tippe auf Abschirmungsprobleme. Ist das Spindelmotorkabel abgeschirmt? alle PE Verbindungen sauber aufgelegt?

Gruß Tom

208

VB and the development of wizards / Re: Starting a VBScript from am Button?

« on: June 18, 2022, 06:17:08 AM »

you create a macrofile in the holder  c:\Mach3\macros\Your profile name
let's say MyFuntions.m1s

in the file MyFuntions.m1s you place a function with the code:

Code: [Select]

'function for button1 ------------------------------------------------
Function Button1() as Boolean

        Code ("F300")
End Function

now in any button you can use this code:

Code: [Select]

Sub Main()
Call Button1()
End Sub

#Expand <\..\..\macros\Your profile name\MyFunctions>

so you can keep the specific code in just one file -> MyFunctions.m1s
and you can add as may functions you want.

209

VB and the development of wizards / Re: Starting a VBScript from am Button?

« on: June 17, 2022, 01:04:33 PM »

have a look to this:

https://www.machsupport.com/wp-content/uploads/2013/02/Mach3_V3.x_Macro_Prog_Ref.pdf

and then look for #Expand maybe this help's

210

VB and the development of wizards / Re: help macro to call g54 , g55, g56, g57,g58, g59, g60

« on: June 16, 2022, 04:05:14 AM »

you mean:

Code: [Select]

Code "G43H" &newtool

it is just to activate tool length compensation

the original code:

Code: [Select]

Code "G43H" 6 newtool
was faulty the 6 has to be a &