RESET LOCALVARS
//
DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
//
STRING $New_Name = ""
//
// ΔΗΜΙΟΥΡΓΙΑ ΛΙΣΤΑΣ ΠΟΥ ΠΕΡΙΕΧΕΙ ΤΟΥΣ ΦΑΚΕΛΟΥΣ ΠΟΥ ΒΡΙΣΚΟΝΤΑΙ ΣΤΑ 'toolpath'
STRING LIST $Folder = $GET_FOLDERS('toolpath')
//
//ΕΠΙΛΟΓΗ ΑΠΟ ΤΗ ΛΙΣΤΑ ΤΟΥ ΕΠΙΘΥΜΗΤΟΥ ΦΑΚΕΛΟΥ
INT LIST $Folder_Choices = INPUT CHOICE MULTIPLE $Folder "Choose the desired Folder"
//
// ΟΡΙΣΜΟΣ ΣΧΟΛΙΟΥ ΣΤΗΝ ΚΑΡΤΕΛΑ
//string prompt = "Enter_a_P-R-E-F-I-X"
//
//ΟΡΙΣΜΟΣ ΜΕΤΑΒΛΗΤΗΣ $PREFIX ΠΟΥ ΘΑ ΕΧΕΙ ΤΗΝ ΤΙΜΗ ΠΟΥ ΕΙΣΗΧΘΕΙ ΣΤΗΝ ΚΑΡΤΕΛΑ
// STRING $PREFIX = $tp.Name //input $prompt
//
//
FOREACH f IN $Folder_Choices {
STRING $f_name = $Folder[$f] //--$Folder[$f] ΔΙΝΕΙ ΤΟ ΟΝΟΜΑ ΤΟΥ ΕΠΙΛΕΓΜΕΝΟΥ ΦΑΚΕΛΟΥ
PRINT $f_name
INT COUNT = 0
FOREACH tp IN FOLDER($f_name) {
$COUNT = $COUNT + 1
STRING $PREFIX = $tp.Name
IF $COUNT < 10 {
$New_Name = "0" + $COUNT + " " + $PREFIX
} ELSE {
$New_Name = $COUNT + " " + $PREFIX
}
RENAME Toolpath $tp.Name $New_Name
}
}
//
DIALOGS MESSAGE ON
DIALOGS ERROR ON
//
MESSAGE INFO "MACRO COMPLETED"
DOES ANYONE KNOW WHY?????
This works for me in
Autodesk PowerMill Standard 2022
Version: 2022.1.0.2022107
Build Date: Thu Oct 28 11:35:36 UTC 2021
Status: Full Release
Folder name for toolpath changed to Toolpath and comment line moved to seperate line, also i commented out reset localvars, when run the macro added 01 to tp 1 then 02 tp2, etc.
best regards Kevin
//RESET LOCALVARS
//
DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
//
STRING $New_Name = ""
//
// ΔΗΜΙΟΥΡΓΙΑ ΛΙΣΤΑΣ ΠΟΥ ΠΕΡΙΕΧΕΙ ΤΟΥΣ ΦΑΚΕΛΟΥΣ ΠΟΥ ΒΡΙΣΚΟΝΤΑΙ ΣΤΑ 'toolpath'
//CREATE A LIST CONTAINING THE FOLDERS LOCATED IN 'toolpath'
STRING LIST $Folder = $GET_FOLDERS('Toolpath')
//
//ΕΠΙΛΟΓΗ ΑΠΟ ΤΗ ΛΙΣΤΑ ΤΟΥ ΕΠΙΘΥΜΗΤΟΥ ΦΑΚΕΛΟΥ
// SELECT FROM THE LIST OF THE WISHED ENVELOPE
INT LIST $Folder_Choices = INPUT CHOICE MULTIPLE $Folder "Choose the desired Folder"
//
// ΟΡΙΣΜΟΣ ΣΧΟΛΙΟΥ ΣΤΗΝ ΚΑΡΤΕΛΑ
// DEFINITION OF COMMENT ON THE CARD
//string prompt = "Enter_a_P-R-E-F-I-X"
//
//ΟΡΙΣΜΟΣ ΜΕΤΑΒΛΗΤΗΣ $PREFIX ΠΟΥ ΘΑ ΕΧΕΙ ΤΗΝ ΤΙΜΗ ΠΟΥ ΕΙΣΗΧΘΕΙ ΣΤΗΝ ΚΑΡΤΕΛΑ
// DEFINITION OF $ PREFIX VARIABLE THAT WILL HAVE THE VALUE ENTERED IN THE CARD
// STRING $PREFIX = $tp.Name //input $prompt
//
//
FOREACH f IN $Folder_Choices {
//--$Folder[$f] ΔΙΝΕΙ ΤΟ ΟΝΟΜΑ ΤΟΥ ΕΠΙΛΕΓΜΕΝΟΥ ΦΑΚΕΛΟΥ
// - $ Folder [$ f] GIVES THE NAME OF THE SELECTED FOLDER
STRING $f_name = $Folder[$f]
PRINT $f_name
INT COUNT = 0
FOREACH tp IN FOLDER($f_name) {
$COUNT = $COUNT + 1
STRING $PREFIX = $tp.Name
IF $COUNT < 10 {
$New_Name = "0" + $COUNT + " " + $PREFIX
} ELSE {
$New_Name = $COUNT + " " + $PREFIX
}
RENAME Toolpath $tp.Name $New_Name
}
}
//
DIALOGS MESSAGE ON
DIALOGS ERROR ON
//
MESSAGE INFO "MACRO COMPLETED"
Can't find what you're looking for? Ask the community or share your knowledge.