Attached are 3 post processors one without tool changer but allows use of 2nd head. The other 2 are for either head 1 or 2.
Please note that the vectric post processor does not split files to 400 lines(min is 600) required for the 4k limit. To get round this I have added 200 lines to the header that will be deleted by the excel macro attached.
To use the macro save generated G code as then normal then run the excel program(ensure developer is enabled beforehand). The excel macro will then ask to select all the split files and will batch process them, deleting the additional lines and saving back to original location.
To convert the code to a format required by the Biesse Rover you will need copy of CNI Floppy. If you are using floppies save using an old internal floppy disc drive as the new USB external version will not work.
http://www.emerge.com.br/index.php
I have converted all my Biesse with Floppy disc drive emulators. This allows me to send programs via a network and get away from floppies and the associated problems. I recommend EMUFDD for their exceptional customer service.
http://embeddedsw.net/EMUFDD_Custom_Ins ... iesse.html
Biesse Rover 321 Post Processors + process
Biesse Rover 321 Post Processors + process
- Attachments
-
- Biesse_Rover_rt480_Arcs_mm.pp
- (4.98 KiB) Downloaded 527 times
-
- Biesse_Rover_rt480_ATC_HC1_Arcs_mm.pp
- (5.02 KiB) Downloaded 431 times
-
- Biesse_Rover_rt480_ATC_HC2_Arcs_mm.pp
- (5.02 KiB) Downloaded 406 times
Re: Biesse Rover 321 Post Processors + process
Unfortunately I am unable to upload excel extension. Copy and past this into excel - developer - macros.
'Sub routine to open the first userform as soon as the workbook is open
Private Sub Workbook_Open()
'Make the application invisible
'Application.Visible = False
Dim FilesToOpen
Dim x As Integer
Dim y As Integer
Dim RowLast As Long
Dim wkbAll As Workbook
Dim wkbTemp As Workbook
Dim sDelimiter As String
Dim ResultText As String
On Error GoTo ErrHandler
Application.ScreenUpdating = False
sDelimiter = "|"
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Text Files (*.txt), *.txt", _
MultiSelect:=True, Title:="G Code Files to Open")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "No Files were selected"
GoTo ExitHandler
End If
x = 1
' y = 1
' Set wkbTemp = Workbooks.Open(Filename:=FilesToOpen(x))
' wkbTemp.Sheets(1).Copy
Set wkbAll = ActiveWorkbook
' wkbTemp.Close (False)
Workbooks.Add ' Open a new workbook
Set wkbAll = ActiveWorkbook
ResultText = ""
Application.DisplayAlerts = False
' If wkbAll.Worksheets(x).Range("A1") = "^" Then
' ResultText = ResultText + "Processed : " + FilesToOpen(x) + vbCrLf
'
' wkbAll.Worksheets(x).Range(Range("A224"), Range("A224").End(xlDown)).TextToColumns _
' Destination:=Range("A1"), DataType:=xlDelimited, _
' TextQualifier:=xlDoubleQuote, _
' ConsecutiveDelimiter:=False, _
' Tab:=False, Semicolon:=False, _
' Comma:=False, Space:=False, _
' Other:=True, OtherChar:="|"
'
' wkbAll.SaveAs Filename:=FilesToOpen(x), _
' FileFormat:=xlText
' Else
' ResultText = ResultText + "NO ^ FOUND : " + FilesToOpen(x) + vbCrLf
' End If
'
' x = x + 1
' y = y + 1
While x <= UBound(FilesToOpen)
Set wkbTemp = Workbooks.Open(Filename:=FilesToOpen(x))
If wkbTemp.Worksheets(1).Range("A1") = "^" Then
ResultText = ResultText + "Processed : " + FilesToOpen(x) + vbCrLf
With wkbAll
wkbTemp.Sheets(1).Move After:=.Sheets(.Sheets.Count)
y = .Sheets.Count
RowLast = .Worksheets(y).Cells(Rows.Count, "A").End(xlUp).Row
.Worksheets(y).Range(Range("A226"), Range("A226").End(xlDown)).TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:=sDelimiter
RowLast = RowLast - 224
.Worksheets(y).Rows(RowLast & ":" & RowLast + 225).ClearContents
End With
' y = y + 1
wkbAll.SaveAs Filename:=FilesToOpen(x), _
FileFormat:=xlText
Else
wkbTemp.Close (False)
ResultText = ResultText + "NO ^ FOUND : " + FilesToOpen(x) + vbCrLf
End If
x = x + 1
Wend
MsgBox ResultText
wkbAll.Close SaveChanges:=False
ExitHandler:
Application.ScreenUpdating = True
Set wkbAll = Nothing
Set wkbTemp = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
'Sub routine to open the first userform as soon as the workbook is open
Private Sub Workbook_Open()
'Make the application invisible
'Application.Visible = False
Dim FilesToOpen
Dim x As Integer
Dim y As Integer
Dim RowLast As Long
Dim wkbAll As Workbook
Dim wkbTemp As Workbook
Dim sDelimiter As String
Dim ResultText As String
On Error GoTo ErrHandler
Application.ScreenUpdating = False
sDelimiter = "|"
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Text Files (*.txt), *.txt", _
MultiSelect:=True, Title:="G Code Files to Open")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "No Files were selected"
GoTo ExitHandler
End If
x = 1
' y = 1
' Set wkbTemp = Workbooks.Open(Filename:=FilesToOpen(x))
' wkbTemp.Sheets(1).Copy
Set wkbAll = ActiveWorkbook
' wkbTemp.Close (False)
Workbooks.Add ' Open a new workbook
Set wkbAll = ActiveWorkbook
ResultText = ""
Application.DisplayAlerts = False
' If wkbAll.Worksheets(x).Range("A1") = "^" Then
' ResultText = ResultText + "Processed : " + FilesToOpen(x) + vbCrLf
'
' wkbAll.Worksheets(x).Range(Range("A224"), Range("A224").End(xlDown)).TextToColumns _
' Destination:=Range("A1"), DataType:=xlDelimited, _
' TextQualifier:=xlDoubleQuote, _
' ConsecutiveDelimiter:=False, _
' Tab:=False, Semicolon:=False, _
' Comma:=False, Space:=False, _
' Other:=True, OtherChar:="|"
'
' wkbAll.SaveAs Filename:=FilesToOpen(x), _
' FileFormat:=xlText
' Else
' ResultText = ResultText + "NO ^ FOUND : " + FilesToOpen(x) + vbCrLf
' End If
'
' x = x + 1
' y = y + 1
While x <= UBound(FilesToOpen)
Set wkbTemp = Workbooks.Open(Filename:=FilesToOpen(x))
If wkbTemp.Worksheets(1).Range("A1") = "^" Then
ResultText = ResultText + "Processed : " + FilesToOpen(x) + vbCrLf
With wkbAll
wkbTemp.Sheets(1).Move After:=.Sheets(.Sheets.Count)
y = .Sheets.Count
RowLast = .Worksheets(y).Cells(Rows.Count, "A").End(xlUp).Row
.Worksheets(y).Range(Range("A226"), Range("A226").End(xlDown)).TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:=sDelimiter
RowLast = RowLast - 224
.Worksheets(y).Rows(RowLast & ":" & RowLast + 225).ClearContents
End With
' y = y + 1
wkbAll.SaveAs Filename:=FilesToOpen(x), _
FileFormat:=xlText
Else
wkbTemp.Close (False)
ResultText = ResultText + "NO ^ FOUND : " + FilesToOpen(x) + vbCrLf
End If
x = x + 1
Wend
MsgBox ResultText
wkbAll.Close SaveChanges:=False
ExitHandler:
Application.ScreenUpdating = True
Set wkbAll = Nothing
Set wkbTemp = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
- Adrian
- Vectric Archimage
- Posts: 14660
- Joined: Thu Nov 23, 2006 2:19 pm
- Model of CNC Machine: ShopBot PRS Alpha 96x48
- Location: Surrey, UK
Re: Biesse Rover 321 Post Processors + process
Couldn't you use the tape splitting function of the Post Processors to break the file down into the 400 lines limit?
Re: Biesse Rover 321 Post Processors + process
Tape Splitting is used but the minimum split is 600 lines. The Biesse Rover can only handle approx 400 lines.
- Adrian
- Vectric Archimage
- Posts: 14660
- Joined: Thu Nov 23, 2006 2:19 pm
- Model of CNC Machine: ShopBot PRS Alpha 96x48
- Location: Surrey, UK
Re: Biesse Rover 321 Post Processors + process
Learn something new every day. Wonder why that is?
I take it this is a very old machine with a limit of 400 lines of code.
I take it this is a very old machine with a limit of 400 lines of code.
Re: Biesse Rover 321 Post Processors + process
I did confirm with Vectric the minimum split.
Yeap machine is 400 line limit and are early 90's tech. I hate the thought of them being 'very old', as I am of very early 70's vintage.
I am not expecting to do much in the way of 3d with it.
Yeap machine is 400 line limit and are early 90's tech. I hate the thought of them being 'very old', as I am of very early 70's vintage.
I am not expecting to do much in the way of 3d with it.