Hello
I've one !
I use it to remove the duplicate S value. maybe you can use it as is, or use it as model for coding ...
You must first set your PP to write the S command alone on a line. It is in the (header) mop macro
{$comment} {$mop.name} {$endcomment}
{$toolchange}
{$velocitymode} {$workplane}
{$mop.header}
{$spindle} {$s}
{$blocks}
{$mop.footer}must be changed to
{$comment} {$mop.name} {$endcomment}
{$toolchange}
{$velocitymode} {$workplane}
{$mop.header}
{$s}
{$spindle}
{$blocks}
{$mop.footer}The "Post-Build Command Args" must contain "{$outfile}" (with the ")
The "Post-Build Command" must contain the filepath of the .exe file given in attachment, so the exe will be run by the PP.
This is the code of the
RemDuplicateSxx.exe file, for information
(Visual basic)
Imports System.IO
Module Module1
'supprimer les changement de vitesse inutiles qui génère une pause dans l'usinage.
'pour post pro Mach3, Sxxx seul en début de ligne (pas de n° de ligne)
'le M3 et le S doivent être sur des lignes séparée, voir dans le post pro
' dh42 08/2016
Sub Main(args() As String)
Dim line As String
Dim fname, outname As String
Dim previous_speed As Double = 0
Dim current_speed As Double
fname = args(0)
If fname <> "" Then
outname = Left(fname, Len(fname) - 3) 'filename without .nc'
Try
Using sr As StreamReader = New StreamReader(fname)
FileOpen(1, outname & ".tmp", OpenMode.Output)
Do
'read a line
line = sr.ReadLine()
'test for "S" as firt char
If Left(line, 1) <> "S" Then 'no speed alone on this line
PrintLine(1, line)
Else 'speed found
'get the speed value (remove the S and convert to number)
current_speed = Val(Right(line, Len(line) - 1))
'test if current speed = previous speed
If current_speed = previous_speed Then 'duplicate speed
'skip the line
PrintLine(1, "(duplicate S" & current_speed & " removed)")
Else
previous_speed = current_speed
PrintLine(1, line)
End If
End If
Loop Until line Is Nothing
sr.Close()
FileClose(1)
FileSystem.Kill(fname) 'delete previous .nc file
FileSystem.Rename(outname & ".tmp", outname & ".nc") 'rename temp file to .nc
End Using
Catch E As Exception
MsgBox("Error" & E.Message)
End Try
End If
End Sub
End Module
++
David
Show Posts
Dilber MC Theme by HarzeM