Macro string to Open NC file using parameters

[GiuseppeSil]

Hi guys,

I made a macro to post-process my toolpaths. I need to use a particular post-processor that make the process a bit "tricky" so I created this macro to save time. For example, I have 5 tool path, I will have to create one single NC with all of my toolpaths under it, and other 5 toolpath to posto-process individually. The first one will be a file .bef. I need to open only that NC programs (.bef) and I have to use parameters beacause the file path change every time, but I don't know to do it with OLE FILEACTION "OPEN" string. I post the example below. You can find the last string on the bottom of the macro.

Sorry about my bad english, I hope I've been clear. Thank you guys.

// ----------PREPARAZIONE PARAMETRI PROGRAMMA----------

IMPORT PARAMETERS FILEOPEN
"C:\Users\giuseppesil\iGuzzini\iHQ Moulds Production - Documenti\Preset PostProcessor\project_info.pmlpar"




// ----------SCELTA DELLA DINAMICA DI LAVORAZIONE-----------------

STRING ARRAY Opts[] = {"Precise", "General", "Fast"}
INT C = INPUT CHOICE $Opts "Seleziona la dinamica di lavorazione"

IF $C==0 {
	EDIT USERPAR project SELECT 'Dynamic'
	EDIT PAR "project.Dynamic" 'Precise'
}
	
IF $C==1 {
	EDIT USERPAR project SELECT 'Dynamic'
	EDIT PAR "project.Dynamic" 'General'
}

IF $C==2 { 
	EDIT USERPAR project SELECT 'Dynamic'
	EDIT PAR "project.Dynamic" 'Fast'
}
// --------------------------------------------------------------




// ------------SCELTA DELL'ORIGINE------------------

STRING $Zero = INPUT "Inserire il nome dell'origine"
EDIT USERPAR project SELECT 'Zeropoint'
$project.Zeropoint = $Zero
// -------------------------------------------------




// ----------------------NOME CARTELLA----------------------------

STRING $Folder = INPUT "Inserire il nome della cartella da creare"
// ---------------------------------------------------------------




// -------------NOME PROGRAMMA PRINCIPALE .BEF------------------

STRING $Nome = INPUT "Inserire il nome del programma principale"
// -------------------------------------------------------------




// ----------------------IMPOSTAZIONE CARTELLA DI PARTENZA-----------------------------

STRING $mainFolder = "C:\Users\giuseppesil\iGuzzini\iHQ Moulds Production Projects - Documenti\Scambio\Roders"
STRING LIST $dirs = list_files("dirs", $mainFolder)
// ------------------------------------------------------------------------------------




// ----------SCELTA DELLA CARTELLA SOTTO LA QUALE VERRA' CREATA LA SOTTOCARTELLA----------

INT $D = INPUT CHOICE $dirs "Scegli in che directory creare la cartella"
STRING $selectedFolder = $dirs[$d]
STRING $newDir = $selectedFolder + "\" + $Folder
// ---------------------------------------------------------------------------------------




// ----------CREAZIONE CARTELLA SOMMA DELLA PRIMA SCELTA E DEL NOME SCELTO----------

MKDIR $newDir
// ---------------------------------------------------------------------------------




// -----------------------------IMPOSTAZIONE PREFERENZE DEI PROGRAMMI NC---------------------------------------------------------------------------------------

FORM NCPREFERENCES
PATHSELECTOR PATHLISTS LISTCHANGE OUTPUT PATHSELECTOR PATHLISTS CLEAR PATHSELECTOR PATHLISTS ADD PROJSELECTOR
$newDir
OPTIONFILE SELECTFOR NCPROGRAM PREFERENCES
OPTIONFILE SELECT
 1 NEW
EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "C:\Users\giuseppesil\iGuzzini\iHQ Moulds Production - Documenti\Post-Processor\Roders_iGuz_3Axis_main_002.pmoptz" FORM ACCEPT SelectOptionFile
EDIT NCPROGRAM PREFERENCES TAB TOOLPATH
EDIT NCPROGRAM PREFERENCES LOADTOOL SEQUENTIAL
NCPREFERENCES ACCEPT
CREATE NCPROGRAM ; EDIT NCPROGRAM ; QUIT FORM NCTOOLPATH
NCTOOLPATH ACCEPT FORM ACCEPT NCTOOLPATHLIST FORM ACCEPT NCTOOLLIST FORM ACCEPT PROBINGNCOPTS
RENAME NCPROGRAM "1" $Nome
EDIT NCPROGRAM ; APPEND TOOLPATH ALL
FORM NCPREFERENCES
EDIT NCPROGRAM PREFERENCES TAB OUTPUT
OPTIONFILE SELECTFOR NCPROGRAM PREFERENCES
OPTIONFILE SELECT
 2 NEW
EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "C:\Users\giuseppesil\iGuzzini\iHQ Moulds Production - Documenti\Post-Processor\Roders_iGuz_3Axis_Sub_001.pmoptz" FORM ACCEPT SelectOptionFile
NCPREFERENCES ACCEPT
CREATE NCPROGRAM INDIVIDUAL DEACTIVATE NCPROGRAM
// ------------------------------------------------------------------------------------------------------------------------------------------------------------




// ----------RICHIESTA CONFERMA-----------------------------------

STRING yesnoprompt = "Procedere con l'esportazione dei percorsi?"
bool carryon = 0
$carryon = query $yesnoprompt
// ---------------------------------------------------------------




// ---------- IN CASO DI SCELTA AFFERMATIVA----------

if $carryon == 1 {
KEEP NCPROGRAM ALL
TEXTINFO ACCEPT
PROJECT SAVE
MESSAGE INFO "Programmi NC processati con successo"
}
// --------------------------------------------------




// ----------IN CASO DI SCELTA NEGATIVA----------

if $carryon == 0 {
STRING msg = "Postprocess annullato."
MESSAGE INFO $msg
}
// ----------------------------------------------


OLE FILEACTION "OPEN" "$newDir + "\" + $Nome + .bef"\r

 I 

[icse · Accepted solution]

did not tested it but try this at the end insted:

string $completePath = $newDir + "\" + $Nome + ".bef"
OLE FILEACTION "OPEN" ${completePath}

[GiuseppeSil]

Perfect! Thank you very much.