Hello Guest it is June 16, 2021, 12:57:25 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

1771
General Mach Discussion / Re: G49 on Mach3 Mill
« on: February 05, 2018, 06:30:40 AM »
next Little bugfix,

add

Code: [Select]

LoadFile( "C:\Mach3\GCode\" + blancfilename + "_filtered" + extension)


at the end, to load "cleaned" file imediatelly.

1772
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



1773
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.



1774
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.

1775
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

1776
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

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

1779
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.

1780
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