Hello Guest it is November 19, 2019, 07:51:09 AM

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

1001
General Mach Discussion / Re: G49 on Mach3 Mill
« on: February 05, 2018, 06:17:52 AM »
Little bugfix,  (((G43..........)))  problem:

Code: [Select]

'go through To whole file
Do While Not EOF(FNumInput)
Line Input #FNumInput, FileData ' Read a line of data.
If ((InStr(FileData,"G43") <> 0) and (Left(FileData,1) <> "(")) Then
Print #FNumOutput, "( " + FileData + " )"
Else
Print #FNumOutput, FileData
End If
Loop



1002
General Mach Discussion / Re: Steppers have no torque.
« on: February 05, 2018, 06:05:31 AM »
a first step would be to meassure the voltage,
for Motor supply.



1003
General Mach Discussion / Re: G49 on Mach3 Mill
« on: February 05, 2018, 05:57:11 AM »
ok here is my Little solution to run in a button script:

Code: [Select]
Sub Main()

Set objFiles = CreateObject("Excel.Application")
Dim Filename As String


'set default open file folder
ChDrive "C:"
ChDir   "C:\Mach3\GCode"

FileName = objFiles.Application.GetOpenFilename("GCodeFiles (*.TAP), *.tap")
 
If FileName = "False" Then Exit Sub

'find the last "\" in filename
For i = 1 To Len(FileName)
If Mid(FileName,i,1) = "\" Then
last = i
End If
Next i

'extract filename
myfilename = Mid(FileName,last+1,Len(FileName)-last)

'find the extension in filename
For i = 1 To Len(myfilename)
If Mid(myfilename,i,1) = "." Then
last = i
End If
Next i

'seperate filename and extension
blancfilename = Mid(myfilename,1,last-1)
extension = Mid(myfilename,last,Len(FileName)-last)

'open input file
FNumInput    = FreeFile 'Determine next file number.
Open FileName For Input As FNumInput

'open output file
FNumOutput = FreeFile 'Determine next file number.
Open "C:\Mach3\GCode\" + blancfilename + "_filtered" + extension For Output As FNumOutput

'go through To hole file
Do While Not EOF(FNumInput)
Line Input #FNumInput, FileData ' Read a line of data.
If InStr(FileData,"G43") = 0 Then
Print #FNumOutput, FileData
Else
Print #FNumOutput, "( " + FileData + " )"
End If
Loop


Close ' Close all open files.

End Sub




it will only work on a machine where Excel is present,
because all my known openfile dialogs (in VBScript) where
not working on a 64bit OS
 
Thomas

so if anybody has a working fileopen Dialog, would be nice to share it.

1004
General Mach Discussion / Re: Bridgeport Knee Mill Conversion?
« on: February 04, 2018, 06:57:39 AM »
here we go.
that is was Estlcam did, in two different strategy's.

Thomas

1005
General Mach Discussion / Re: G49 on Mach3 Mill
« on: February 03, 2018, 02:58:43 AM »
maybe a way to put a macro "behind" the LOAD FILE button,
witch elemenates the G43 ?
Thomas

1007
General Mach Discussion / Re: Mach3 Turn, can't jog, g-codes work normal
« on: February 02, 2018, 10:00:49 AM »
jog mode enebled ?

1008
General Mach Discussion / Re: Bridgeport Knee Mill Conversion?
« on: February 02, 2018, 09:53:41 AM »
can you Export this to stl ?
estlcam does not suppurt Fusion files.

1009
General Mach Discussion / Re: Bridgeport Knee Mill Conversion?
« on: February 02, 2018, 09:34:45 AM »
if you post your drawing,
i will put it through my estlcam and see what happens.

Thomas

1010
General Mach Discussion / Re: I Need a macro written will pay.
« on: February 02, 2018, 06:43:11 AM »
hello Tony,

attached a first (very raw) Version for the wizard.

please expand to your addon Folder.
then copy m400.m1s and m401.m1s to your Profile/macrofolder.

add this code:

Code: [Select]
'calculate the actual value from laser
'based on (rawvalue * multiplicator) - offset
actmm = GetUserDro(1000) * GetUserDro(1150)
SetUserDro(1151, actmm )
SetUserDro(1154, 1000.0 - actmm -GetUserDro(1153))

to your macropump.m1s and make sure macropump is enabled in General config.

restart Mach3.

then you should see the wizard witch is named "laser digitizise wizard"

open the wizard and test.

Thomas