Macro to create NC code
Hi @kukelyk,
Sorry to bother you again, but could you please help me this issue ?
I had a macro that will export toolpath name, tool name and toolpath length to excel file. This is the macro:
//
// Macro to export NC data to Excel
//
// Open File
FILE OPEN "c:\temp\NC.csv" FOR WRITE AS "output"
// Cycle through the NC programs
FOREACH ncp IN folder('NCProgram') {
// Create an empty list
STRING List names = {}
// Output NC Program name
STRING nome = "NC Program:," + ncp.Name
FILE WRITE $nome TO "output"
// Output Header for Toolpath data
STRING header = "Toolpath Name, Tool Name, Toolpath Length"
FILE WRITE $header TO "output"
// loop over the components in the nc program
FOREACH item IN components(ncp) {
// Check that it is a toolpath
IF item.RootType == 'nctoolpath' {
// Use MEMBER to check that we have not seen this name before
IF NOT member(names, item.Name) {
// Add name to list
bool ok = add_last(names, item.Name)
// Output data for current toolpath
STRING line = item.Name + "," + item.Toolname.value + "," + string(item.Length.value)
FILE WRITE $line TO "output"
} else {
}
}
}
// Write an empty line
STRING empty_line = " "
FILE WRITE $empty_line TO "output"
}
// Close File
FILE CLOSE "output"
Is there any way to get time of toolpath instead of toolpath length ? Here is the value which I want to export to excel file:
Thank you very much !
Hi @kukelyk,
Thank you for you help, but it doesn't match with my expectation. I had a NC program like this:
And when I run my macro above, I will have a file in C drive like
Can I have the macro so that when I run it, I can get toolpath time instead of toolpath length like this: ( the time will be copied at the row where i highlighted at the photo above)
Please help me if you have any solution. Thank you very much !
Hi @kukelyk,
I'm a beginner so I don't know how to use your macro. Could you please write full macro for me ? I tried to edit my macro like this but it didn't work:
//
// Macro to export NC data to Excel
//
// Open File
FILE OPEN "c:\temp\NC.csv" FOR WRITE AS "output"
// Cycle through the NC programs
FOREACH ncp IN folder('NCProgram') {
// Create an empty list
STRING List names = {}
// Output NC Program name
STRING nome = "NC Program:," + ncp.Name
FILE WRITE $nome TO "output"
// Output Header for Toolpath data
STRING header = "Toolpath Name, Tool Name, Toolpath Time"
FILE WRITE $header TO "output"
// loop over the components in the nc program
FOREACH item IN components(ncp) {
// Check that it is a toolpath
IF item.RootType == 'nctoolpath' {
// Use MEMBER to check that we have not seen this name before
IF NOT member(names, item.Name) {
// Add name to list
bool ok = add_last(names, item.Name)
// Output data for current toolpath
STRING line = item.Name + "," + item.Toolname.value + "," + string(item.Statistics.Time.value)
FILE WRITE $line TO "output"
} else {
}
}
}
// Write an empty line
STRING empty_line = " "
FILE WRITE $empty_line TO "output"
}
// Close File
FILE CLOSE "output"
I changed my macro at the red cirlce.
Hi @kukelyk,
Thank you for your full macro. I tried to run it but there is a mistake like this. Could you have any solution to solve ?
